Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

060073,000002:                                                                                                  ## Copyright:   Public domain.
060074,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
060075,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
060076,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
060077,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
060078,000007:                                                                                                  ## Assembler:   yaYUL
060079,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
060080,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
060081,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
060082,000011:                                                                                                  ## Mod history: 2011-04-17 JL   Adapted from corresponding Colossus 249 file.
060083,000012:                                                                                                  ##              2016-11-02 RSB  Typo (offset-reference -1 was not indented).
060084,000013:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
060085,000014:                                                                                                  ##                              and fixed errors found.
060086,000015:                                                                                                  ##              2017-01-08 RSB  Fixed comment errors detected in cross-diff vs
060087,000016:                                                                                                  ##                              Colossus 249.
060088,000017:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
060089,000018:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
060090,000019:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
060091,000020: 

Page 1416

060093,000022:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
060094,000023: 
060095,000024:                                                                                                  #      1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
060096,000025:                                                                                                  #         OUT UNDER CRITICAL ALARM CONDITIONS.
060097,000026:                                                                                                  #      2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
060098,000027:                                                                                                  #      3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
060099,000028:                                                                                                  #         SEQUENCE OF EVENTS.
060100,000029:                                                                                                  #      4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
060101,000030:                                                                                                  #         MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
060102,000031: 
060103,000032: 
060104,000033:                                                                                                  #      5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
060105,000034:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
060106,000035: 
060107,000036:                                                                                                  #      1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
060108,000037:                                                                                                  #         (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
060109,000038:                                                                                                  #         BUT NOT WAITING FOR A RESPONSE.
060110,000039:                                                                                                  #      2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
060111,000040:                                                                                                  #         (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
060112,000041:                                                                                                  #         WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
060113,000042:                                                                                                  #         OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
060114,000043:                                                                                                  #         HAS INFO SAVED FOR RESTART PURPOSES.
060115,000044: 
060116,000045: 
060117,000046:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
060118,000047: 
060119,000048:                                                                                                  #    INTERRUPTS-
060120,000049:                                                                                                  #      1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
060121,000050:                                                                                                  #      2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
060122,000051:                                                                                                  #      3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
060123,000052:                                                                                                  #         PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
060124,000053:                                                                                                  #      4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
060125,000054:                                                                                                  #      5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
060126,000055: 
060127,000056:                                                                                                  #    ORDER OF WAITING DISPLAYS-
060128,000057:                                                                                                  #      1. ASTRONAUT EXTERNAL USE
060129,000058:                                                                                                  #      2. PRIORITY
060130,000059:                                                                                                  #      3. INTERRUPTED MARK
060131,000060:                                                                                                  #      4. INTERRUPTED NORMAL
060132,000061: 
060133,000062:                                                                                                  #      5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
060134,000063:                                                                                                  #      6. MARK WAITING
060135,000064:                                                                                                  #      7. NORMAL WAITING
060136,000065: 

Page 1417

060138,000067:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
060139,000068:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
060140,000069:                                                                                                  #  WILL FOLLOW LATER):
060141,000070: 
060142,000071:                                                                                                  #       1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
060143,000072:                                                                                                  #           IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
060144,000073:                                                                                                  #           IS TO THE USERS CALLING LOC +1.
060145,000074:                                                                                                  #       2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
060146,000075:                                                                                                  #       3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
060147,000076:                                                                                                  #       4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
060148,000077:                                                                                                  #           USERS JOB.
060149,000078:                                                                                                  #       5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
060150,000079:                                                                                                  #       6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
060151,000080:                                                                                                  #           DESCRIPTION OF RESTARTS).
060152,000081:                                                                                                  #       7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
060153,000082:                                                                                                  #           TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
060154,000083:                                                                                                  #           (V32) BRANCHES TO THE USERS CALL CADR +3.
060155,000084:                                                                                                  #       8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
060156,000085: 
060157,000086:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
060158,000087: 
060159,000088:                                                                                                  #  GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
060160,000089: 
060161,000090:                                                                                                  #       1. GODSP IS NOT RESTARTABLE
060162,000091:                                                                                                  #       2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
060163,000092:                                                                                                  #                                                   CAF    VXXNYY
060164,000093:                                                                                                  #                                                   TC     BANKCALL
060165,000094:                                                                                                  #                                                   CADR   GODSP
060166,000095: 
060167,000096:                                                                                                  #                                         VXXNYY    OCT    0XXYY
060168,000097: 
060169,000098:                                                                                                  #  GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
060170,000099: 
060171,000100:                                                                                                  #                                                   CAF    VXXNYY
060172,000101:                                                                                                  #                                                   TC     BANKCALL
060173,000102:                                                                                                  #                                                   CADR   GODSPR
060174,000103: 
060175,000104:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GODSPR
060176,000105: 
060177,000106:                                                                                                  #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
060178,000107:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
060179,000108: 
060180,000109:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
060181,000110:                                                                                                  #                                                   TC     BANKCALL
060182,000111:                                                                                                  #                                                   CADR   GOFLASH
060183,000112:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060184,000113:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060185,000114:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060186,000115: 
060187,000116:                                                                                                  #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A

Page 1418

060189,000118:                                                                                                  #  V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
060190,000119:                                                                                                  #  USER (SEE NO. 7 ABOVE).
060191,000120: 
060192,000121:                                                                                                  #  GOPERF1 BLANKS REGISTERS R2 AND R3
060193,000122: 
060194,000123:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX
060195,000124:                                                                                                  #                                                   TC     BANKCALL
060196,000125:                                                                                                  #                                                   CADR   GOPERF1
060197,000126:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060198,000127:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060199,000128:                                                                                                  #                                                   ...    ...             ENTER RETURN
060200,000129: 
060201,000130:                                                                                                  #  GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
060202,000131:                                                                                                  #  REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
060203,000132:                                                                                                  #  DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
060204,000133: 
060205,000134:                                                                                                  #  GOPERF2 DOES NOT BLANK ANY REGISTERS
060206,000135: 
060207,000136:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
060208,000137:                                                                                                  #                                                   TC     BANKCALL
060209,000138:                                                                                                  #                                                   CADR   GOPERF2
060210,000139:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060211,000140:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060212,000141:                                                                                                  #                                                   ...    ...             ENTER RETURN
060213,000142: 
060214,000143:                                                                                                  #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
060215,000144:                                                                                                  #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
060216,000145:                                                                                                  #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
060217,000146: 
060218,000147:                                                                                                  #  GOPERF3 BLANKS REGISTERS R2 AND R3
060219,000148: 
060220,000149:                                                                                                  #                                                   CAF    DECXX           REQUEST PERFORM ON PXX
060221,000150:                                                                                                  #                                                   TC     BANKCALL
060222,000151:                                                                                                  #                                                   CADR   GOPERF3
060223,000152:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060224,000153:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060225,000154:                                                                                                  #                                                   ...    ...             ENTER RETURN
060226,000155: 
060227,000156:                                                                                                  #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
060228,000157:                                                                                                  #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING  V50N06 FOR A PLEASE PERFORM. NO
060229,000158:                                                                                                  #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
060230,000159: 
060231,000160:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTION XX
060232,000161:                                                                                                  #                                                   TC     BANKCALL
060233,000162:                                                                                                  #                                                   CADR   GOPERF4
060234,000163:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060235,000164:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060236,000165:                                                                                                  #                                                   ...    ...             ENTER RETURN
060237,000166: 
060238,000167:                                                                                                  #  GOPERF4 BLANKS REGISTER R3

Page 1419

060240,000169:                                                                                                  #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
060241,000170:                                                                                                  #  OUT.
060242,000171: 
060243,000172:                                                                                                  #                                                   CAF    VXXNYY
060244,000173:                                                                                                  #                                                   TC     BANKCALL
060245,000174:                                                                                                  #                                                   CADR   GODSPRET
060246,000175: 
060247,000176:                                                                                                  #                                                   ...    ...             RETURN TO USER
060248,000177: 
060249,000178:                                                                                                  #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
060250,000179:                                                                                                  #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
060251,000180: 
060252,000181:                                                                                                  #                                                   CAF    VXXNYY
060253,000182:                                                                                                  #                                                   TC     BANKCALL
060254,000183:                                                                                                  #                                                   CADR   REGODSP
060255,000184: 
060256,000185:                                                                                                  #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
060257,000186: 
060258,000187:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
060259,000188:                                                                                                  #                                                   TC     BANKCALL
060260,000189:                                                                                                  #                                                   CADR   REFLASH
060261,000190:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060262,000191:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060263,000192:                                                                                                  #                                                   ...    ...             ENTER RETURN
060264,000193: 
060265,000194:                                                                                                  #  GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060266,000195: 
060267,000196:                                                                                                  #                                                   CAF    VXXNYY
060268,000197:                                                                                                  #                                                   TC     BANKCALL
060269,000198:                                                                                                  #                                                   CADR   GOFLASHR
060270,000199:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060271,000200:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060272,000201:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060273,000202: 
060274,000203:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOFLASHR
060275,000204: 
060276,000205:                                                                                                  #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
060277,000206: 
060278,000207:                                                                                                  #  GOPERF1R BLANKS REGISTERS R2 AND R3
060279,000208: 
060280,000209:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX.
060281,000210:                                                                                                  #                                                   TC     BANKCALL
060282,000211:                                                                                                  #                                                   CADR   GOPERF1R
060283,000212:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060284,000213:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060285,000214:                                                                                                  #                                                   ...    ...             ENTER RETURN
060286,000215: 
060287,000216:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOPERF1R
060288,000217: 
060289,000218:                                                                                                  #  GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.

Page 1420

