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.

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

Page 1416

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

Page 1417

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

Page 1418

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

Page 1419

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

Page 1420

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

Page 1421

060328,000271:                                                                                                  #                                                   CAF    VXXNYY
060329,000272:                                                                                                  #                                                   TC     BANKCALL
060330,000273:                                                                                                  #                                                   CADR   REGODSPR
060331,000274: 
060332,000275:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
060333,000276: 

Page 1422

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

Page 1423

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

Page 1424

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

Page 1425

060487,000430:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060488,000431: 
060489,000432:                                                                                                  #  PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE  USERS CALL CADR +4.
060490,000433: 
060491,000434:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
060492,000435:                                                                                                  #                                                   TC     BANKCALL
060493,000436:                                                                                                  #                                                   CADR   PRIODSPR
060494,000437:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
060495,000438:                                                                                                  #                                                   ...    ...             PROCEED RETURN
060496,000439:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
060497,000440: 
060498,000441:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN
060499,000442: 
060500,000443:                                                                                                  #  PRIOLARM DOES A V05N09 PRIODSPR.
060501,000444:                                                                                                  #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
060502,000445:                                                                                                  #  DISPLAYS ARE CLEANED OUT.
060503,000446: 
060504,000447:                                                                                                  #                                                   TC     BANKCALL
060505,000448:                                                                                                  #                                                   CADR   CLEANDSP
060506,000449: 
060507,000450:                                                                                                  #                                                   ...    ...             RETURN TO USER
060508,000451: 

Page 1426

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

Page 1427

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

Page 1428

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

Page 1429

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

Page 1430

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

Page 1431

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

Page 1432

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

Page 1433

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

Page 1434

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

Page 1435

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

Page 1436

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

Page 1437

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

Page 1438

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

Page 1439

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

Page 1440

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

Page 1441

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

Page 1442

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

Page 1443

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

Page 1444

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

Page 1445

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

Page 1446

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

Page 1447

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

Page 1448

061589,001532: 10,3657     0162               GENMASK            EQUALS   MPAC       +6                         
061590,001533: 10,3657           20144        PRIOOCT            OCT      20144                                 #  PRIO
061591,001534: 10,3660           42424        MARKOCT            OCT      42424                                 #  MARK
061592,001535: 10,3661           11254                           OCT      11254                                 #  NORM
061593,001536: 
061594,001537: 10,3662           74704        IDLESLEP           OCT      74704                                 
061595,001538: 10,3663           67777        OCT67777           OCT      67777                                 
061596,001539: 10,3664     5415               LINUS              EQUALS   BLANKET                               
061597,001540: 10,3664     0154               FACEREG            EQUALS   MPAC                                  
061598,001541: 10,3664     0155               PLAYTEM1           EQUALS   MPAC       +1                         
061599,001542: 10,3664     0157               PLAYTEM3           EQUALS   MPAC       +3                         
061600,001543: 10,3664     0160               PLAYTEM4           EQUALS   MPAC       +4                         
061601,001544: 10,3664           40420        OCT40420           OCT      40420                                 
061602,001545: 10,3665           02674        MAKEGEN            GENADR   MAKEPLAY                              
061603,001546: 10,3666           10200        OCT10200           OCT      10200                                 
061604,001547: 10,3667           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
061605,001548: 10,3670           20100        OCT20100           OCT      20100                                 

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