060291,000220:                                                                                                  #  GOPERF2R DOES NOT BLANK ANY REGISTERS
060292,000221: 
060293,000222:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
060294,000223:                                                                                                  #                                                   TC     BANKCALL
060295,000224:                                                                                                  #                                                   CADR   GOPERF2R
060296,000225:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060297,000226:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060298,000227:                                                                                                  #                                                   ...    ...             ENTER RETURN
060299,000228: 
060300,000229:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN HERE FROM GOPERF2R
060301,000230: 
060302,000231:                                                                                                  #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060303,000232: 
060304,000233:                                                                                                  #  GOPERF3R BLANKS REGISTERS R2 AND R3
060305,000234: 
060306,000235:                                                                                                  #                                                   CAF    PROGXX          PERFORM PROGRAM XX
060307,000236:                                                                                                  #                                                   TC     BANKCALL
060308,000237:                                                                                                  #                                                   CADR   GOPERF3R
060309,000238:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060310,000239:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060311,000240:                                                                                                  #                                                   ...    ...             ENTER RETURN
060312,000241: 
060313,000242:                                                                                                  #                                                   ...    ...             GOPERF3R IMMEDIATELY RETURNS HERE
060314,000243: 
060315,000244:                                                                                                  #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060316,000245: 
060317,000246:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTIONXX
060318,000247:                                                                                                  #                                                   TC     BANKCALL
060319,000248:                                                                                                  #                                                   CADR   GOPERF4R
060320,000249:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060321,000250:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060322,000251:                                                                                                  #                                                   ...    ...             ENTER RETURN
060323,000252: 
060324,000253:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
060325,000254: 
060326,000255:                                                                                                  #  GOPERF4R BLANKS REGISTER R3
060327,000256: 
060328,000257:                                                                                                  #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060329,000258: 
060330,000259:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
060331,000260:                                                                                                  #                                                   TC     BANKCALL
060332,000261:                                                                                                  #                                                   CADR   REFLASHR
060333,000262:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060334,000263:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060335,000264:                                                                                                  #                                                   ...    ...             ENTER RETURN
060336,000265: 
060337,000266:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
060338,000267: 
060339,000268:                                                                                                  #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
060340,000269: 

Page 1421

060342,000271:                                                                                                  #                                                   CAF    VXXNYY
060343,000272:                                                                                                  #                                                   TC     BANKCALL
060344,000273:                                                                                                  #                                                   CADR   REGODSPR
060345,000274: 
060346,000275:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
060347,000276: 

Page 1422

060349,000278:                                                                                                  #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
060350,000279: 
060351,000280:                                                                                                  #  GOXDSP = GOMARK
060352,000281: 
060353,000282:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY CONTAINS VERB AND NOUN
060354,000283:                                                                                                  #                                                   TC     BANKCALL
060355,000284:                                                                                                  #                                                   CADR   GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
060356,000285: 
060357,000286:                                                                                                  #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
060358,000287: 
060359,000288:                                                                                                  #  GOXDSPR = GOMARKR
060360,000289: 
060361,000290:                                                                                                  #                                                   CAF    VXXNYY
060362,000291:                                                                                                  #                                                   TC     BANKCALL
060363,000292:                                                                                                  #                                                   CADR   GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
060364,000293: 
060365,000294:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GOMARKR
060366,000295: 
060367,000296:                                                                                                  #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
060368,000297:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE ).
060369,000298: 
060370,000299:                                                                                                  #  GOXDSPF = GOMARKF
060371,000300: 
060372,000301:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
060373,000302:                                                                                                  #                                                   TC     BANKCALL
060374,000303:                                                                                                  #                                                   CADR   GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
060375,000304:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060376,000305:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060377,000306:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060378,000307: 
060379,000308:                                                                                                  #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
060380,000309: 
060381,000310:                                                                                                  #  GOXDSPFR = GOMARKFR
060382,000311: 
060383,000312:                                                                                                  #                                                   CAF    VXXNYY          FLASHING MARK VERB NOUN
060384,000313:                                                                                                  #                                                   TC     BANKCALL
060385,000314:                                                                                                  #                                                   CADR   GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
060386,000315:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060387,000316:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060388,000317:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060389,000318: 
060390,000319:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
060391,000320: 
060392,000321:                                                                                                  #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
060393,000322:                                                                                                  #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
060394,000323:                                                                                                  #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
060395,000324:                                                                                                  #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
060396,000325: 
060397,000326:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   Y= NOUN
060398,000327:                                                                                                  #                                                   TC     BANKCALL

Page 1423

060400,000329:                                                                                                  #                                                   CADR   GOMARK1
060401,000330: 
060402,000331:                                                                                                  #                                                   ...    ...             ENTER RETURN
060403,000332: 
060404,000333:                                                                                                  #  *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
060405,000334: 
060406,000335:                                                                                                  #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
060407,000336:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4    YY = NOUN
060408,000337:                                                                                                  #                                                   TC     BANKCALL
060409,000338:                                                                                                  #                                                   CADR   GOMARK1R
060410,000339: 
060411,000340:                                                                                                  #                                                   ...    ...             ASTRONAUT ENTER RETURN
060412,000341:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
060413,000342: 
060414,000343:                                                                                                  #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
060415,000344:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   YY=NOUN
060416,000345:                                                                                                  #                                                   TC     BANKCALL
060417,000346:                                                                                                  #                                                   CADR   GOMARK2
060418,000347:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060419,000348:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060420,000349:                                                                                                  #                                                   ...    ...             ENTER RETURN
060421,000350:                                                                                                  #  GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
060422,000351: 
060423,000352:                                                                                                  #                                                   CAF    V5XNYY          X=0,1,2,3,4   YY=NOUN
060424,000353:                                                                                                  #                                                   TC     BANKCALL
060425,000354:                                                                                                  #                                                   CADR   GOMARK2R
060426,000355:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060427,000356:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060428,000357:                                                                                                  #                                                   ...    ...             ENTER RETURN
060429,000358: 
060430,000359:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
060431,000360: 
060432,000361:                                                                                                  #  GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY.  THE DESIRED MARK PLEASE
060433,000362:                                                                                                  #  PERFORM VERB AND NOUN ARE ENTERED IN A.  GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
060434,000363:                                                                                                  #  V5XNYY FOR A PLEASE PERFORM.  GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
060435,000364: 
060436,000365:                                                                                                  #                                                   CAF    V5XNYY          X=1, 2,3,4 YY=NOUN
060437,000366:                                                                                                  #                                                   TC     BANKCALL
060438,000367:                                                                                                  #                                                   CADR   GOMARK3
060439,000368:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060440,000369:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060441,000370:                                                                                                  #                                                   ...    ...             ENTER RETURN
060442,000371: 
060443,000372:                                                                                                  #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
060444,000373: 
060445,000374:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4 YY=NOUN
060446,000375:                                                                                                  #                                                   TC     BANKCALL
060447,000376:                                                                                                  #                                                   CADR   GOMARK4
060448,000377:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060449,000378:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1424

060451,000380:                                                                                                  #                                                   ...    ...             ENTER RETURN
060452,000381: 
060453,000382:                                                                                                  #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
060454,000383:                                                                                                  #  SENT OUT.
060455,000384: 
060456,000385:                                                                                                  #                                                   CAF    VXXNYY
060457,000386:                                                                                                  #                                                   TC     BANKCALL
060458,000387:                                                                                                  #                                                   CADR   EXDSPRET
060459,000388: 
060460,000389:                                                                                                  #                                                   ...    ...             RETURN TO USER
060461,000390: 
060462,000391:                                                                                                  #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
060463,000392:                                                                                                  #  HAVE BEEN CLEANED OUT.
060464,000393: 
060465,000394:                                                                                                  #                                                   TC     BANKCALL
060466,000395:                                                                                                  #                                                   CADR   KLEENEX
060467,000396: 
060468,000397:                                                                                                  #                                                   ...    ...             RETURN TO USER
060469,000398: 
060470,000399:                                                                                                  #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
060471,000400: 
060472,000401:                                                                                                  #                                                   TC     BANKCALL
060473,000402:                                                                                                  #                                                   CADR   MARKBRAN
060474,000403:                                                                                                  #                                                   ...    ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
060475,000404: 
060476,000405:                                                                                                  #                                                                          (GOOD RETURN TO IMMEDIATE RETURN LOC OF
060477,000406:                                                                                                  #                                                                          LAST FLASHING MARK R ROUTINE)
060478,000407: 
060479,000408:                                                                                                  #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
060480,000409:                                                                                                  #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
060481,000410: 
060482,000411:                                                                                                  #                                                   TC     POSTJUMP
060483,000412:                                                                                                  #                                                   CADR   PINBRNCH
060484,000413: 
060485,000414:                                                                                                  #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
060486,000415:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
060487,000416: 
060488,000417:                                                                                                  #       THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
060489,000418:                                                                                                  #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
060490,000419:                                                                                                  #  IS RESPONDED TO BY THE ASTRONAUT.
060491,000420: 
060492,000421:                                                                                                  #       THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
060493,000422:                                                                                                  #  PRIO DISPLAY.
060494,000423: 
060495,000424:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
060496,000425:                                                                                                  #                                                   TC     BANKCALL
060497,000426:                                                                                                  #                                                   CADR   PRIODSP
060498,000427:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060499,000428:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1425

060501,000430:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060502,000431: 
060503,000432:                                                                                                  #  PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE  USERS CALL CADR +4.
060504,000433: 
060505,000434:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
060506,000435:                                                                                                  #                                                   TC     BANKCALL
060507,000436:                                                                                                  #                                                   CADR   PRIODSPR
060508,000437:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060509,000438:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060510,000439:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060511,000440: 
060512,000441:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN
060513,000442: 
060514,000443:                                                                                                  #  PRIOLARM DOES A V05N09 PRIODSPR.
060515,000444:                                                                                                  #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
060516,000445:                                                                                                  #  DISPLAYS ARE CLEANED OUT.
060517,000446: 
060518,000447:                                                                                                  #                                                   TC     BANKCALL
060519,000448:                                                                                                  #                                                   CADR   CLEANDSP
060520,000449: 
060521,000450:                                                                                                  #                                                   ...    ...             RETURN TO USER
060522,000451: 

Page 1426

060524,000453:                                                                                                  #  GENERAL INFORMATION
060525,000454:                                                                                                  #  ------- -----------
060526,000455: 
060527,000456: 
060528,000457:                                                                                                  #  ALARM OR ABORT EXIT MODES--
060529,000458: 
060530,000459:                                                                                                  #                                          PRIOBORT TC     ABORT
060531,000460:                                                                                                  #                                                   OCT    1502
060532,000461: 
060533,000462:                                                                                                  #  PRIOBORT IS BRANCED TO WHEN (1)  A NORMAL DISPLAY IS REQUESTED AND  ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
060534,000463:                                                                                                  #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
060535,000464:                                                                                                  #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
060536,000465: 
060537,000466: 
060538,000467:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
060539,000468: 
060540,000469:                                                                                                  #       ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
060541,000470:                                                                                                  #                                    2. NVSAVE = NORMAL VERB AND NOUN      REGISTER.
060542,000471:                                                                                                  #                                    3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
060543,000472: 
060544,000473: 
060545,000474:                                                                                                  #                                    5. R1SAVE = MARKBRAN CONTROL WORD
060546,000475:                                                                                                  #                                    4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
060547,000476:                                                                                                  #  OUTPUT--
060548,000477: 
060549,000478:                                                                                                  #       NVWORD = PRIO VERB AND NOUN
060550,000479:                                                                                                  #       NVWORD +1(MARKNV) = MARK VERB AND NOUN
060551,000480:                                                                                                  #       NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
060552,000481: 
060553,000482:                                                                                                  #       DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
060554,000483:                                                                                                  #       DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
060555,000484:                                                                                                  #       DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
060556,000485: 
060557,000486:                                                                                                  #       CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
060558,000487:                                                                                                  #       CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
060559,000488:                                                                                                  #       CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
060560,000489: 
060561,000490:                                                                                                  #       PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
060562,000491:                                                                                                  #       OPTION1 = DESIRED OPTION FROM GOPERF4
060563,000492:                                                                                                  #       FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
060564,000493:                                                                                                  #       DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
060565,000494:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
060566,000495:                                                                                                  #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
060567,000496:                                                                                                  #  DEBRIS-- (STORED INTO)
060568,000497: 
060569,000498:                                                                                                  #       TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
060570,000499:                                                                                                  #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                      4, FACEREG
060571,000500:                                                                                                  #       ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
060572,000501:                                                                                                  #       ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1427

060574,000503:                                                                                                  #       R1SAVE, MARK2PAC,
060575,000504: 
060576,000505: 
060577,000506:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
060578,000507:                                                                                                  #  FLAGWORD DESCRIPTIONS--
060579,000508:                                                                                                  #      FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
060580,000509: 
060581,000510:                                                                                                  #      DSPFLG, DSPFLG+1, DSPFLG +2-
060582,000511:                                                                                                  #      ----------------------------
060583,000512:                                                                                                  #  BITS 1 BLANK R1
060584,000513:                                                                                                  #       2 BLANK R2
060585,000514:                                                                                                  #       3 BLANK R3
060586,000515:                                                                                                  #       4 FLASHING DISPLAY REQUESTED
060587,000516:                                                                                                  #       5 PERFORM DISPLAY REQUESTED
060588,000517:                                                                                                  #       6 -----            EXDSPRET           GODSPRET
060589,000518:                                                                                                  #       7 PRIO DISPLAY     -----               -----
060590,000519:                                                                                                  #       8 -----         DEC MARK PERFORM      -----
060591,000520:                                                                                                  #       9 EBANK
060592,000521:                                                                                                  #      10 EBANK
060593,000522:                                                                                                  #      11 EBANK
060594,000523:                                                                                                  #      12 -----           -----       V99PASTE
060595,000524:                                                                                                  #      13 2ND PART OF PERFORM
060596,000525:                                                                                                  #      15 REFLASH OR REDO  -----           REFLASH OR REDO
060597,000526:                                                                                                  #      15 -----          MARK REQUEST          -----
060598,000527:                                                                                                  #  RESTARTING DISPLAYS--
060599,000528: 
060600,000529:                                                                                                  #  RULES FOR THE DSKY OPERATOR--
060601,000530: 
060602,000531:                                                                                                  #       1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
060603,000532:                                                                                                  #          AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
060604,000533:                                                                                                  #          RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
060605,000534:                                                                                                  #          WITH PROCEED AND TERMINATE FOR THIS REASON.
060606,000535:                                                                                                  #       2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
060607,000536:                                                                                                  #          PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
060608,000537:                                                                                                  #          DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
060609,000538:                                                                                                  #          IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
060610,000539:                                                                                                  #          OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
060611,000540:                                                                                                  #          CONSIDERATION.
060612,000541:                                                                                                  #       3. KEY RELEASE BUTTON-
060613,000542:                                                                                                  #          A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
060614,000543:                                                                                                  #          B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
060615,000544:                                                                                                  #             AWAITING RESPONSE  THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
060616,000545:                                                                                                  #          IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
060617,000546:                                                                                                  #          KEY RELEASE BUTTON MAY BE NECESSARY.
060618,000547:                                                                                                  #       4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
060619,000548:                                                                                                  #       5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
060620,000549:                                                                                                  #          OVER AGAIN.
060621,000550: 
060622,000551: 
060623,000552:                                                                                                  #  SPECIAL CONSIDERATIONS--

Page 1428

060625,000554:                                                                                                  #       1. MPAC +2  SAVED ONLY IN MARK DISPLAYS
060626,000555:                                                                                                  #       2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
060627,000556:                                                                                                  #       3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
060628,000557:                                                                                                  #       4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
060629,000558:                                                                                                  #       5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
060630,000559:                                                                                                  #          BY A .1 RESTART PHASE CHANGE.
060631,000560:                                                                                                  #       6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
060632,000561:                                                                                                  #          CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
060633,000562:                                                                                                  #       7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED  BEFORE THE TC BANKCALL.
060634,000563: 

Page 1429

060636,000565:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
060637,000566:                                                                                                  #                                                   CAF    BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
060638,000567:                                                                                                  #                                                   TC     BLANKET
060639,000568:                                                                                                  #                                                   ...    ...             RETURN TO USER HERE
060640,000569: 
060641,000570:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
060642,000571:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
060643,000572: 
060644,000573:    5415                                           BLOCK    02                                    
060645,000574:    4000                                           SETLOC   FFTAG4                                
060646,000575:    4000                                           BANK                                           
060647,000576: 
060648,000577:    5415                                           COUNT    02/DSPLA                              
060649,000578: 
060650,000579:    5415           54162        BLANKET            TS       MPAC       +6                         
060651,000580:    5416           40160                           CS       PLAYTEM4                              
060652,000581:    5417           70162                           MASK     MPAC       +6                         
060653,000582:    5420           50161                           INDEX    MPAC       +5                         
060654,000583:    5421           26160                           ADS      PLAYTEM4                              
060655,000584: 
060656,000585:    5422           00002                           TC       Q                                     
060657,000586: 
060658,000587:    5423           04574        ENDMARK            TC       POSTJUMP                              
060659,000588:    5424           20457                           CADR     MARKEND                               
060660,000589: 
060661,000590:    5425           34714        CLEARMRK           CAF      ZERO                                  
060662,000591:    5426           55044                           TS       EXTVBACT                              
060663,000592: 
060664,000593:    5427           00004                           INHINT                                         
060665,000594:    5430           44712                           CS       BIT1                                  
060666,000595:    5431           70100                           MASK     FLAGWRD4                              
060667,000596:    5432           54100                           TS       FLAGWRD4                              
060668,000597: 
060669,000598:    5433           00003                           RELINT                                         
060670,000599:    5434           00002                           TC       Q                                     
060671,000600:                                                                                                  #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
060672,000601:                                                                                                  #  FINISHED.
060673,000602: 
060674,000603: 10,2457                                           BANK     10                                    
060675,000604: 10,2000                                           SETLOC   DISPLAYS                              
060676,000605: 10,2000                                           BANK                                           
060677,000606: 
060678,000607: 10,2457                                           COUNT    10/DSPLA                              
060679,000608: 
060680,000609:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
060681,000610:                                                                                                  #  3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
060682,000611: 
060683,000612: 10,2457           05425        MARKEND            TC       CLEARMRK                              
060684,000613: 10,2460           13547                           TCF      MARKOVER                              
060685,000614: 

Page 1430

060687,000616: 10,2461           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP
060688,000617: 
060689,000618: 10,2462           34674        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
060690,000619: 10,2463           12626                           TCF      GOFLASH2                              
060691,000620: 
060692,000621: 10,2464           34714        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
060693,000622: 10,2465           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
060694,000623: 
060695,000624: 10,2466           33157                           CAF      MARKFMSK                              #  MARK,FLASH
060696,000625: 10,2467           12626                           TCF      GOFLASH2                              
060697,000626: 
060698,000627: 10,2470           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
060699,000628: 10,2471           33646        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
060700,000629: 10,2472           12626                           TCF      GOFLASH2                              
060701,000630: 
060702,000631: 10,2473           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
060703,000632: 10,2474           33633                           CAF      MARK3MSK                              
060704,000633: 10,2475           12626                           TCF      GOFLASH2                              
060705,000634: 
060706,000635: 10,2476           54155        GOMARK4            TS       PLAYTEM1                              
060707,000636: 10,2477           33634                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
060708,000637: 10,2500           12626                           TCF      GOFLASH2                              
060709,000638: 
060710,000639: 10,2501           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
060711,000640: 
060712,000641: 10,2502           34674                           CAF      BIT15                                 
060713,000642: 10,2503           12604                           TCF      GODSPR2                               
060714,000643: 
060715,000644: 10,2504           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
060716,000645: 
060717,000646: 10,2505           33157                           CAF      MARKFMSK                              
060718,000647: 10,2506           12765                           TCF      GODSPRS                               
060719,000648: 
060720,000649: 10,2507           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
060721,000650: 10,2510           33646                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
060722,000651: 10,2511           12765                           TCF      GODSPRS                               
060723,000652: 
060724,000653: 10,2512           54155        GOMARK3R           TS       PLAYTEM1                              
060725,000654: 10,2513           33633                           CAF      MARK3MSK                              
060726,000655: 10,2514           12765                           TCF      GODSPRS                               
060727,000656: 
060728,000657: 10,2515           34712        MAKEMARK           CAF      ONE                                   
060729,000658: 10,2516           03063                           TC       COPIES                                
060730,000659: 
060731,000660: 10,2517           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
060732,000661: 10,2520           73647                           MASK     OCT34300                              
060733,000662: 10,2521           10000                           CCS      A                                     
060734,000663: 10,2522           12560                           TCF      CHKPRIO                               
060735,000664: 
060736,000665: 10,2523           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY

Page 1431

060738,000667: 10,2524           74702                           MASK     BIT9                                  
060739,000668: 
060740,000669: 10,2525           00006                           EXTEND                                         
060741,000670: 10,2526           12530                           BZF      MARKPLAY                              #  NO
060742,000671: 
060743,000672: 10,2527           15112                           TCF      ENDOFJOB                              
060744,000673: 
060745,000674: 10,2530           00004        MARKPLAY           INHINT                                         
060746,000675: 10,2531           44715                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
060747,000676: 10,2532           70100                           MASK     FLAGWRD4                              
060748,000677: 10,2533           64712                           AD       ONE                                   
060749,000678: 10,2534           54100                           TS       FLAGWRD4                              
060750,000679: 10,2535           00003                           RELINT                                         
060751,000680: 
060752,000681: 10,2536           41070        GOGOMARK           CS       MARKFLAG                              #  PERFORM
060753,000682: 10,2537           74706                           MASK     BIT5                                  
060754,000683: 10,2540           10000                           CCS      A                                     
060755,000684: 10,2541           12544                           TCF      MARKCOP                               
060756,000685: 10,2542           40370                           CS       MARKNV                                
060757,000686: 10,2543           54370                           TS       MARKNV                                
060758,000687: 
060759,000688: 10,2544           34712        MARKCOP            CAF      ONE                                   #  MARK INDEX
060760,000689: 10,2545           12744                           TCF      PRIOPLAY                              
060761,000690: 
060762,000691: 10,2546           30165        COPYTOGO           CA       MPAC2SAV                              
060763,000692: 10,2547           54156                           TS       MPAC       +2                         
060764,000693: 
060765,000694: 10,2550           50164        COPYPACS           INDEX    COPINDEX                              
060766,000695: 10,2551           33657                           CAF      PRIOOCT                               
060767,000696: 10,2552           54162                           TS       GENMASK                               
060768,000697: 
060769,000698: 10,2553           50164                           INDEX    COPINDEX                              
060770,000699: 10,2554           31067                           CAF      EBANKSAV                              
060771,000700: 10,2555           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
060772,000701: 
060773,000702: 10,2556           54003                           TS       EBANK                                 
060774,000703: 
060775,000704: 10,2557           00002                           TC       Q                                     
060776,000705: 
060777,000706:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
060778,000707:                                                                                                  #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
060779,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
060780,000709:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
060781,000710: 
060782,000711:                                                                                                  #       IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
060783,000712:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
060784,000713: 
060785,000714: 10,2560           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
060786,000715: 10,2561           73402                           MASK     OCT24100                              
060787,000716: 10,2562           10000                           CCS      A                                     
060788,000717: 10,2563           13602                           TCF      MARSLEEP                              

Page 1432

060790,000719: 10,2564           40100                           CS       FLAGWRD4                              
060791,000720: 10,2565           74710                           MASK     BIT3                                  #  SET MARK OVER NORM
060792,000721: 10,2566           00004                           INHINT                                         
060793,000722: 10,2567           26100                           ADS      FLAGWRD4                              
060794,000723: 
060795,000724: 10,2570           12662                           TCF      SETNORM                               
060796,000725: 
060797,000726: 10,2571           30370        MARKPERF           CA       MARKNV                                
060798,000727: 10,2572           74160                           MASK     VERBMASK                              
060799,000728: 10,2573           13246                           TCF      NV50DSP                               
060800,000729: 
060801,000730: 10,2574           54155        GODSP              TS       PLAYTEM1                              
060802,000731: 
060803,000732: 10,2575           34714        GODSP2             CAF      ZERO                                  
060804,000733: 10,2576           12626                           TCF      GOFLASH2                              
060805,000734: 
060806,000735: 10,2577           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
060807,000736: 
060808,000737: 10,2600           34705                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
060809,000738: 10,2601           12626                           TCF      GOFLASH2                              
060810,000739: 
060811,000740: 10,2602           54155        GODSPR             TS       PLAYTEM1                              
060812,000741: 
060813,000742: 10,2603           34714        GODSPR1            CAF      ZERO                                  
060814,000743: 10,2604           54160        GODSPR2            TS       PLAYTEM4                              
060815,000744: 
060816,000745: 10,2605           34714                           CAF      ZERO                                  #  * DONT MOVE
060817,000746: 10,2606           12767                           TCF      GODSPRS1                              
060818,000747: 
060819,000748:                                                                                                  #       CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
060820,000749:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
060821,000750: 
060822,000751:                                                                                                  #       NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
060823,000752:                                                                                                  #  OLD DISPLAY.
060824,000753: 
060825,000754:                                                                                                  #       CALLING SEQUENCE FOR CLEANDSP-
060826,000755: 
060827,000756:                                                                                                  #                                                   TC     BANKCALL
060828,000757:                                                                                                  #                                                   CADR   CLEANDSP
060829,000758: 
060830,000759: 10,2607           34714        CLEANDSP           CAF      ZERO                                  
060831,000760: 10,2610           54155        REFLASH            TS       PLAYTEM1                              
060832,000761: 
060833,000762: 10,2611           33632                           CAF      REDOMASK                              #  FLASH AND PERMIT
060834,000763: 10,2612           12626                           TCF      GOFLASH2                              
060835,000764: 
060836,000765: 10,2613           54155        REFLASHR           TS       PLAYTEM1                              
060837,000766: 
060838,000767: 10,2614           33632                           CAF      REDOMASK                              #  FLASH AND PERMIT
060839,000768: 10,2615           12765                           TCF      GODSPRS                               

Page 1433

060841,000770: 10,2616           54155        REGODSP            TS       PLAYTEM1                              
060842,000771: 
060843,000772: 10,2617           34675                           CAF      BIT14                                 
060844,000773: 10,2620           12626                           TCF      GOFLASH2                              
060845,000774: 
060846,000775: 10,2621           54155        REGODSPR           TS       PLAYTEM1                              
060847,000776: 
060848,000777: 10,2622           34675                           CAF      BIT14                                 
060849,000778: 10,2623           12604                           TCF      GODSPR2                               
060850,000779: 
060851,000780: 10,2624           54155        GOFLASH            TS       PLAYTEM1                              
060852,000781: 
060853,000782: 10,2625           34707                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
060854,000783: 10,2626           54160        GOFLASH2           TS       PLAYTEM4                              
060855,000784: 
060856,000785: 10,2627           03050                           TC       SAVELOCS                              
060857,000786: 
060858,000787: 10,2630           00003                           RELINT                                         
060859,000788: 
060860,000789: 10,2631           12674                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
060861,000790: 
060862,000791: 10,2632           54155        PRIODSPR           TS       PLAYTEM1                              
060863,000792: 
060864,000793: 10,2633           33651                           CAF      BITS7+4                               
060865,000794: 10,2634           12765                           TCF      GODSPRS                               
060866,000795: 
060867,000796: 10,2635           54155        PRIODSP            TS       PLAYTEM1                              
060868,000797: 
060869,000798: 10,2636           33651        SETPRIO            CAF      BITS7+4                               
060870,000799: 10,2637           12626                           TCF      GOFLASH2                              
060871,000800: 
060872,000801: 10,2640           34714        MAKEPRIO           CAF      ZERO                                  
060873,000802: 10,2641           54164                           TS       COPINDEX                              
060874,000803: 
060875,000804: 10,2642           03522                           TC       LINUSCHR                              
060876,000805: 10,2643           12650                           TCF      HIPRIO                                #  LINUS RETURN
060877,000806: 10,2644           30100                           CA       FLAGWRD4                              
060878,000807: 10,2645           73670                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
060879,000808: 10,2646           10000                           CCS      A                                     
060880,000809: 10,2647           12723                           TCF      PRIOBORT                              #  YES, ABORT
060881,000810: 
060882,000811: 10,2650           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
060883,000812: 10,2651           75612                           MASK     OCT40400                              
060884,000813: 10,2652           00006                           EXTEND                                         
060885,000814: 10,2653           12656                           BZF      ASKIFNRM                              #  NO
060886,000815: 
060887,000816: 10,2654           34714        SETMARK            CAF      ZERO                                  
060888,000817: 10,2655           13122                           TCF      JOBXCHS                               
060889,000818: 
060890,000819: 10,2656           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE

Page 1434

060892,000821: 10,2657           73666                           MASK     OCT10200                              #  BITS 13+8
060893,000822: 10,2660           00006                           EXTEND                                         
060894,000823: 10,2661           12664                           BZF      OKTOCOPY                              #  NO
060895,000824: 
060896,000825: 10,2662           34712        SETNORM            CAF      ONE                                   
060897,000826: 10,2663           13122                           TCF      JOBXCHS                               
060898,000827: 
060899,000828: 10,2664           03062        OKTOCOPY           TC       COPYNORM                              
060900,000829: 10,2665           03333                           TC       WITCHONE                              
060901,000830: 
060902,000831: 10,2666           05074                           TC       JOBWAKE                               
060903,000832: 
060904,000833: 10,2667           03350                           TC       XCHTOEND                              
060905,000834: 
060906,000835: 10,2670           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
060907,000836: 10,2671           55147                           TS       PRIOTIME                              
060908,000837: 
060909,000838: 10,2672           34714        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
060910,000839: 10,2673           12744                           TCF      PRIOPLAY                              
060911,000840: 
060912,000841: 10,2674           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
060913,000842: 10,2675           77674                           MASK     PRIO37                                
060914,000843: 10,2676           54163                           TS       USERPRIO                              
060915,000844: 
060916,000845: 10,2677           37670                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
060917,000846: 10,2700           05103                           TC       PRIOCHNG                              
060918,000847: 
060919,000848: 10,2701           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
060920,000849: 10,2702           73650                           MASK     BITS15+7                              
060921,000850: 10,2703           10000                           CCS      A                                     
060922,000851: 10,2704           12640                           TCF      MAKEPRIO                              #  ITS PRIO
060923,000852: 10,2705           12707                           TCF      IFLEGAL                               
060924,000853: 10,2706           12515                           TCF      MAKEMARK                              #  ITS MARK
060925,000854: 
060926,000855: 10,2707           34711        IFLEGAL            CAF      TWO                                   
060927,000856: 10,2710           54164                           TS       COPINDEX                              
060928,000857: 
060929,000858: 10,2711           03522                           TC       LINUSCHR                              
060930,000859: 
060931,000860: 10,2712           12725                           TCF      OKTOPLAY                              #  LINUS RETURN
060932,000861: 10,2713           41071                           CS       EBANKTEM                              
060933,000862: 10,2714           74707                           MASK     BIT4                                  
060934,000863: 10,2715           10000                           CCS      A                                     
060935,000864: 10,2716           12725                           TCF      OKTOPLAY                              #  NO
060936,000865: 
060937,000866: 10,2717           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP
060938,000867: 10,2720           73641                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
060939,000868: 10,2721           00006                           EXTEND                                         
060940,000869: 10,2722           12725                           BZF      OKTOPLAY                              #  NO
060941,000870: 

Page 1435

060943,000872: 10,2723           05622        PRIOBORT           TC       POODOO                                
060944,000873: 10,2724           01502                           OCT      1502                                  
060945,000874: 
060946,000875: 10,2725           03064        OKTOPLAY           TC       COPIES2                               
060947,000876: 
060948,000877: 10,2726           30163                           CA       USERPRIO                              
060949,000878: 10,2727           00006                           EXTEND                                         
060950,000879: 10,2730           04007                           ROR      SUPERBNK                              
060951,000880: 10,2731           54366                           TS       RESTREG                               
060952,000881: 
060953,000882: 10,2732           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
060954,000883: 10,2733           73642                           MASK     PMMASK                                
060955,000884: 10,2734           10000                           CCS      A                                     
060956,000885: 10,2735           13102                           TCF      GOSLEEPS                              #  YES
060957,000886: 
060958,000887: 10,2736           12740                           TCF      +2                                    
060959,000888: 10,2737           13102                           TCF      GOSLEEPS                              #  MARK GOING
060960,000889: 
060961,000890:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
060962,000891: 10,2740           03333                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
060963,000892: 10,2741           05074                           TC       JOBWAKE                               
060964,000893: 
060965,000894: 10,2742           03350                           TC       XCHTOEND                              
060966,000895: 
060967,000896: 10,2743           34711        PLAYJUM1           CAF      TWO                                   
060968,000897: 10,2744           54164        PRIOPLAY           TS       COPINDEX                              
060969,000898: 
060970,000899: 10,2745           13216                           TCF      GOPLAY                                
060971,000900: 
060972,000901: 10,2746           54155        EXDSPRET           TS       PLAYTEM1                              
060973,000902: 
060974,000903: 10,2747           37703                           CAF      BIT15+6                               
060975,000904: 10,2750           12626                           TCF      GOFLASH2                              
060976,000905: 
060977,000906: 10,2751           55045        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
060978,000907: 10,2752           33624                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
060979,000908: 
060980,000909: 10,2753           54155        GOPERFS            TS       PLAYTEM1                              
060981,000910: 
060982,000911: 10,2754           33623                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
060983,000912: 10,2755           12626                           TCF      GOFLASH2                              
060984,000913: 
060985,000914: 10,2756           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
060986,000915: 
060987,000916: 10,2757           33627                           CAF      PERF2MSK                              
060988,000917: 10,2760           12626                           TCF      GOFLASH2                              
060989,000918: 
060990,000919: 10,2761           03043        GOPERF4            TC       PURRS4                                
060991,000920: 
060992,000921: 10,2762           12626                           TCF      GOFLASH2                              

Page 1436

060994,000923: 10,2763           54155        GOFLASHR           TS       PLAYTEM1                              
060995,000924: 
060996,000925: 10,2764           34707                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
060997,000926: 10,2765           54160        GODSPRS            TS       PLAYTEM4                              
060998,000927: 
060999,000928: 10,2766           36214                           CAF      THREE                                 
061000,000929: 
061001,000930: 10,2767           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
061002,000931: 10,2770           54072                           TS       RUPTREG3                              
061003,000932: 
061004,000933: 10,2771           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
061005,000934: 10,2772           77674                           MASK     PRIO37                                
061006,000935: 10,2773           54063                           TS       NEWPRIO                               
061007,000936: 
061008,000937: 10,2774           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
061009,000938: 10,2775           74707                           MASK     BIT4                                  
061010,000939: 10,2776           10000                           CCS      A                                     
061011,000940: 10,2777           13005                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
061012,000941: 10,3000           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
061013,000942: 10,3001           05027                           TC       NOVAC                                 
061014,000943: 10,3002  0003777                                  EBANK=   WHOCARES                              
061015,000944: 10,3002           02674 20107                     2CADR    MAKEPLAY                              
061016,000945: 10,3004           13013                           TCF      BOTHJOBS                              
061017,000946: 
061018,000947: 10,3005           30006        VACDSP             CA       BBANK                                 
061019,000948: 10,3006           00006                           EXTEND                                         
061020,000949: 10,3007           04007                           ROR      SUPERBNK                              
061021,000950: 10,3010           54001                           TS       L                                     
061022,000951: 10,3011           33665                           CAF      MAKEGEN                               
061023,000952: 10,3012           05053                           TC       SPVAC                                 
061024,000953: 
061025,000954: 10,3013           03050        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
061026,000955: 
061027,000956: 10,3014           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
061028,000957: 10,3015           30156                           DCA      MPAC       +1                         
061029,000958: 10,3016           50064                           INDEX    LOCCTR                                
061030,000959: 10,3017           52156                           DXCH     MPAC       +1                         
061031,000960: 
061032,000961: 10,3020           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
061033,000962: 10,3021           30160                           DCA      MPAC       +3                         
061034,000963: 10,3022           50064                           INDEX    LOCCTR                                
061035,000964: 10,3023           52160                           DXCH     MPAC       +3                         
061036,000965: 
061037,000966: 10,3024           30064                           CA       LOCCTR                                
061038,000967: 10,3025           54161                           TS       MPAC       +5                         
061039,000968: 
061040,000969: 10,3026           03055                           TC       SAVELOCR                              
061041,000970: 10,3027           00003                           RELINT                                         
061042,000971: 

Page 1437

061044,000973: 10,3030           14577                           TCF      BANKJUMP                              #  CALL CADR +4
061045,000974: 
061046,000975: 10,3031           55045        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
061047,000976: 
061048,000977: 10,3032           33624                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
061049,000978: 
061050,000979: 10,3033           54155        GOPERFRS           TS       PLAYTEM1                              
061051,000980: 
061052,000981: 10,3034           33623                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
061053,000982: 10,3035           12765                           TCF      GODSPRS                               
061054,000983: 
061055,000984: 10,3036           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
061056,000985: 
061057,000986: 10,3037           33627                           CAF      PERF2MSK                              
061058,000987: 10,3040           12765                           TCF      GODSPRS                               
061059,000988: 
061060,000989: 10,3041           03043        GOPERF4R           TC       PURRS4                                
061061,000990: 
061062,000991: 10,3042           12765                           TCF      GODSPRS                               
061063,000992: 
061064,000993: 10,3043           55131        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
061065,000994: 
061066,000995: 10,3044           33630                           CAF      V04N06                                
061067,000996: 10,3045           54155                           TS       PLAYTEM1                              
061068,000997: 
061069,000998: 10,3046           33631                           CAF      PERF4MSK                              #  FLASH,PERFORM AND BLANK R3
061070,000999: 10,3047           00002                           TC       Q                                     
061071,001000: 
061072,001001: 10,3050           00004        SAVELOCS           INHINT                                         
061073,001002: 
061074,001003: 10,3051           43640                           CS       OCT3400                               #  EBANK BITS
061075,001004: 10,3052           70160                           MASK     PLAYTEM4                              
061076,001005: 10,3053           60003                           AD       EBANK                                 
061077,001006: 10,3054           54160                           TS       PLAYTEM4                              
061078,001007: 
061079,001008: 10,3055           22002        SAVELOCR           LXCH     Q                                     
061080,001009: 
061081,001010: 10,3056           04604                           TC       MAKECADR                              
061082,001011: 10,3057           54157                           TS       PLAYTEM3                              
061083,001012: 
061084,001013: 10,3060           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
061085,001014: 10,3061           00001                           TC       L                                     
061086,001015: 
061087,001016: 10,3062           34714        COPYNORM           CAF      ZERO                                  
061088,001017: 10,3063           54164        COPIES             TS       COPINDEX                              
061089,001018: 10,3064           00004        COPIES2            INHINT                                         
061090,001019: 10,3065           30160                           CA       PLAYTEM4                              #  FLAGWORD
061091,001020: 10,3066           50164                           INDEX    COPINDEX                              
061092,001021: 10,3067           55067                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
061093,001022: 

Page 1438

061095,001024: 10,3070           73656                           MASK     CADRMASK                              #  FLASH AND GODSPRET
061096,001025: 10,3071           00006                           EXTEND                                         
061097,001026: 10,3072           13076                           BZF      SKIPADD                               
061098,001027: 
061099,001028: 10,3073           30157                           CA       PLAYTEM3                              
061100,001029: 10,3074           50164                           INDEX    COPINDEX                              
061101,001030: 10,3075           54372                           TS       CADRFLSH                              
061102,001031: 
061103,001032: 10,3076           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
061104,001033: 10,3077           50164                           INDEX    COPINDEX                              
061105,001034: 10,3100           54367                           TS       NVWORD                                
061106,001035: 
061107,001036: 10,3101           13357                           TCF      RELINTQ                               
061108,001037: 
061109,001038: 10,3102           50164        GOSLEEPS           INDEX    COPINDEX                              
061110,001039: 10,3103           33657                           CA       PRIOOCT                               
061111,001040: 10,3104           73106                           MASK     WAITMASK                              
061112,001041: 10,3105           07717                           TC       UPENT2                                
061113,001042: 10,3106           03004        WAITMASK           OCT      3004                                  
061114,001043: 10,3107           44712                           CS       ONE                                   
061115,001044: 10,3110           60164                           AD       COPINDEX                              
061116,001045: 10,3111           54154                           TS       FACEREG                               
061117,001046: 
061118,001047: 10,3112           50154        XCHSLEEP           INDEX    FACEREG                               
061119,001048: 10,3113           33636                           CAF      WAKECADR                              
061120,001049: 10,3114           00004                           INHINT                                         
061121,001050: 10,3115           05074                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
061122,001051: 
061123,001052: 10,3116           03350                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
061124,001053: 
061125,001054: 10,3117           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
061126,001055: 10,3120           33636                           CAF      WAKECADR                              
061127,001056: 10,3121           15070                           TCF      JOBSLEEP                              
061128,001057: 
061129,001058: 10,3122           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
061130,001059: 10,3123           03333                           TC       WITCHONE                              
061131,001060: 10,3124           05074                           TC       JOBWAKE                               
061132,001061: 10,3125           30154                           CA       FACEREG                               
061133,001062: 10,3126           50064                           INDEX    LOCCTR                                
061134,001063: 10,3127           54154                           TS       FACEREG                               
061135,001064: 
061136,001065: 10,3130           33143                           CAF      XCHQADD                               
061137,001066: 10,3131           03351                           TC       XCHNYLOC                              
061138,001067: 
061139,001068: 10,3132           50154                           INDEX    FACEREG                               
061140,001069: 10,3133           33660                           CA       MARKOCT                               
061141,001070: 10,3134           73662                           MASK     IDLESLEP                              
061142,001071: 10,3135           07735                           TC       DOWNENT2                              
061143,001072: 10,3136           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
061144,001073: 

Page 1439

061146,001075: 10,3137           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
061147,001076: 10,3140           34706                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
061148,001077: 10,3141           64710                           AD       FOUR                                  
061149,001078: 10,3142           07717                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
061150,001079: 10,3143           03112        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
061151,001080: 10,3144           30100                           CA       FLAGWRD4                              
061152,001081: 10,3145           74710                           MASK     BIT3                                  #  IF BIT3 THEN MARK OVER NORM
061153,001082: 10,3146           10000                           CCS      A                                     
061154,001083: 10,3147           02530        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
061155,001084: 10,3150           12664                           TCF      OKTOCOPY                              
061156,001085: 
061157,001086: 10,3151           34714        MARKWAKE           CAF      ZERO                                  
061158,001087: 10,3152           54160        WAKEPLAY           TS       TEMPOR2                               
061159,001088: 
061160,001089: 10,3153           50160                           INDEX    TEMPOR2                               
061161,001090: 10,3154           33652                           CA       BITS5+11                              
061162,001091: 10,3155           64710                           AD       FOUR                                  
061163,001092: 10,3156           07735                           TC       DOWNENT2                              
061164,001093: 10,3157           40010        MARKFMSK           OCT      40010                                 #  ***DONT MOVE
061165,001094: 
061166,001095: 10,3160           50160                           INDEX    TEMPOR2                               
061167,001096: 10,3161           33636                           CAF      WAKECADR                              
061168,001097: 10,3162           00004                           INHINT                                         
061169,001098: 10,3163           05074                           TC       JOBWAKE                               
061170,001099: 
061171,001100: 10,3164           13463                           TCF      ENDRET                                
061172,001101: 
061173,001102:                                                                                                  #       ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
061174,001103:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
061175,001104:                                                                                                  #       IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
061176,001105:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
061177,001106: 
061178,001107: 10,3165           31071        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
061179,001108: 10,3166           54003                           TS       EBANK                                 
061180,001109: 
061181,001110: 10,3167           30366                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
061182,001111: 10,3170           04666                           TC       SUPERSW                               #  RESTORE SUPERBANK
061183,001112: 
061184,001113: 10,3171           77674                           MASK     PRIO37                                
061185,001114: 10,3172           05103                           TC       PRIOCHNG                              
061186,001115: 
061187,001116: 10,3173           46214                           CS       THREE                                 
061188,001117: 10,3174           60374                           AD       TEMPFLSH                              
061189,001118: 10,3175           14577                           TCF      BANKJUMP                              
061190,001119: 
061191,001120: 10,3176           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
061192,001121: 10,3177           31072                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
061193,001122: 10,3200           54156                           TS       MPAC       +2                         #  ONLY
061194,001123: 
061195,001124: 10,3201           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION

Page 1440

061197,001126: 10,3202           77707                           MASK     PINMASK                               
061198,001127: 10,3203           10000                           CCS      A                                     
061199,001128: 10,3204           13207                           TCF      +3                                    
061200,001129: 10,3205           13617                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
061201,001130: 10,3206           12530                           TCF      MARKPLAY                              
061202,001131: 
061203,001132: 10,3207           05435        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
061204,001133: 10,3210           00105                           ADRES    PINBRFLG                              
061205,001134: 
061206,001135: 10,3211           34675                           CAF      BIT14                                 #  PRIO INTERRUPTED
061207,001136: 10,3212           70100                           MASK     FLAGWRD4                              
061208,001137: 10,3213           10000                           CCS      A                                     
061209,001138: 10,3214           12672                           TCF      KEEPPRIO                              
061210,001139: 
061211,001140: 10,3215           12743                           TCF      PLAYJUM1                              
061212,001141: 
061213,001142: 10,3216           02550        NVDSP              TC       COPYPACS                              
061214,001143: 
061215,001144: 10,3217           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
061216,001145: 10,3220           74716                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
061217,001146: 10,3221           54001                           TS       L                                     
061218,001147: 
061219,001148: 10,3222           44676                           CS       BIT13                                 
061220,001149: 10,3223           50164                           INDEX    COPINDEX                              
061221,001150: 10,3224           71067                           MASK     DSPFLG                                
061222,001151: 10,3225           50164                           INDEX    COPINDEX                              
061223,001152: 10,3226           55067                           TS       DSPFLG                                
061224,001153: 
061225,001154: 10,3227           74703                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
061226,001155: 10,3230           54141                           TS       TEM1                                  
061227,001156: 
061228,001157: 10,3231           30156                           CA       MPAC       +2                         
061229,001158: 10,3232           54165                           TS       MPAC2SAV                              
061230,001159: 
061231,001160: 10,3233           55072                           TS       MARK2PAC                              #  * FOR DISK ONLY *
061232,001161: 10,3234           50164                           INDEX    COPINDEX                              
061233,001162: 10,3235           10367                           CCS      NVWORD                                
061234,001163: 10,3236           13245                           TCF      NVDSP1                                
061235,001164: 10,3237           13361                           TCF      CLEANEND                              
061236,001165: 10,3240           40370                           CS       MARKNV                                
061237,001166: 10,3241           54370                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
061238,001167: 10,3242           76043                           MASK     LOW7                                  
061239,001168: 10,3243           63643                           AD       V05N00M1                              
061240,001169: 10,3244           60141                           AD       TEM1                                  
061241,001170: 10,3245           64712        NVDSP1             AD       ONE                                   
061242,001171: 10,3246           04171        NV50DSP            TC       NVMONOPT                              
061243,001172: 10,3247           13373                           TCF      REST                                  #  IF BUSY
061244,001173: 10,3250           04447                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
061245,001174: 
061246,001175: 10,3251           02546                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB

Page 1441

061248,001177: 10,3252           05447                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
061249,001178: 10,3253           00102                           ADRES    MRKNVFLG                              
061250,001179: 10,3254           05447                           TC       DOWNFLAG                              
061251,001180: 10,3255           00103                           ADRES    NRMNVFLG                              
061252,001181: 10,3256           05447                           TC       DOWNFLAG                              
061253,001182: 10,3257           00104                           ADRES    PRONVFLG                              
061254,001183: 10,3260           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
061255,001184: 10,3261           04271                           TC       BLANKSUB                              
061256,001185: 10,3262           13216                           TCF      NVDSP                                 
061257,001186: 10,3263           34706        PERFCHEK           CAF      BIT5                                  #  BIT 5 FOR PERFORM
061258,001187: 10,3264           70160                           MASK     TEMPOR2                               
061259,001188: 10,3265           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
061260,001189: 10,3266           13311                           TCF      1STOR2ND                              #  YES
061261,001190: 
061262,001191: 10,3267           34707        GOANIDLE           CAF      BIT4                                  
061263,001192: 10,3270           70160                           MASK     TEMPOR2                               
061264,001193: 10,3271           10000                           CCS      A                                     
061265,001194: 10,3272           13406                           TCF      FLASHSUB                              #  IT IS
061266,001195: 
061267,001196: 10,3273           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
061268,001197: 10,3274           74705                           MASK     BIT6                                  
061269,001198: 10,3275           10000                           CCS      A                                     
061270,001199: 10,3276           13303                           TCF      ISITN00                               
061271,001200: 
061272,001201: 10,3277           50164                           INDEX    COPINDEX                              
061273,001202: 10,3300           30372                           CA       CADRFLSH                              
061274,001203: 10,3301           54157                           TS       MPAC       +3                         
061275,001204: 10,3302           13501                           TCF      ENDIT                                 
061276,001205: 
061277,001206: 10,3303           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
061278,001207: 10,3304           30367                           CA       NVWORD                                
061279,001208: 10,3305           76043                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
061280,001209: 10,3306           00006                           EXTEND                                         
061281,001210: 10,3307           13406                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
061282,001211: 
061283,001212: 10,3310           15112                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
061284,001213: 
061285,001214: 10,3311           30160        1STOR2ND           CA       TEMPOR2                               
061286,001215: 10,3312           74676                           MASK     BIT13                                 
061287,001216: 10,3313           10000                           CCS      A                                     
061288,001217: 10,3314           13267                           TCF      GOANIDLE                              #  SECOND
061289,001218: 
061290,001219: 10,3315           34676                           CA       BIT13                                 
061291,001220: 10,3316           50164                           INDEX    COPINDEX                              
061292,001221: 10,3317           27067                           ADS      DSPFLG                                
061293,001222: 
061294,001223: 10,3320           22007                           ZL                                             
061295,001224: 10,3321           00006                           EXTEND                                         #  IS IT MARK
061296,001225: 10,3322           62571                           BZMF     MARKPERF                              #  YES
061297,001226: 

Page 1442

061299,001228: 10,3323           74677                           MASK     BIT12                                 
061300,001229: 10,3324           00006                           EXTEND                                         
061301,001230: 10,3325           13331                           BZF      V50PASTE                              
061302,001231: 10,3326           41145                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
061303,001232: 10,3327           63667                           AD       V97N00                                
061304,001233: 10,3330           13246                           TCF      NV50DSP                               
061305,001234: 10,3331           33626        V50PASTE           CAF      V50N00                                
061306,001235: 10,3332           13246                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
061307,001236: 
061308,001237: 10,3333           44706        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
061309,001238: 10,3334           00006                           EXTEND                                         
061310,001239: 10,3335           03011                           WAND     DSALMOUT                              
061311,001240: 
061312,001241: 10,3336           30100                           CA       FLAGWRD4                              
061313,001242: 10,3337           73644                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
061314,001243: 10,3340           10000                           CCS      A                                     
061315,001244: 10,3341           34712                           CAF      ONE                                   
061316,001245: 10,3342           54001                           TS       L                                     
061317,001246: 10,3343           34714                           CAF      ZERO                                  
061318,001247: 10,3344           50001                           INDEX    L                                     
061319,001248: 10,3345           57042                           XCH      CADRSTOR                              
061320,001249: 
061321,001250: 10,3346           00004                           INHINT                                         
061322,001251: 10,3347           00002                           TC       Q                                     
061323,001252: 
061324,001253: 10,3350           34233        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
061325,001254: 10,3351           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
061326,001255: 10,3352           00006                           EXTEND                                         
061327,001256: 10,3353           63357                           BZMF     RELINTQ                               #  NO
061328,001257: 10,3354           56064                           XCH      LOCCTR                                #  YES
061329,001258: 10,3355           50064                           INDEX    LOCCTR                                
061330,001259: 10,3356           54164                           TS       LOC                                   
061331,001260: 
061332,001261: 10,3357           00003        RELINTQ            RELINT                                         
061333,001262: 10,3360           00002                           TC       Q                                     #  BACK TO USER
061334,001263: 
061335,001264: 10,3361           37667        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
061336,001265: 10,3362           05042                           TC       FINDVAC                               
061337,001266: 10,3363     0371                                  EBANK=   NVSAVE                                
061338,001267: 10,3363           04245 04100                     2CADR    JAMTERM                               
061339,001268: 
061340,001269: 10,3365           13407                           TCF      FLASHSUB   +1                         
061341,001270: 
061342,001271: 10,3366           30100        ISITPRIO           CA       FLAGWRD4                              
061343,001272: 10,3367           73414                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
061344,001273: 10,3370           00006                           EXTEND                                         
061345,001274: 10,3371           12723                           BZF      PRIOBORT                              
061346,001275: 10,3372           15112                           TCF      ENDOFJOB                              
061347,001276: 

Page 1443

061349,001278: 10,3373           11042        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
061350,001279: 10,3374           15112                           TCF      ENDOFJOB                              #  YES
061351,001280: 10,3375           13377                           TCF      RESTSLEP                              
061352,001281: 
061353,001282: 10,3376           15112                           TCF      ENDOFJOB                              
061354,001283: 
061355,001284: 10,3377           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
061356,001285: 10,3400           73645                           MASK     ASTROMSK                              
061357,001286: 10,3401           07717                           TC       UPENT2                                
061358,001287: 10,3402           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
061359,001288: 
061360,001289: 10,3403           50164                           INDEX    COPINDEX                              
061361,001290: 10,3404           33635                           CAF      NVCADR                                
061362,001291: 10,3405           04456                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
061363,001292: 
061364,001293: 10,3406           04443        FLASHSUB           TC       FLASHON                               
061365,001294: 
061366,001295: 10,3407           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
061367,001296: 10,3410           54157                           TS       COPMPAC                               
061368,001297: 
061369,001298: 10,3411           30162                           CA       GENMASK                               
061370,001299: 10,3412           73136                           MASK     IDLEMASK                              
061371,001300: 10,3413           07717                           TC       UPENT2                                
061372,001301: 10,3414           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
061373,001302: 
061374,001303: 10,3415           31073                           CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
061375,001304: 10,3416           50164                           INDEX    COPINDEX                              
061376,001305: 10,3417           74710                           MASK     BIT3                                  
061377,001306: 10,3420           10000                           CCS      A                                     
061378,001307: 10,3421           13506                           TCF      UNSETR1                               #  YES
061379,001308: 
061380,001309: 10,3422           11042                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
061381,001310: 10,3423           13366                           TCF      ISITPRIO                              
061382,001311: 10,3424           13426                           TCF      +2                                    
061383,001312: 10,3425           13366                           TCF      ISITPRIO                              
061384,001313: 
061385,001314: 10,3426           04223                           TC       ENDIDLE                               
061386,001315: 10,3427           13520        IDLERET1           TCF      TERMATE                               
061387,001316: 
061388,001317: 10,3430           13537                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
061389,001318: 
061390,001319: 10,3431           43654                           CS       LOWLOAD                               
061391,001320: 10,3432           60154                           AD       MPAC                                  #  VERBREG
061392,001321: 10,3433           00006                           EXTEND                                         
061393,001322: 10,3434           26000                           DIM      A                                     
061394,001323: 10,3435           00006                           EXTEND                                         
061395,001324: 10,3436           13607                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
061396,001325: 10,3437           34711        OKTOENT            CAF      TWO                                   
061397,001326: 10,3440           54161        ENDOUT             TS       OUTHERE                               
061398,001327: 

Page 1444

061400,001329: 10,3441           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
061401,001330: 10,3442           74105                           MASK     OCT60000                              
061402,001331: 10,3443           10000                           CCS      A                                     
061403,001332: 10,3444           13447                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
061404,001333: 10,3445           13555                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
061405,001334: 10,3446           13541                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
061406,001335: 
061407,001336: 10,3447           40025        TIMECHEK           CS       TIME1                                 
061408,001337: 10,3450           61147                           AD       PRIOTIME                              
061409,001338: 10,3451           10000                           CCS      A                                     
061410,001339: 10,3452           40000                           COM                                            
061411,001340: 10,3453           67700                           AD       OCT37776                              
061412,001341: 10,3454           64712                           AD       ONE                                   
061413,001342: 10,3455           63677                           AD       -2SEC                                 
061414,001343: 10,3456           00006                           EXTEND                                         
061415,001344: 10,3457           62672                           BZMF     KEEPPRIO                              
061416,001345: 
061417,001346: 10,3460           13555                           TCF      NORMRET                               
061418,001347: 
061419,001348: 10,3461           34712        NORMWAKE           CAF      ONE                                   
061420,001349: 10,3462           13152                           TCF      WAKEPLAY                              
061421,001350: 
061422,001351: 10,3463           10161        ENDRET             CCS      OUTHERE                               
061423,001352: 10,3464           64712                           AD       ONE                                   
061424,001353: 10,3465           13467                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
061425,001354: 10,3466           15112                           TCF      ENDOFJOB                              
061426,001355: 10,3467           50157                           INDEX    COPMPAC                               
061427,001356: 10,3470           60372                           AD       CADRFLSH                              
061428,001357: 10,3471           54157                           TS       MPAC       +3                         
061429,001358: 
061430,001359: 10,3472           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
061431,001360: 10,3473           73475                           MASK     PINIDMSK                              
061432,001361: 10,3474           07735                           TC       DOWNENT2                              
061433,001362: 10,3475           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
061434,001363: 
061435,001364: 10,3476           46214                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
061436,001365: 10,3477           04170                           TC       NVSUB                                 
061437,001366: 10,3500           13501                           TCF      +1                                    
061438,001367: 
061439,001368: 10,3501           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
061440,001369: 10,3502           77674                           MASK     PRIO37                                
061441,001370: 10,3503           05103                           TC       PRIOCHNG                              
061442,001371: 10,3504           30157                           CA       MPAC       +3                         
061443,001372: 10,3505           14577                           TCF      BANKJUMP                              
061444,001373: 
061445,001374: 10,3506           50164        UNSETR1            INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
061446,001375: 10,3507           44710                           CS       BIT3                                  
061447,001376: 10,3510           71073                           MASK     R1SAVE                                
061448,001377: 10,3511           55073                           TS       R1SAVE                                
061449,001378: 

Page 1445

061451,001380: 10,3512           34714                           CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
061452,001381: 10,3513           04666                           TC       SUPERSW                               #  SUPERBANK 0
061453,001382: 
061454,001383: 10,3514           36214                 -1        CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
061455,001384: 10,3515           50164        IMMEDRET           INDEX    COPINDEX                              
061456,001385: 10,3516           60372                           AD       CADRFLSH                              
061457,001386: 10,3517           14577                           TCF      BANKJUMP                              
061458,001387: 
061459,001388: 10,3520           34714        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
061460,001389: 10,3521           13440                           TCF      ENDOUT                                
061461,001390: 
061462,001391: 10,3522           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
061463,001392: 10,3523           74675                           MASK     BIT14                                 
061464,001393: 10,3524           10000                           CCS      A                                     
061465,001394: 10,3525           16706                           TCF      Q+1                                   #  NO
061466,001395: 10,3526           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
061467,001396: 10,3527           50164                           INDEX    COPINDEX                              
061468,001397: 10,3530           60372                           AD       CADRFLSH                              
061469,001398: 10,3531           00006                           EXTEND                                         
061470,001399: 10,3532           13534                           BZF      +2                                    #  YES
061471,001400: 
061472,001401: 10,3533           00002                           TC       Q                                     #  NO
061473,001402: 10,3534           11012                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
061474,001403: 10,3535           05112                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
061475,001404: 10,3536           00002                           TC       Q                                     
061476,001405: 
061477,001406:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
061478,001407: 10,3537           34712        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
061479,001408: 10,3540           13440                           TCF      ENDOUT                                
061480,001409: 
061481,001410:                                                                                                  #       LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
061482,001411:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
061483,001412:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
061484,001413: 
061485,001414:                                                                                                  #       IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
061486,001415:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
061487,001416:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
061488,001417:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
061489,001418: 
061490,001419: 10,3541           46211        MARKRET            CS       SIX                                   
061491,001420: 10,3542           70100                           MASK     FLAGWRD4                              
061492,001421: 10,3543           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
061493,001422: 10,3544           54100                           TS       FLAGWRD4                              
061494,001423: 
061495,001424: 10,3545           00003                           RELINT                                         #  INHINT REALM
061496,001425: 10,3546           13463                           TCF      ENDRET                                
061497,001426: 
061498,001427: 10,3547           37716        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
061499,001428: 10,3550           54161                           TS       OUTHERE                               
061500,001429: 

Page 1446

061502,001431: 10,3551           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
061503,001432: 10,3552           74371                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
061504,001433: 10,3553           10000                           CCS      A                                     
061505,001434: 10,3554           13207                           TCF      NORMBNCH                              
061506,001435: 
061507,001436: 10,3555           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
061508,001437: 10,3556           73652                           MASK     BITS5+11                              #  OR WAITING
061509,001438: 10,3557           10000                           CCS      A                                     
061510,001439: 10,3560           13151                           TCF      MARKWAKE                              
061511,001440: 
061512,001441: 10,3561           30100                           CA       FLAGWRD4                              #  NO
061513,001442: 10,3562           73653                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
061514,001443: 10,3563           10000                           CCS      A                                     
061515,001444: 10,3564           13461                           TCF      NORMWAKE                              #  YES
061516,001445: 
061517,001446: 10,3565           31071                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
061518,001447: 10,3566           74726                           MASK     OCT50                                 #  OR A GODSPRET
061519,001448: 10,3567           10000                           CCS      A                                     
061520,001449: 10,3570           13463                           TCF      ENDRET                                #  YES
061521,001450: 10,3571           30371                           CA       NVSAVE                                
061522,001451: 10,3572           00006                           EXTEND                                         
061523,001452: 10,3573           13463                           BZF      ENDRET                                
061524,001453: 
061525,001454: 10,3574           34762                           CAF      PRIO15                                
061526,001455: 10,3575           00004                           INHINT                                         
061527,001456: 10,3576           05027                           TC       NOVAC                                 
061528,001457: 10,3577     0367                                  EBANK=   NVWORD                                
061529,001458: 10,3577           02743 20100                     2CADR    PLAYJUM1                              
061530,001459: 
061531,001460: 10,3601           13463                           TCF      ENDRET                                
061532,001461: 
061533,001462: 10,3602           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
061534,001463: 10,3603           73652                           MASK     BITS5+11                              
061535,001464: 10,3604           10000                           CCS      A                                     
061536,001465: 10,3605           15112                           TCF      ENDOFJOB                              #  YES
061537,001466: 10,3606           13102                           TCF      GOSLEEPS                              
061538,001467: 
061539,001468: 10,3607           50157        LOADITIS           INDEX    COPMPAC                               
061540,001469: 10,3610           30367                           CA       NVWORD                                
061541,001470: 10,3611           76043                           MASK     LOW7                                  
061542,001471: 10,3612           40000                           COM                                            
061543,001472: 10,3613           60155                           AD       MPAC       +1                         #  NOUNREG
061544,001473: 10,3614           00006                           EXTEND                                         
061545,001474: 10,3615           13437                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
061546,001475: 10,3616           13176                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
061547,001476: 
061548,001477: 10,3617           46214        ERASER             CS       THREE                                 #  BLANK EVERYTHINGEXCEPT MM
061549,001478: 10,3620           04170                           TC       NVSUB                                 
061550,001479: 10,3621           15112                           TCF      ENDOFJOB                              

Page 1447

061552,001481: 10,3622           15112                           TCF      ENDOFJOB                              
061553,001482: 
061554,001483: 10,3623           00036        PERFMASK           OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
061555,001484: 10,3624           00231        V01N25             VN       00125                                 
061556,001485: 10,3625           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
061557,001486: 10,3626           14400        V50N00             VN       5000                                  
061558,001487: 10,3627           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
061559,001488: 10,3630           01006        V04N06             VN       00406                                 
061560,001489: 10,3631           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
061561,001490: 10,3632  10,3176               GOAGIN             EQUALS   PINBRNCH                              
061562,001491: 10,3632           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
061563,001492: 10,3633           40230        MARK3MSK           OCT      40230                                 #  MARK,DECIMAL NOUN, PERFORM,FLASH
061564,001493: 10,3634           40036        MARK4MSK           OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
061565,001494: 10,3635           20670        NVCADR             CADR     REDOPRIO                              
061566,001495: 10,3636           20530        WAKECADR           CADR     MARKPLAY                              
061567,001496: 10,3637           20743                           CADR     PLAYJUM1                              
061568,001497: 
061569,001498: 10,3640           03400        OCT3400            OCT      3400                                  #  EBANK MASK
061570,001499: 10,3641           11210        NBUSMASK           OCT      11210                                 
061571,001500: 10,3642           66521        PMMASK             OCT      66521                                 
061572,001501: 10,3643     4160               VERBMASK           =        MID7                                  #  (OCT 37600)
061573,001502: 10,3643           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
061574,001503: 10,3644  10,2461               GOXDSP             EQUALS   GOMARK                                
061575,001504: 10,3644  10,2501               GOXDSPR            EQUALS   GOMARKR                               
061576,001505: 10,3644  10,2465               GOXDSPF            EQUALS   GOMARKF                               
061577,001506: 10,3644  10,2504               GOXDSPFR           EQUALS   GOMARKFR                              
061578,001507: 10,3644     5423               ENDEXT             EQUALS   ENDMARK                               
061579,001508: 10,3644     0165               MPAC2SAV           EQUALS   BANKSET                               
061580,001509: 10,3644           00700        NVBUSMSK           OCT      700                                   
061581,001510: 10,3645           00704        ASTROMSK           OCT      704                                   
061582,001511: 10,3646           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
061583,001512: 10,3647           34300        OCT34300           OCT      34300                                 
061584,001513: 10,3650           40100        BITS15+7           OCT      40100                                 
061585,001514: 10,3651           00110        BITS7+4            OCT      110                                   
061586,001515: 10,3652     1067               DSPFLG             EQUALS   EBANKSAV                              
061587,001516: 10,3652     1070               MARKFLAG           EQUALS   MARKEBAN                              
061588,001517: 10,3652     1071               SAVEFLAG           EQUALS   EBANKTEM                              
061589,001518: 10,3652           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
061590,001519: 10,3653           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
061591,001520: 10,3654           00026        LOWLOAD            DEC      22         B-14                       
061592,001521: 10,3655           77730        BUSYMASK           OCT      77730                                 
061593,001522: 10,3656           00050        CADRMASK           OCT      50                                    
061594,001523: 10,3657     7707               PINMASK            EQUALS   13,14,15                              
061595,001524: 10,3657  10,3216               GOPLAY             EQUALS   NVDSP                                 
061596,001525:                                                                                                  #  PRIOSAVE      EQUALS  R1SAVE
061597,001526: 10,3657     0157               COPMPAC            EQUALS   MPAC       +3                         
061598,001527: 10,3657     0160               TEMPOR2            EQUALS   MPAC       +4                         
061599,001528: 10,3657     0161               OUTHERE            EQUALS   MPAC       +5                         
061600,001529: 10,3657     0164               COPINDEX           EQUALS   LOC                                   
061601,001530: 10,3657     0163               USERPRIO           EQUALS   MODE                                  

Page 1448

061603,001532: 10,3657     0162               GENMASK            EQUALS   MPAC       +6                         
061604,001533: 10,3657           20144        PRIOOCT            OCT      20144                                 #  PRIO
061605,001534: 10,3660           42424        MARKOCT            OCT      42424                                 #  MARK
061606,001535: 10,3661           11254                           OCT      11254                                 #  NORM
061607,001536: 
061608,001537: 10,3662           74704        IDLESLEP           OCT      74704                                 
061609,001538: 10,3663           67777        OCT67777           OCT      67777                                 
061610,001539: 10,3664     5415               LINUS              EQUALS   BLANKET                               
061611,001540: 10,3664     0154               FACEREG            EQUALS   MPAC                                  
061612,001541: 10,3664     0155               PLAYTEM1           EQUALS   MPAC       +1                         
061613,001542: 10,3664     0157               PLAYTEM3           EQUALS   MPAC       +3                         
061614,001543: 10,3664     0160               PLAYTEM4           EQUALS   MPAC       +4                         
061615,001544: 10,3664           40420        OCT40420           OCT      40420                                 
061616,001545: 10,3665           02674        MAKEGEN            GENADR   MAKEPLAY                              
061617,001546: 10,3666           10200        OCT10200           OCT      10200                                 
061618,001547: 10,3667           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
061619,001548: 10,3670           20100        OCT20100           OCT      20100                                 

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