Source Code

These source-code files are part of a reconstructed copy of Luminary 178, the final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Zerlina 56, Luminary 210, and Luminary 131, previously transcribed from digitized copies of those programs. The code was created by combining the three, using Zerlina 56 as a base, since it was based off of Luminary 183. The differences between the three were carefully merged using the Luminary memos as a guide, with all changes made after Luminary 178 being backed out. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 178 listing would be different.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

056867,000002:                                                                                                  ## Copyright:   Public domain.
056868,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
056869,000004:                                                                                                  ## Purpose:     A section of Luminary revision 178.
056870,000005:                                                                                                  ##              It is part of the reconstructed source code for the final
056871,000006:                                                                                                  ##              release of the flight software for the Lunar Module's
056872,000007:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
056873,000008:                                                                                                  ##              code has been recreated from copies of Zerlina 56, Luminary
056874,000009:                                                                                                  ##              210, and Luminary 131, as well as many Luminary memos.
056875,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
056876,000011:                                                                                                  ##              exactly match those specified for Luminary 178 in NASA
056877,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
056878,000013:                                                                                                  ##              that the reconstruction is correct.
056879,000014:                                                                                                  ## Reference:   pp. 1330-1361
056880,000015:                                                                                                  ## Assembler:   yaYUL
056881,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
056882,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
056883,000018:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Zerlina 56.
056884,000019:                                                                                                  ##              2019-09-15 MAS  Restored definitions for erasables DSPFLG,
056885,000020:                                                                                                  ##                              MARKFLAG, and SAVEFLAG. Put back in code
056886,000021:                                                                                                  ##                              that uses R1SAVE.
056887,000022: 

Page 1330

056889,000024:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
056890,000025: 
056891,000026:                                                                                                  #      1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
056892,000027:                                                                                                  #         OUT UNDER CRITICAL ALARM CONDITIONS.
056893,000028:                                                                                                  #      2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
056894,000029:                                                                                                  #      3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
056895,000030:                                                                                                  #         SEQUENCE OF EVENTS.
056896,000031:                                                                                                  #      4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
056897,000032:                                                                                                  #         MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
056898,000033: 
056899,000034: 
056900,000035:                                                                                                  #      5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
056901,000036:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
056902,000037: 
056903,000038:                                                                                                  #      1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
056904,000039:                                                                                                  #         (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
056905,000040:                                                                                                  #         BUT NOT WAITING FOR A RESPONSE.
056906,000041:                                                                                                  #      2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
056907,000042:                                                                                                  #         (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
056908,000043:                                                                                                  #         WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
056909,000044:                                                                                                  #         OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
056910,000045:                                                                                                  #         HAS INFO SAVED FOR RESTART PURPOSES.
056911,000046: 
056912,000047: 
056913,000048:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
056914,000049: 
056915,000050:                                                                                                  #    INTERRUPTS-
056916,000051:                                                                                                  #      1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
056917,000052:                                                                                                  #      2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
056918,000053:                                                                                                  #      3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
056919,000054:                                                                                                  #         PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
056920,000055:                                                                                                  #      4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
056921,000056:                                                                                                  #      5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
056922,000057: 
056923,000058:                                                                                                  #    ORDER OF WAITING DISPLAYS-
056924,000059:                                                                                                  #      1. ASTRONAUT EXTERNAL USE
056925,000060:                                                                                                  #      2. PRIORITY
056926,000061:                                                                                                  #      3. INTERRUPTED MARK
056927,000062:                                                                                                  #      4. INTERRUPTED NORMAL
056928,000063: 
056929,000064:                                                                                                  #      5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
056930,000065:                                                                                                  #      6. MARK WAITING
056931,000066:                                                                                                  #      7. NORMAL WAITING
056932,000067: 

Page 1331

056934,000069:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
056935,000070:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
056936,000071:                                                                                                  #  WILL FOLLOW LATER):
056937,000072: 
056938,000073:                                                                                                  #       1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
056939,000074:                                                                                                  #           IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
056940,000075:                                                                                                  #           IS TO THE USERS CALLING LOC +1.
056941,000076:                                                                                                  #       2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
056942,000077:                                                                                                  #       3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
056943,000078:                                                                                                  #       4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
056944,000079:                                                                                                  #           USERS JOB.
056945,000080:                                                                                                  #       5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
056946,000081:                                                                                                  #       6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
056947,000082:                                                                                                  #           DESCRIPTION OF RESTARTS).
056948,000083:                                                                                                  #       7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
056949,000084:                                                                                                  #           TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
056950,000085:                                                                                                  #           (V32) BRANCHES TO THE USERS CALL CADR +3.
056951,000086:                                                                                                  #       8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
056952,000087: 
056953,000088:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
056954,000089: 
056955,000090:                                                                                                  #  GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
056956,000091: 
056957,000092:                                                                                                  #       1. GODSP IS NOT RESTARTABLE
056958,000093:                                                                                                  #       2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
056959,000094:                                                                                                  #                                                   CAF    VXXNYY
056960,000095:                                                                                                  #                                                   TC     BANKCALL
056961,000096:                                                                                                  #                                                   CADR   GODSP
056962,000097: 
056963,000098:                                                                                                  #                                          VXXNYY   OCT    0XXYY
056964,000099:                                                                                                  #  GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
056965,000100: 
056966,000101:                                                                                                  #                                                   CAF    VXXNYY
056967,000102:                                                                                                  #                                                   TC     BANKCALL
056968,000103:                                                                                                  #                                                   CADR   GODSPR
056969,000104: 
056970,000105:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GODSPR
056971,000106: 
056972,000107:                                                                                                  #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
056973,000108:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
056974,000109: 
056975,000110:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
056976,000111:                                                                                                  #                                                   TC     BANKCALL
056977,000112:                                                                                                  #                                                   CADR   GOFLASH
056978,000113:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
056979,000114:                                                                                                  #                                                   ...    ...             PROCEED RETURN
056980,000115:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
056981,000116:                                                                                                  #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A

Page 1332

056983,000118:                                                                                                  #  V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
056984,000119:                                                                                                  #  USER (SEE NO. 7 ABOVE).
056985,000120: 
056986,000121:                                                                                                  #  GOPERF1 BLANKS REGISTERS R2 AND R3
056987,000122: 
056988,000123:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX
056989,000124:                                                                                                  #                                                   TC     BANKCALL
056990,000125:                                                                                                  #                                                   CADR   GOPERF1
056991,000126:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
056992,000127:                                                                                                  #                                                   ...    ...             PROCEED RETURN
056993,000128:                                                                                                  #                                                   ...    ...             ENTER RETURN
056994,000129: 
056995,000130:                                                                                                  #  GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
056996,000131:                                                                                                  #  REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
056997,000132:                                                                                                  #  DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
056998,000133: 
056999,000134:                                                                                                  #  GOPERF2 DOES NOT BLANK ANY REGISTERS
057000,000135: 
057001,000136:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
057002,000137:                                                                                                  #                                                   TC     BANKCALL
057003,000138:                                                                                                  #                                                   CADR   GOPERF2
057004,000139:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057005,000140:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057006,000141:                                                                                                  #                                                   ...    ...             ENTER RETURN
057007,000142: 
057008,000143:                                                                                                  #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
057009,000144:                                                                                                  #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
057010,000145:                                                                                                  #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
057011,000146: 
057012,000147:                                                                                                  #  GOPERF3 BLANKS REGISTERS R2 AND R3
057013,000148: 
057014,000149:                                                                                                  #                                                   CAF    DECXX           REQUEST PERFORM ON PXX
057015,000150:                                                                                                  #                                                   TC     BANKCALL
057016,000151:                                                                                                  #                                                   CADR   GOPERF3
057017,000152:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057018,000153:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057019,000154:                                                                                                  #                                                   ...    ...             ENTER RETURN
057020,000155: 
057021,000156:                                                                                                  #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
057022,000157:                                                                                                  #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING  V50N06 FOR A PLEASE PERFORM. NO
057023,000158:                                                                                                  #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057024,000159: 
057025,000160:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTION XX
057026,000161:                                                                                                  #                                                   TC     BANKCALL
057027,000162:                                                                                                  #                                                   CADR   GOPERF4
057028,000163:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057029,000164:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057030,000165:                                                                                                  #                                                   ...    ...             ENTER RETURN
057031,000166:                                                                                                  #  GOPERF4 BLANKS REGISTER R3
057032,000167: 

Page 1333

057034,000169:                                                                                                  #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
057035,000170:                                                                                                  #  OUT.
057036,000171: 
057037,000172:                                                                                                  #                                                   CAF    VXXNYY
057038,000173:                                                                                                  #                                                   TC     BANKCALL
057039,000174:                                                                                                  #                                                   CADR   GODSPRET
057040,000175:                                                                                                  #                                                   ...    ...             RETURN TO USER
057041,000176: 
057042,000177:                                                                                                  #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
057043,000178:                                                                                                  #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057044,000179: 
057045,000180:                                                                                                  #                                                   CAF    VXXNYY
057046,000181:                                                                                                  #                                                   TC     BANKCALL
057047,000182:                                                                                                  #                                                   CADR   REGODSP
057048,000183: 
057049,000184:                                                                                                  #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057050,000185: 
057051,000186:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
057052,000187:                                                                                                  #                                                   TC     BANKCALL
057053,000188:                                                                                                  #                                                   CADR   REFLASH
057054,000189:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057055,000190:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057056,000191:                                                                                                  #                                                   ...    ...             ENTER RETURN
057057,000192: 
057058,000193:                                                                                                  #  GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057059,000194: 
057060,000195:                                                                                                  #                                                   CAF    VXXNYY
057061,000196:                                                                                                  #                                                   TC     BANKCALL
057062,000197:                                                                                                  #                                                   CADR   GOFLASHR
057063,000198:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057064,000199:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057065,000200:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
057066,000201: 
057067,000202:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOFLASHR
057068,000203: 
057069,000204:                                                                                                  #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
057070,000205: 
057071,000206:                                                                                                  #  GOPERF1R BLANKS REGISTERS R2 AND R3
057072,000207: 
057073,000208:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX.
057074,000209:                                                                                                  #                                                   TC     BANKCALL
057075,000210:                                                                                                  #                                                   CADR   GOPERF1R
057076,000211:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057077,000212:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057078,000213:                                                                                                  #                                                   ...    ...             ENTER RETURN
057079,000214: 
057080,000215:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOPERF1R
057081,000216: 
057082,000217:                                                                                                  #  GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057083,000218: 

Page 1334

057085,000220:                                                                                                  #  GOPERF2R DOES NOT BLANK ANY REGISTERS
057086,000221: 
057087,000222:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
057088,000223:                                                                                                  #                                                   TC     BANKCALL
057089,000224:                                                                                                  #                                                   CADR   GOPERF2R
057090,000225:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057091,000226:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057092,000227:                                                                                                  #                                                   ...    ...             ENTER RETURN
057093,000228: 
057094,000229:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN HERE FROM GOPERF2R
057095,000230: 
057096,000231:                                                                                                  #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057097,000232: 
057098,000233:                                                                                                  #  GOPERF3R BLANKS REGISTERS R2 AND R3
057099,000234: 
057100,000235:                                                                                                  #                                                   CAF    PROGXX          PERFORM PROGRAM XX
057101,000236:                                                                                                  #                                                   TC     BANKCALL
057102,000237:                                                                                                  #                                                   CADR   GOPERF3R
057103,000238:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057104,000239:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057105,000240:                                                                                                  #                                                   ...    ...             ENTER RETURN
057106,000241: 
057107,000242:                                                                                                  #                                                   ...    ...             GOPERF3R IMMEDIATELY RETURNS HERE
057108,000243: 
057109,000244:                                                                                                  #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057110,000245: 
057111,000246:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTIONXX
057112,000247:                                                                                                  #                                                   TC     BANKCALL
057113,000248:                                                                                                  #                                                   CADR   GOPERF4R
057114,000249:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057115,000250:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057116,000251:                                                                                                  #                                                   ...    ...             ENTER RETURN
057117,000252: 
057118,000253:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
057119,000254: 
057120,000255:                                                                                                  #  GOPERF4R BLANKS REGISTER R3
057121,000256: 
057122,000257:                                                                                                  #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057123,000258: 
057124,000259:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
057125,000260:                                                                                                  #                                                   TC     BANKCALL
057126,000261:                                                                                                  #                                                   CADR   REFLASHR
057127,000262:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057128,000263:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057129,000264:                                                                                                  #                                                   ...    ...             ENTER RETURN
057130,000265: 
057131,000266:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
057132,000267: 
057133,000268:                                                                                                  #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
057134,000269: 

Page 1335

057136,000271:                                                                                                  #                                                   CAF    VXXNYY
057137,000272:                                                                                                  #                                                   TC     BANKCALL
057138,000273:                                                                                                  #                                                   CADR   REGODSPR
057139,000274: 
057140,000275:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
057141,000276: 

Page 1336

057143,000278:                                                                                                  #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057144,000279: 
057145,000280:                                                                                                  #  GOXDSP = GOMARK
057146,000281: 
057147,000282:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY CONTAINS VERB AND NOUN
057148,000283:                                                                                                  #                                                   TC     BANKCALL
057149,000284:                                                                                                  #                                                   CADR   GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
057150,000285: 
057151,000286:                                                                                                  #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
057152,000287: 
057153,000288:                                                                                                  #  GOXDSPR = GOMARKR
057154,000289: 
057155,000290:                                                                                                  #                                                   CAF    VXXNYY
057156,000291:                                                                                                  #                                                   TC     BANKCALL
057157,000292:                                                                                                  #                                                   CADR   GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
057158,000293: 
057159,000294:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GOMARKR
057160,000295: 
057161,000296:                                                                                                  #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
057162,000297:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE ).
057163,000298: 
057164,000299:                                                                                                  #  GOXDSPF = GOMARKF
057165,000300: 
057166,000301:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
057167,000302:                                                                                                  #                                                   TC     BANKCALL
057168,000303:                                                                                                  #                                                   CADR   GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
057169,000304:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057170,000305:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057171,000306:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
057172,000307: 
057173,000308:                                                                                                  #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
057174,000309: 
057175,000310:                                                                                                  #  GOXDSPFR = GOMARKFR
057176,000311: 
057177,000312:                                                                                                  #                                                   CAF    VXXNYY          FLASHING MARK VERB NOUN
057178,000313:                                                                                                  #                                                   TC     BANKCALL
057179,000314:                                                                                                  #                                                   CADR   GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
057180,000315:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057181,000316:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057182,000317:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
057183,000318: 
057184,000319:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
057185,000320: 
057186,000321:                                                                                                  #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
057187,000322:                                                                                                  #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
057188,000323:                                                                                                  #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
057189,000324:                                                                                                  #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
057190,000325: 
057191,000326:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   Y= NOUN
057192,000327:                                                                                                  #                                                   TC     BANKCALL

Page 1337

057194,000329:                                                                                                  #                                                   CADR   GOMARK1
057195,000330: 
057196,000331:                                                                                                  #                                                   ...    ...             ENTER RETURN
057197,000332: 
057198,000333:                                                                                                  #  *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
057199,000334: 
057200,000335: 
057201,000336:                                                                                                  #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
057202,000337:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4    YY = NOUN
057203,000338:                                                                                                  #                                                   TC     BANKCALL
057204,000339:                                                                                                  #                                                   CADR   GOMARK1R
057205,000340: 
057206,000341:                                                                                                  #                                                   ...    ...             ASTRONAUT ENTER RETURN
057207,000342:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
057208,000343: 
057209,000344:                                                                                                  #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
057210,000345:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   YY=NOUN
057211,000346:                                                                                                  #                                                   TC     BANKCALL
057212,000347:                                                                                                  #                                                   CADR   GOMARK2
057213,000348:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057214,000349:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057215,000350:                                                                                                  #                                                   ...    ...             ENTER RETURN
057216,000351:                                                                                                  #  GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
057217,000352: 
057218,000353:                                                                                                  #                                                   CAF    V5XNYY          X=0,1,2,3,4   YY=NOUN
057219,000354:                                                                                                  #                                                   TC     BANKCALL
057220,000355:                                                                                                  #                                                   CADR   GOMARK2R
057221,000356:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057222,000357:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057223,000358:                                                                                                  #                                                   ...    ...             ENTER RETURN
057224,000359: 
057225,000360:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
057226,000361: 
057227,000362:                                                                                                  #  GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
057228,000363:                                                                                                  #  PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
057229,000364:                                                                                                  #  V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
057230,000365: 
057231,000366:                                                                                                  #                                                   CAF    V5XNYY          X=1, 2,3,4 YY=NOUN
057232,000367:                                                                                                  #                                                   TC     BANKCALL
057233,000368:                                                                                                  #                                                   CADR   GOMARK3
057234,000369:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057235,000370:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057236,000371:                                                                                                  #                                                   ...    ...             ENTER RETURN
057237,000372: 
057238,000373:                                                                                                  #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
057239,000374: 
057240,000375:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4 YY=NOUN
057241,000376:                                                                                                  #                                                   TC     BANKCALL
057242,000377:                                                                                                  #                                                   CADR   GOMARK4
057243,000378:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057244,000379:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1338

057246,000381:                                                                                                  #                                                   ...    ...             ENTER RETURN
057247,000382: 
057248,000383:                                                                                                  #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
057249,000384:                                                                                                  #  SENT OUT.
057250,000385: 
057251,000386:                                                                                                  #                                                   CAF    VXXNYY
057252,000387:                                                                                                  #                                                   TC     BANKCALL
057253,000388:                                                                                                  #                                                   CADR   EXDSPRET
057254,000389: 
057255,000390:                                                                                                  #                                                   ...    ...             RETURN TO USER
057256,000391: 
057257,000392:                                                                                                  #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
057258,000393:                                                                                                  #  HAVE BEEN CLEANED OUT.
057259,000394: 
057260,000395:                                                                                                  #                                                   TC     BANKCALL
057261,000396:                                                                                                  #                                                   CADR   KLEENEX
057262,000397: 
057263,000398:                                                                                                  #                                                   ...    ...             RETURN TO USER
057264,000399: 
057265,000400:                                                                                                  #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
057266,000401: 
057267,000402:                                                                                                  #                                                   TC     BANKCALL
057268,000403:                                                                                                  #                                                   CADR   MARKBRAN
057269,000404: 
057270,000405:                                                                                                  #                                                   ...    ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
057271,000406: 
057272,000407:                                                                                                  #                                                                          (GOOD RETURN TO IMMEDIATE RETURN LOC OF
057273,000408:                                                                                                  #                                                                          LAST FLASHING MARK R ROUTINE)
057274,000409: 
057275,000410:                                                                                                  #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
057276,000411:                                                                                                  #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
057277,000412: 
057278,000413:                                                                                                  #                                                   TC     POSTJUMP
057279,000414:                                                                                                  #                                                   CADR   PINBRNCH
057280,000415: 
057281,000416:                                                                                                  #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
057282,000417:                                                                                                  #  THE ASTRONAUT(SEE NO.7 ABOVE).
057283,000418: 
057284,000419:                                                                                                  #       THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
057285,000420:                                                                                                  #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
057286,000421:                                                                                                  #  IS RESPONDED TO BY THE ASTRONAUT.
057287,000422: 
057288,000423:                                                                                                  #       THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
057289,000424:                                                                                                  #  PRIO DISPLAY.
057290,000425: 
057291,000426:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
057292,000427:                                                                                                  #                                                   TC     BANKCALL
057293,000428:                                                                                                  #                                                   CADR   PRIODSP
057294,000429:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057295,000430:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1339

057297,000432:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
057298,000433: 
057299,000434:                                                                                                  #  PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE  USERS CALL CADR +4.
057300,000435: 
057301,000436:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
057302,000437:                                                                                                  #                                                   TC     BANKCALL
057303,000438:                                                                                                  #                                                   CADR   PRIODSPR
057304,000439:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057305,000440:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057306,000441:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
057307,000442: 
057308,000443:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN
057309,000444: 
057310,000445:                                                                                                  #  PRIOLARM DOES A V05N09 PRIODSPR.
057311,000446:                                                                                                  #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
057312,000447:                                                                                                  #  DISPLAYS ARE CLEANED OUT.
057313,000448: 
057314,000449:                                                                                                  #                                                   TC      BANKCALL
057315,000450:                                                                                                  #                                                   CADR    CLEANDSP
057316,000451: 
057317,000452:                                                                                                  #                                                   ...     ...             RETURN TO USER
057318,000453: 

Page 1340

057320,000455:                                                                                                  #  GENERAL INFORMATION
057321,000456:                                                                                                  #  ------- -----------
057322,000457: 
057323,000458: 
057324,000459:                                                                                                  #  ALARM OR ABORT EXIT MODES--
057325,000460:                                                                                                  #                                          PRIOBORT TC     ABORT
057326,000461:                                                                                                  #                                                   OCT    1502
057327,000462: 
057328,000463:                                                                                                  #  PRIOBORT IS BRANCED TO WHEN (1)  A NORMAL DISPLAY IS REQUESTED AND  ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
057329,000464:                                                                                                  #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
057330,000465:                                                                                                  #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
057331,000466: 
057332,000467: 
057333,000468:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
057334,000469: 
057335,000470:                                                                                                  #       ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
057336,000471:                                                                                                  #                                    2. NVSAVE = NORMAL VERB AND NOUN      REGISTER.
057337,000472:                                                                                                  #                                    3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
057338,000473: 
057339,000474: 
057340,000475:                                                                                                  #                                    5. R1SAVE = MARKBRAN CONTROL WORD
057341,000476:                                                                                                  #                                    4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
057342,000477:                                                                                                  #  OUTPUT--
057343,000478: 
057344,000479:                                                                                                  #       NVWORD = PRIO VERB AND NOUN
057345,000480:                                                                                                  #       NVWORD +1(MARKNV) = MARK VERB AND NOUN
057346,000481:                                                                                                  #       NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
057347,000482: 
057348,000483:                                                                                                  #       DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
057349,000484:                                                                                                  #       DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
057350,000485:                                                                                                  #       DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
057351,000486: 
057352,000487:                                                                                                  #       CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
057353,000488:                                                                                                  #       CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
057354,000489:                                                                                                  #       CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
057355,000490: 
057356,000491:                                                                                                  #       PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
057357,000492:                                                                                                  #       OPTION1 = DESIRED OPTION FROM GOPERF4
057358,000493:                                                                                                  #       FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
057359,000494:                                                                                                  #       DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
057360,000495:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
057361,000496:                                                                                                  #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
057362,000497:                                                                                                  #  DEBRIS-- (STORED INTO)
057363,000498: 
057364,000499:                                                                                                  #       TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
057365,000500:                                                                                                  #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                      4, FACEREG
057366,000501:                                                                                                  #       ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
057367,000502: 
057368,000503:                                                                                                  #       ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1341

057370,000505:                                                                                                  #  R1SAVE, MARK2PAC,
057371,000506: 
057372,000507: 
057373,000508:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
057374,000509:                                                                                                  #  FLAGWORD DESCRIPTIONS--
057375,000510:                                                                                                  #      FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
057376,000511: 
057377,000512:                                                                                                  #      DSPFLG, DSPFLG+1, DSPFLG +2-
057378,000513:                                                                                                  #      ----------------------------
057379,000514:                                                                                                  #  BITS 1 BLANK R1
057380,000515:                                                                                                  #       2 BLANK R2
057381,000516:                                                                                                  #       3 BLANK R3
057382,000517:                                                                                                  #       4 FLASHING DISPLAY REQUESTED
057383,000518:                                                                                                  #       5 PERFORM DISPLAY REQUESTED
057384,000519:                                                                                                  #       6 -----            EXDSPRET           GODSPRET
057385,000520:                                                                                                  #       7 PRIO DISPLAY     -----               -----
057386,000521:                                                                                                  #       8 -----         DEC MARK PERFORM      -----
057387,000522:                                                                                                  #       9 EBANK
057388,000523:                                                                                                  #      10 EBANK
057389,000524:                                                                                                  #      11 EBANK
057390,000525:                                                                                                  #      12 -----           -----       V99PASTE
057391,000526:                                                                                                  #      13 2ND PART OF PERFORM
057392,000527:                                                                                                  #      14 REFLASH OR REDO  -----           REFLASH OR REDO
057393,000528:                                                                                                  #      15 -----          MARK REQUEST          -----
057394,000529:                                                                                                  #  RESTARTING DISPLAYS--
057395,000530: 
057396,000531:                                                                                                  #  RULES FOR THE DSKY OPERATOR--
057397,000532: 
057398,000533:                                                                                                  #       1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
057399,000534:                                                                                                  #          AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
057400,000535:                                                                                                  #          RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
057401,000536:                                                                                                  #          WITH PROCEED AND TERMINATE FOR THIS REASON.
057402,000537:                                                                                                  #       2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO             SOONER THAN 2 SECONDS FROM THE TIME THE
057403,000538:                                                                                                  #          PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
057404,000539:                                                                                                  #          DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
057405,000540:                                                                                                  #           IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS     FROM THE TIME THE FIRST PRIORITY DISPLAY
057406,000541:                                                                                                  #          OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY  MULTIPLE OF THAT TIME DUE TO PROGRAM
057407,000542:                                                                                                  #          CONSIDERATION.
057408,000543:                                                                                                  #       3. KEY RELEASE BUTTON-
057409,000544:                                                                                                  #          A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
057410,000545:                                                                                                  #          B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
057411,000546:                                                                                                  #             AWAITING RESPONSE  THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
057412,000547:                                                                                                  #          IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
057413,000548:                                                                                                  #          KEY RELEASE BUTTON MAY BE NECESSARY.
057414,000549:                                                                                                  #       4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
057415,000550:                                                                                                  #       5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
057416,000551:                                                                                                  #          OVER AGAIN.
057417,000552: 
057418,000553: 
057419,000554:                                                                                                  #  SPECIAL CONSIDERATIONS--
057420,000555: 

Page 1342

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

Page 1343

057433,000568:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
057434,000569:                                                                                                  #                                                   CAF    BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
057435,000570:                                                                                                  #                                                   TC     BLANKET
057436,000571:                                                                                                  #                                                   ...    ...             RETURN TO USER HERE
057437,000572: 
057438,000573:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
057439,000574:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
057440,000575: 
057441,000576:    5475                                           BLOCK    02                                    
057442,000577:    4000                                           SETLOC   FFTAG4                                
057443,000578:    4000                                           BANK                                           
057444,000579: 
057445,000580:    5475                                           COUNT*   $$/DSPLA                              
057446,000581:    5475           54162        BLANKET            TS       MPAC       +6                         
057447,000582:    5476           40160                           CS       PLAYTEM4                              
057448,000583:    5477           70162                           MASK     MPAC       +6                         
057449,000584:    5500           50161                           INDEX    MPAC       +5                         
057450,000585:    5501           26160                           ADS      PLAYTEM4                              
057451,000586: 
057452,000587:    5502           00002                           TC       Q                                     
057453,000588: 
057454,000589:    5503           04635        ENDMARK            TC       POSTJUMP                              
057455,000590:    5504           20326                           CADR     MARKEND                               
057456,000591: 
057457,000592:    5505           34755        CLEARMRK           CAF      ZERO                                  
057458,000593:    5506           55043                           TS       EXTVBACT                              
057459,000594: 
057460,000595:    5507           00004                 +2        INHINT                                         
057461,000596:    5510           44753                           CS       XDSPBIT                               
057462,000597:    5511           70100                           MASK     FLAGWRD4                              
057463,000598:    5512           54100                           TS       FLAGWRD4                              
057464,000599: 
057465,000600:    5513           00003                           RELINT                                         
057466,000601:    5514           00002                           TC       Q                                     
057467,000602:                                                                                                  #  ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
057468,000603:                                                                                                  #  FINISHED.
057469,000604: 
057470,000605: 10,2326                                           BANK     10                                    
057471,000606: 10,2000                                           SETLOC   DISPLAYS                              
057472,000607: 10,2000                                           BANK                                           
057473,000608: 
057474,000609: 10,2326                                           COUNT*   $$/DSPLA                              
057475,000610:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
057476,000611:                                                                                                  #  3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
057477,000612: 
057478,000613: 10,2326           05505        MARKEND            TC       CLEARMRK                              
057479,000614: 10,2327           13422                           TCF      MARKOVER                              
057480,000615: 
057481,000616: 10,2330           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP

Page 1344

057483,000618: 10,2331           34735        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
057484,000619: 10,2332           12501                           TCF      GOFLASH2                              
057485,000620: 
057486,000621: 10,2333           34755        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
057487,000622: 10,2334           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
057488,000623: 
057489,000624: 10,2335           33032                           CAF      MARKFMSK                              #  MARK,FLASH
057490,000625: 10,2336           12501                           TCF      GOFLASH2                              
057491,000626: 
057492,000627: 10,2337           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
057493,000628: 10,2340           33521        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
057494,000629: 10,2341           12501                           TCF      GOFLASH2                              
057495,000630: 
057496,000631: 10,2342           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
057497,000632: 10,2343           33506                           CAF      MARK3MSK                              
057498,000633: 10,2344           12501                           TCF      GOFLASH2                              
057499,000634: 
057500,000635: 10,2345           54155        GOMARK4            TS       PLAYTEM1                              
057501,000636: 10,2346           33507                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
057502,000637: 10,2347           12501                           TCF      GOFLASH2                              
057503,000638: 
057504,000639: 10,2350           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
057505,000640: 
057506,000641: 10,2351           34735                           CAF      BIT15                                 
057507,000642: 10,2352           12454                           TCF      GODSPR2                               
057508,000643: 
057509,000644: 10,2353           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
057510,000645: 
057511,000646: 10,2354           33032                           CAF      MARKFMSK                              
057512,000647: 10,2355           12640                           TCF      GODSPRS                               
057513,000648: 
057514,000649: 10,2356           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
057515,000650: 10,2357           33521                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
057516,000651: 10,2360           12640                           TCF      GODSPRS                               
057517,000652: 
057518,000653: 10,2361           65023                 -1        AD       PRIO13                                
057519,000654: 10,2362           54155        GOMARK3R           TS       PLAYTEM1                              
057520,000655: 10,2363           33506                           CAF      MARK3MSK                              
057521,000656: 10,2364           12640                           TCF      GODSPRS                               
057522,000657: 
057523,000658: 10,2365           34753        MAKEMARK           CAF      ONE                                   
057524,000659: 10,2366           02736                           TC       COPIES                                
057525,000660: 
057526,000661: 10,2367           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
057527,000662: 10,2370           73522                           MASK     OCT34300                              
057528,000663: 10,2371           10000                           CCS      A                                     
057529,000664: 10,2372           12430                           TCF      CHKPRIO                               
057530,000665: 
057531,000666: 10,2373           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
057532,000667: 10,2374           74743                           MASK     MRKNVBIT                              

Page 1345

057534,000669: 10,2375           00006                           EXTEND                                         
057535,000670: 10,2376           12400                           BZF      MARKPLAY                              #  NO
057536,000671: 
057537,000672: 10,2377           15155                           TCF      ENDOFJOB                              
057538,000673: 
057539,000674: 10,2400           00004        MARKPLAY           INHINT                                         
057540,000675: 10,2401           44756                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
057541,000676: 10,2402           70100                           MASK     FLAGWRD4                              
057542,000677: 10,2403           64753                           AD       ONE                                   
057543,000678: 10,2404           54100                           TS       FLAGWRD4                              
057544,000679: 10,2405           00003                           RELINT                                         
057545,000680: 
057546,000681: 10,2406           41070        GOGOMARK           CS       MARKFLAG                              #  PERFORM
057547,000682: 10,2407           74747                           MASK     BIT5                                  
057548,000683: 10,2410           10000                           CCS      A                                     
057549,000684: 10,2411           12414                           TCF      MARKCOP                               
057550,000685: 10,2412           40370                           CS       MARKNV                                
057551,000686: 10,2413           54370                           TS       MARKNV                                
057552,000687: 
057553,000688: 10,2414           34753        MARKCOP            CAF      ONE                                   #  MARK INDEX
057554,000689: 10,2415           12617                           TCF      PRIOPLAY                              
057555,000690: 
057556,000691: 10,2416           30165        COPYTOGO           CA       MPAC2SAV                              
057557,000692: 10,2417           54156                           TS       MPAC       +2                         
057558,000693: 
057559,000694: 10,2420           50164        COPYPACS           INDEX    COPINDEX                              
057560,000695: 10,2421           33532                           CAF      PRIOOCT                               
057561,000696: 10,2422           54162                           TS       GENMASK                               
057562,000697: 
057563,000698: 10,2423           50164                           INDEX    COPINDEX                              
057564,000699: 10,2424           31067                           CAF      EBANKSAV                              
057565,000700: 10,2425           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
057566,000701: 
057567,000702: 10,2426           54003                           TS       EBANK                                 
057568,000703: 
057569,000704: 10,2427           00002                           TC       Q                                     
057570,000705: 
057571,000706:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
057572,000707:                                                                                                  #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
057573,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
057574,000709:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
057575,000710: 
057576,000711:                                                                                                  #       IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
057577,000712:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
057578,000713: 
057579,000714: 10,2430           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
057580,000715: 10,2431           73255                           MASK     OCT24100                              
057581,000716: 10,2432           10000                           CCS      A                                     
057582,000717: 10,2433           13455                           TCF      MARSLEEP                              
057583,000718: 

Page 1346

057585,000720: 10,2434           40100                           CS       FLAGWRD4                              
057586,000721: 10,2435           74751                           MASK     MKOVBIT                               #  SET MARK OVER NORM
057587,000722: 10,2436           00004                           INHINT                                         
057588,000723: 10,2437           26100                           ADS      FLAGWRD4                              
057589,000724: 
057590,000725: 10,2440           12535                           TCF      SETNORM                               
057591,000726: 
057592,000727: 10,2441           30370        MARKPERF           CA       MARKNV                                
057593,000728: 10,2442           74144                           MASK     VERBMASK                              
057594,000729: 10,2443           13121                           TCF      NV50DSP                               
057595,000730: 
057596,000731: 10,2444           54155        GODSP              TS       PLAYTEM1                              
057597,000732: 
057598,000733: 10,2445           34755        GODSP2             CAF      ZERO                                  
057599,000734: 10,2446           12501                           TCF      GOFLASH2                              
057600,000735: 
057601,000736: 10,2447           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
057602,000737: 
057603,000738: 10,2450           34746                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
057604,000739: 10,2451           12501                           TCF      GOFLASH2                              
057605,000740: 
057606,000741: 10,2452           54155        GODSPR             TS       PLAYTEM1                              
057607,000742: 
057608,000743: 10,2453           34755        GODSPR1            CAF      ZERO                                  
057609,000744: 10,2454           54160        GODSPR2            TS       PLAYTEM4                              
057610,000745: 
057611,000746: 10,2455           34755                           CAF      ZERO                                  #  * DONT MOVE
057612,000747: 10,2456           12642                           TCF      GODSPRS1                              
057613,000748: 
057614,000749:                                                                                                  #       CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
057615,000750:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
057616,000751: 
057617,000752:                                                                                                  #       NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
057618,000753:                                                                                                  #  OLD DISPLAY.
057619,000754: 
057620,000755:                                                                                                  #       CALLING SEQUENCE FOR CLEANDSP-
057621,000756: 
057622,000757:                                                                                                  #                                                   TC     BANKCALL
057623,000758:                                                                                                  #                                                   CADR   CLEANDSP
057624,000759: 
057625,000760: 10,2457           34755        CLEANDSP           CAF      ZERO                                  
057626,000761: 10,2460           54155        REFLASH            TS       PLAYTEM1                              
057627,000762: 
057628,000763: 10,2461           33505                           CAF      REDOMASK                              #  FLASH AND PERMIT
057629,000764: 10,2462           12501                           TCF      GOFLASH2                              
057630,000765: 
057631,000766: 10,2463           54155        REFLASHR           TS       PLAYTEM1                              
057632,000767: 
057633,000768: 10,2464           33505                           CAF      REDOMASK                              #  FLASH AND PERMIT
057634,000769: 10,2465           12640                           TCF      GODSPRS                               
057635,000770: 

Page 1347

057637,000772: 10,2466           54155        REGODSP            TS       PLAYTEM1                              
057638,000773: 
057639,000774: 10,2467           34736                           CAF      BIT14                                 
057640,000775: 10,2470           12501                           TCF      GOFLASH2                              
057641,000776: 
057642,000777: 10,2471           54155        REGODSPR           TS       PLAYTEM1                              
057643,000778: 
057644,000779: 10,2472           34736                           CAF      BIT14                                 
057645,000780: 10,2473           12454                           TCF      GODSPR2                               
057646,000781: 
057647,000782: 10,2474           54155        CLOCPLAY           TS       PLAYTEM1                              
057648,000783: 10,2475           33544                           CAF      CLOCKCON                              
057649,000784: 10,2476           12501                           TCF      GOFLASH2                              
057650,000785: 
057651,000786: 10,2477           54155        GOFLASH            TS       PLAYTEM1                              
057652,000787: 
057653,000788: 10,2500           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
057654,000789: 10,2501           54160        GOFLASH2           TS       PLAYTEM4                              
057655,000790: 
057656,000791: 10,2502           02723                           TC       SAVELOCS                              
057657,000792: 
057658,000793: 10,2503           00003                           RELINT                                         
057659,000794: 
057660,000795: 10,2504           12547                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
057661,000796: 
057662,000797: 10,2505           54155        PRIODSPR           TS       PLAYTEM1                              
057663,000798: 
057664,000799: 10,2506           33524                           CAF      BITS7+4                               
057665,000800: 10,2507           12640                           TCF      GODSPRS                               
057666,000801: 
057667,000802: 10,2510           54155        PRIODSP            TS       PLAYTEM1                              
057668,000803: 
057669,000804: 10,2511           33524        SETPRIO            CAF      BITS7+4                               
057670,000805: 10,2512           12501                           TCF      GOFLASH2                              
057671,000806: 
057672,000807: 10,2513           34755        MAKEPRIO           CAF      ZERO                                  
057673,000808: 10,2514           54164                           TS       COPINDEX                              
057674,000809: 
057675,000810: 10,2515           03375                           TC       LINUSCHR                              
057676,000811: 10,2516           12523                           TCF      HIPRIO                                #  LINUS RETURN
057677,000812: 10,2517           30100                           CA       FLAGWRD4                              
057678,000813: 10,2520           73543                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
057679,000814: 10,2521           10000                           CCS      A                                     
057680,000815: 10,2522           12576                           TCF      PRIOBORT                              #  YES, ABORT
057681,000816: 
057682,000817: 10,2523           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
057683,000818: 10,2524           75643                           MASK     OCT40400                              
057684,000819: 10,2525           00006                           EXTEND                                         
057685,000820: 10,2526           12531                           BZF      ASKIFNRM                              #  NO
057686,000821: 

Page 1348

057688,000823: 10,2527           34755        SETMARK            CAF      ZERO                                  
057689,000824: 10,2530           12775                           TCF      JOBXCHS                               
057690,000825: 
057691,000826: 10,2531           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE
057692,000827: 10,2532           73541                           MASK     OCT10200                              #  BITS 13+8
057693,000828: 10,2533           00006                           EXTEND                                         
057694,000829: 10,2534           12537                           BZF      OKTOCOPY                              #  NO
057695,000830: 
057696,000831: 10,2535           34753        SETNORM            CAF      ONE                                   
057697,000832: 10,2536           12775                           TCF      JOBXCHS                               
057698,000833: 
057699,000834: 10,2537           02735        OKTOCOPY           TC       COPYNORM                              
057700,000835: 10,2540           03206                           TC       WITCHONE                              
057701,000836: 
057702,000837: 10,2541           05137                           TC       JOBWAKE                               
057703,000838: 
057704,000839: 10,2542           03223                           TC       XCHTOEND                              
057705,000840: 
057706,000841: 10,2543           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
057707,000842: 10,2544           55164                           TS       PRIOTIME                              
057708,000843: 
057709,000844: 10,2545           34755        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
057710,000845: 10,2546           12617                           TCF      PRIOPLAY                              
057711,000846: 
057712,000847: 10,2547           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
057713,000848: 10,2550           77730                           MASK     PRIO37                                
057714,000849: 10,2551           54163                           TS       USERPRIO                              
057715,000850: 
057716,000851: 10,2552           37724                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
057717,000852: 10,2553           05146                           TC       PRIOCHNG                              
057718,000853: 
057719,000854: 10,2554           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
057720,000855: 10,2555           73523                           MASK     BITS15+7                              
057721,000856: 10,2556           10000                           CCS      A                                     
057722,000857: 10,2557           12513                           TCF      MAKEPRIO                              #  ITS PRIO
057723,000858: 10,2560           12562                           TCF      IFLEGAL                               
057724,000859: 10,2561           12365                           TCF      MAKEMARK                              #  ITS MARK
057725,000860: 
057726,000861: 10,2562           34752        IFLEGAL            CAF      TWO                                   
057727,000862: 10,2563           54164                           TS       COPINDEX                              
057728,000863: 
057729,000864: 10,2564           03375                           TC       LINUSCHR                              
057730,000865: 
057731,000866: 10,2565           12600                           TCF      OKTOPLAY                              #  LINUS RETURN
057732,000867: 10,2566           41071                           CS       EBANKTEM                              
057733,000868: 10,2567           74750                           MASK     BIT4                                  
057734,000869: 10,2570           10000                           CCS      A                                     
057735,000870: 10,2571           12600                           TCF      OKTOPLAY                              #  NO
057736,000871: 
057737,000872: 10,2572           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP

Page 1349

057739,000874: 10,2573           73514                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
057740,000875: 10,2574           00006                           EXTEND                                         
057741,000876: 10,2575           12600                           BZF      OKTOPLAY                              #  NO
057742,000877: 
057743,000878: 10,2576           05635        PRIOBORT           TC       BAILOUT                               
057744,000879: 10,2577           31502                           OCT      31502                                 
057745,000880: 
057746,000881: 10,2600           02737        OKTOPLAY           TC       COPIES2                               
057747,000882: 
057748,000883: 10,2601           30163                           CA       USERPRIO                              
057749,000884: 10,2602           00006                           EXTEND                                         
057750,000885: 10,2603           04007                           ROR      SUPERBNK                              
057751,000886: 10,2604           54366                           TS       RESTREG                               
057752,000887: 
057753,000888: 10,2605           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
057754,000889: 10,2606           73515                           MASK     PMMASK                                
057755,000890: 10,2607           10000                           CCS      A                                     
057756,000891: 10,2610           12755                           TCF      GOSLEEPS                              #  YES
057757,000892: 
057758,000893: 10,2611           12613                           TCF      +2                                    
057759,000894: 10,2612           12755                           TCF      GOSLEEPS                              #  MARK GOING
057760,000895: 
057761,000896:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
057762,000897: 10,2613           03206                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
057763,000898: 10,2614           05137                           TC       JOBWAKE                               
057764,000899: 
057765,000900: 10,2615           03223                           TC       XCHTOEND                              
057766,000901: 
057767,000902: 10,2616           34752        PLAYJUM1           CAF      TWO                                   
057768,000903: 10,2617           54164        PRIOPLAY           TS       COPINDEX                              
057769,000904: 
057770,000905: 10,2620           13071                           TCF      GOPLAY                                
057771,000906: 
057772,000907: 10,2621           54155        EXDSPRET           TS       PLAYTEM1                              
057773,000908: 
057774,000909: 10,2622           37737                           CAF      BIT15+6                               
057775,000910: 10,2623           12501                           TCF      GOFLASH2                              
057776,000911: 
057777,000912: 10,2624           55044        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
057778,000913: 10,2625           33477                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
057779,000914: 
057780,000915: 10,2626           54155        GOPERFS            TS       PLAYTEM1                              
057781,000916: 
057782,000917: 10,2627           33476                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
057783,000918: 10,2630           12501                           TCF      GOFLASH2                              
057784,000919: 
057785,000920: 10,2631           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057786,000921: 
057787,000922: 10,2632           33502                           CAF      PERF2MSK                              
057788,000923: 10,2633           12501                           TCF      GOFLASH2                              
057789,000924: 

Page 1350

057791,000926: 10,2634           02716        GOPERF4            TC       PURRS4                                
057792,000927: 
057793,000928: 10,2635           12501                           TCF      GOFLASH2                              
057794,000929: 
057795,000930: 10,2636           54155        GOFLASHR           TS       PLAYTEM1                              
057796,000931: 
057797,000932: 10,2637           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
057798,000933: 10,2640           54160        GODSPRS            TS       PLAYTEM4                              
057799,000934: 
057800,000935: 10,2641           36250                           CAF      THREE                                 
057801,000936: 
057802,000937: 10,2642           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
057803,000938: 10,2643           54072                           TS       RUPTREG3                              
057804,000939: 
057805,000940: 10,2644           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
057806,000941: 10,2645           77730                           MASK     PRIO37                                
057807,000942: 10,2646           54063                           TS       NEWPRIO                               
057808,000943: 
057809,000944: 10,2647           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
057810,000945: 10,2650           74750                           MASK     BIT4                                  
057811,000946: 10,2651           10000                           CCS      A                                     
057812,000947: 10,2652           12660                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
057813,000948: 10,2653           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
057814,000949: 10,2654           05072                           TC       NOVAC                                 
057815,000950: 10,2655  E7,1471                                  EBANK=   WHOCARES                              
057816,000951: 10,2655           02547 20067                     2CADR    MAKEPLAY                              
057817,000952: 
057818,000953: 10,2657           12666                           TCF      BOTHJOBS                              
057819,000954: 
057820,000955: 10,2660           30006        VACDSP             CA       BBANK                                 
057821,000956: 10,2661           00006                           EXTEND                                         
057822,000957: 10,2662           04007                           ROR      SUPERBNK                              
057823,000958: 10,2663           54001                           TS       L                                     
057824,000959: 10,2664           33540                           CAF      MAKEGEN                               
057825,000960: 10,2665           05116                           TC       SPVAC                                 
057826,000961: 
057827,000962: 10,2666           02723        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
057828,000963: 
057829,000964: 10,2667           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
057830,000965: 10,2670           30156                           DCA      MPAC       +1                         
057831,000966: 10,2671           50064                           INDEX    LOCCTR                                
057832,000967: 10,2672           52156                           DXCH     MPAC       +1                         
057833,000968: 
057834,000969: 10,2673           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
057835,000970: 10,2674           30160                           DCA      MPAC       +3                         
057836,000971: 10,2675           50064                           INDEX    LOCCTR                                
057837,000972: 10,2676           52160                           DXCH     MPAC       +3                         
057838,000973: 
057839,000974: 10,2677           30064                           CA       LOCCTR                                
057840,000975: 10,2700           54161                           TS       MPAC       +5                         
057841,000976: 

Page 1351

057843,000978: 10,2701           02730                           TC       SAVELOCR                              
057844,000979: 10,2702           00003                           RELINT                                         
057845,000980: 
057846,000981: 10,2703           14640                           TCF      BANKJUMP                              #  CALL CADR +4
057847,000982: 
057848,000983: 10,2704           55044        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
057849,000984: 
057850,000985: 10,2705           33477                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
057851,000986: 
057852,000987: 10,2706           54155        GOPERFRS           TS       PLAYTEM1                              
057853,000988: 
057854,000989: 10,2707           33476                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
057855,000990: 10,2710           12640                           TCF      GODSPRS                               
057856,000991: 
057857,000992: 10,2711           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057858,000993: 
057859,000994: 10,2712           33502                           CAF      PERF2MSK                              
057860,000995: 10,2713           12640                           TCF      GODSPRS                               
057861,000996: 
057862,000997: 10,2714           02716        GOPERF4R           TC       PURRS4                                
057863,000998: 
057864,000999: 10,2715           12640                           TCF      GODSPRS                               
057865,001000: 
057866,001001: 10,2716           55143        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
057867,001002: 
057868,001003: 10,2717           33503                           CAF      V04N06                                
057869,001004: 10,2720           54155                           TS       PLAYTEM1                              
057870,001005: 
057871,001006: 10,2721           33504                           CAF      PERF4MSK                              #  FLASH,PERFORM AND BLANK R3
057872,001007: 10,2722           00002                           TC       Q                                     
057873,001008: 
057874,001009: 10,2723           00004        SAVELOCS           INHINT                                         
057875,001010: 
057876,001011: 10,2724           43513                           CS       OCT3400                               #  EBANK BITS
057877,001012: 10,2725           70160                           MASK     PLAYTEM4                              
057878,001013: 10,2726           60003                           AD       EBANK                                 
057879,001014: 10,2727           54160                           TS       PLAYTEM4                              
057880,001015: 
057881,001016: 10,2730           22002        SAVELOCR           LXCH     Q                                     
057882,001017: 
057883,001018: 10,2731           04645                           TC       MAKECADR                              
057884,001019: 10,2732           54157                           TS       PLAYTEM3                              
057885,001020: 
057886,001021: 10,2733           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
057887,001022: 10,2734           00001                           TC       L                                     
057888,001023: 
057889,001024: 10,2735           34755        COPYNORM           CAF      ZERO                                  
057890,001025: 10,2736           54164        COPIES             TS       COPINDEX                              
057891,001026: 10,2737           00004        COPIES2            INHINT                                         
057892,001027: 10,2740           30160                           CA       PLAYTEM4                              #  FLAGWORD

Page 1352

057894,001029: 10,2741           50164                           INDEX    COPINDEX                              
057895,001030: 10,2742           55067                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
057896,001031: 
057897,001032: 10,2743           73531                           MASK     CADRMASK                              #  FLASH AND GODSPRET
057898,001033: 10,2744           00006                           EXTEND                                         
057899,001034: 10,2745           12751                           BZF      SKIPADD                               
057900,001035: 
057901,001036: 10,2746           30157                           CA       PLAYTEM3                              
057902,001037: 10,2747           50164                           INDEX    COPINDEX                              
057903,001038: 10,2750           54372                           TS       CADRFLSH                              
057904,001039: 
057905,001040: 10,2751           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
057906,001041: 10,2752           50164                           INDEX    COPINDEX                              
057907,001042: 10,2753           54367                           TS       NVWORD                                
057908,001043: 
057909,001044: 10,2754           13232                           TCF      RELINTQ                               
057910,001045: 
057911,001046: 10,2755           50164        GOSLEEPS           INDEX    COPINDEX                              
057912,001047: 10,2756           33532                           CA       PRIOOCT                               
057913,001048: 10,2757           72761                           MASK     WAITMASK                              
057914,001049: 10,2760           03545                           TC       UPENT2                                
057915,001050: 10,2761           03004        WAITMASK           OCT      3004                                  
057916,001051: 10,2762           44753                           CS       ONE                                   
057917,001052: 10,2763           60164                           AD       COPINDEX                              
057918,001053: 10,2764           54154                           TS       FACEREG                               
057919,001054: 
057920,001055: 10,2765           50154        XCHSLEEP           INDEX    FACEREG                               
057921,001056: 10,2766           33511                           CAF      WAKECADR                              
057922,001057: 10,2767           00004                           INHINT                                         
057923,001058: 10,2770           05137                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
057924,001059: 
057925,001060: 10,2771           03223                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
057926,001061: 
057927,001062: 10,2772           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
057928,001063: 10,2773           33511                           CAF      WAKECADR                              
057929,001064: 10,2774           15133                           TCF      JOBSLEEP                              
057930,001065: 
057931,001066: 10,2775           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
057932,001067: 10,2776           03206                           TC       WITCHONE                              
057933,001068: 10,2777           05137                           TC       JOBWAKE                               
057934,001069: 10,3000           30154                           CA       FACEREG                               
057935,001070: 10,3001           50064                           INDEX    LOCCTR                                
057936,001071: 10,3002           54154                           TS       FACEREG                               
057937,001072: 
057938,001073: 10,3003           33016                           CAF      XCHQADD                               
057939,001074: 10,3004           03224                           TC       XCHNYLOC                              
057940,001075: 
057941,001076: 10,3005           50154                           INDEX    FACEREG                               
057942,001077: 10,3006           33533                           CA       MARKOCT                               
057943,001078: 10,3007           73535                           MASK     IDLESLEP                              

Page 1353

057945,001080: 10,3010           03555                           TC       DOWNENT2                              
057946,001081: 10,3011           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
057947,001082: 
057948,001083: 10,3012           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
057949,001084: 10,3013           34747                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
057950,001085: 10,3014           64751                           AD       FOUR                                  
057951,001086: 10,3015           03545                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
057952,001087: 10,3016           02765        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
057953,001088: 10,3017           30100                           CA       FLAGWRD4                              
057954,001089: 10,3020           74751                           MASK     MKOVBIT                               #  MARK OVER NORM ?
057955,001090: 10,3021           10000                           CCS      A                                     
057956,001091: 10,3022           02400        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
057957,001092: 10,3023           12537                           TCF      OKTOCOPY                              
057958,001093: 
057959,001094: 10,3024           34755        MARKWAKE           CAF      ZERO                                  
057960,001095: 10,3025           54160        WAKEPLAY           TS       TEMPOR2                               
057961,001096: 
057962,001097: 10,3026           50160                           INDEX    TEMPOR2                               
057963,001098: 10,3027           33525                           CA       BITS5+11                              
057964,001099: 10,3030           64751                           AD       FOUR                                  
057965,001100: 10,3031           03555                           TC       DOWNENT2                              
057966,001101: 10,3032           40010        MARKFMSK           OCT      40010                                 #  ***DONT MOVE
057967,001102: 
057968,001103: 10,3033           50160                           INDEX    TEMPOR2                               
057969,001104: 10,3034           33511                           CAF      WAKECADR                              
057970,001105: 10,3035           00004                           INHINT                                         
057971,001106: 10,3036           05137                           TC       JOBWAKE                               
057972,001107: 
057973,001108: 10,3037           13336                           TCF      ENDRET                                
057974,001109: 
057975,001110:                                                                                                  #       ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
057976,001111:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
057977,001112:                                                                                                  #       IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
057978,001113:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
057979,001114: 
057980,001115: 10,3040           31071        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
057981,001116: 10,3041           54003                           TS       EBANK                                 
057982,001117: 
057983,001118: 10,3042           30366                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
057984,001119: 10,3043           04727                           TC       SUPERSW                               #  RESTORE SUPERBANK
057985,001120: 
057986,001121: 10,3044           77730                           MASK     PRIO37                                
057987,001122: 10,3045           05146                           TC       PRIOCHNG                              
057988,001123: 
057989,001124: 10,3046           46250                           CS       THREE                                 
057990,001125: 10,3047           60374                           AD       TEMPFLSH                              
057991,001126: 10,3050           14640                           TCF      BANKJUMP                              
057992,001127: 
057993,001128: 10,3051           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
057994,001129: 10,3052           31072                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS

Page 1354

057996,001131: 10,3053           54156                           TS       MPAC       +2                         #  ONLY
057997,001132: 
057998,001133: 10,3054           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION
057999,001134: 10,3055           77743                           MASK     PINMASK                               
058000,001135: 10,3056           10000                           CCS      A                                     
058001,001136: 10,3057           13062                           TCF      +3                                    
058002,001137: 10,3060           13472                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
058003,001138: 10,3061           12400                           TCF      MARKPLAY                              
058004,001139: 
058005,001140: 10,3062           05515        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
058006,001141: 10,3063           00105                           ADRES    PINBRFLG                              
058007,001142: 
058008,001143: 10,3064           34736                           CAF      PRIODBIT                              #  PRIO INTERRUPTED
058009,001144: 10,3065           70100                           MASK     FLAGWRD4                              
058010,001145: 10,3066           10000                           CCS      A                                     
058011,001146: 10,3067           12545                           TCF      KEEPPRIO                              
058012,001147: 
058013,001148: 10,3070           12616                           TCF      PLAYJUM1                              
058014,001149: 
058015,001150: 10,3071           02420        NVDSP              TC       COPYPACS                              
058016,001151: 
058017,001152: 10,3072           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
058018,001153: 10,3073           74757                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
058019,001154: 10,3074           54001                           TS       L                                     
058020,001155: 
058021,001156: 10,3075           44737                           CS       BIT13                                 
058022,001157: 10,3076           50164                           INDEX    COPINDEX                              
058023,001158: 10,3077           71067                           MASK     DSPFLG                                
058024,001159: 10,3100           50164                           INDEX    COPINDEX                              
058025,001160: 10,3101           55067                           TS       DSPFLG                                
058026,001161: 
058027,001162: 10,3102           74744                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
058028,001163: 10,3103           54141                           TS       TEM1                                  
058029,001164: 
058030,001165: 10,3104           30156                           CA       MPAC       +2                         
058031,001166: 10,3105           54165                           TS       MPAC2SAV                              
058032,001167: 
058033,001168: 10,3106           55072                           TS       MARK2PAC                              #  * FOR DISK ONLY *
058034,001169: 10,3107           50164                           INDEX    COPINDEX                              
058035,001170: 10,3110           10367                           CCS      NVWORD                                
058036,001171: 10,3111           13120                           TCF      NVDSP1                                
058037,001172: 10,3112           13234                           TCF      CLEANEND                              
058038,001173: 10,3113           40370                           CS       MARKNV                                
058039,001174: 10,3114           54370                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
058040,001175: 10,3115           76077                           MASK     LOW7                                  
058041,001176: 10,3116           63516                           AD       V05N00M1                              
058042,001177: 10,3117           60141                           AD       TEM1                                  
058043,001178: 10,3120           64753        NVDSP1             AD       ONE                                   
058044,001179: 10,3121           04155        NV50DSP            TC       NVMONOPT                              
058045,001180: 10,3122           13246                           TCF      REST                                  #  IF BUSY

Page 1355

058047,001182: 10,3123           04433                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
058048,001183: 
058049,001184: 10,3124           02416                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
058050,001185: 10,3125           05527                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
058051,001186: 10,3126           00102                           ADRES    MRKNVFLG                              
058052,001187: 10,3127           05527                           TC       DOWNFLAG                              
058053,001188: 10,3130           00103                           ADRES    NRMNVFLG                              
058054,001189: 10,3131           05527                           TC       DOWNFLAG                              
058055,001190: 10,3132           00104                           ADRES    PRONVFLG                              
058056,001191: 10,3133           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
058057,001192: 10,3134           04255                           TC       BLANKSUB                              
058058,001193: 10,3135           13071                           TCF      NVDSP                                 
058059,001194: 10,3136           34747        PERFCHEK           CAF      BIT5                                  #  BIT5 FOR PERFORM
058060,001195: 10,3137           70160                           MASK     TEMPOR2                               
058061,001196: 10,3140           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
058062,001197: 10,3141           13164                           TCF      1STOR2ND                              #  YES
058063,001198: 
058064,001199: 10,3142           34750        GOANIDLE           CAF      BIT4                                  
058065,001200: 10,3143           70160                           MASK     TEMPOR2                               
058066,001201: 10,3144           10000                           CCS      A                                     
058067,001202: 10,3145           13261                           TCF      FLASHSUB                              #  IT IS
058068,001203: 
058069,001204: 10,3146           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
058070,001205: 10,3147           74746                           MASK     BIT6                                  
058071,001206: 10,3150           10000                           CCS      A                                     
058072,001207: 10,3151           13156                           TCF      ISITN00                               
058073,001208: 
058074,001209: 10,3152           50164                           INDEX    COPINDEX                              
058075,001210: 10,3153           30372                           CA       CADRFLSH                              
058076,001211: 10,3154           54157                           TS       MPAC       +3                         
058077,001212: 10,3155           13354                           TCF      ENDIT                                 
058078,001213: 
058079,001214: 10,3156           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
058080,001215: 10,3157           30367                           CA       NVWORD                                
058081,001216: 10,3160           76077                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
058082,001217: 10,3161           00006                           EXTEND                                         
058083,001218: 10,3162           13261                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
058084,001219: 
058085,001220: 10,3163           15155                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
058086,001221: 
058087,001222: 10,3164           30160        1STOR2ND           CA       TEMPOR2                               
058088,001223: 10,3165           74737                           MASK     BIT13                                 
058089,001224: 10,3166           10000                           CCS      A                                     
058090,001225: 10,3167           13142                           TCF      GOANIDLE                              #  SECOND
058091,001226: 
058092,001227: 10,3170           34737                           CA       BIT13                                 
058093,001228: 10,3171           50164                           INDEX    COPINDEX                              
058094,001229: 10,3172           27067                           ADS      DSPFLG                                
058095,001230: 
058096,001231: 10,3173           22007                           ZL                                             

Page 1356

058098,001233: 10,3174           00006                           EXTEND                                         #  IS IT MARK
058099,001234: 10,3175           62441                           BZMF     MARKPERF                              #  YES
058100,001235: 
058101,001236: 10,3176           74740                           MASK     BIT12                                 
058102,001237: 10,3177           00006                           EXTEND                                         
058103,001238: 10,3200           13204                           BZF      V50PASTE                              
058104,001239: 10,3201           41066                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
058105,001240: 10,3202           63542                           AD       V97N00                                
058106,001241: 10,3203           13121                           TCF      NV50DSP                               
058107,001242: 10,3204           33501        V50PASTE           CAF      V50N00                                
058108,001243: 10,3205           13121                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
058109,001244: 
058110,001245: 10,3206           44747        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
058111,001246: 10,3207           00006                           EXTEND                                         
058112,001247: 10,3210           03011                           WAND     DSALMOUT                              
058113,001248: 
058114,001249: 10,3211           30100                           CA       FLAGWRD4                              
058115,001250: 10,3212           73517                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
058116,001251: 10,3213           10000                           CCS      A                                     
058117,001252: 10,3214           34753                           CAF      ONE                                   
058118,001253: 10,3215           54001                           TS       L                                     
058119,001254: 10,3216           34755                           CAF      ZERO                                  
058120,001255: 10,3217           50001                           INDEX    L                                     
058121,001256: 10,3220           57041                           XCH      CADRSTOR                              
058122,001257: 
058123,001258: 10,3221           00004                           INHINT                                         
058124,001259: 10,3222           00002                           TC       Q                                     
058125,001260: 
058126,001261: 10,3223           34217        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
058127,001262: 10,3224           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
058128,001263: 10,3225           00006                           EXTEND                                         
058129,001264: 10,3226           63232                           BZMF     RELINTQ                               #  NO
058130,001265: 10,3227           56064                           XCH      LOCCTR                                #  YES
058131,001266: 10,3230           50064                           INDEX    LOCCTR                                
058132,001267: 10,3231           54164                           TS       LOC                                   
058133,001268: 
058134,001269: 10,3232           00003        RELINTQ            RELINT                                         
058135,001270: 10,3233           00002                           TC       Q                                     #  BACK TO USER
058136,001271: 
058137,001272: 10,3234           37723        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
058138,001273: 10,3235           05105                           TC       FINDVAC                               
058139,001274: 10,3236     0371                                  EBANK=   NVSAVE                                
058140,001275: 10,3236           04231 04060                     2CADR    JAMTERM                               
058141,001276: 
058142,001277: 
058143,001278: 10,3240           13262                           TCF      FLASHSUB   +1                         
058144,001279: 
058145,001280: 10,3241           30100        ISITPRIO           CA       FLAGWRD4                              
058146,001281: 10,3242           73267                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
058147,001282: 10,3243           00006                           EXTEND                                         

Page 1357

058149,001284: 10,3244           12576                           BZF      PRIOBORT                              
058150,001285: 10,3245           15155                           TCF      ENDOFJOB                              
058151,001286: 
058152,001287: 10,3246           11041        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
058153,001288: 10,3247           15155                           TCF      ENDOFJOB                              #  YES
058154,001289: 10,3250           13252                           TCF      RESTSLEP                              
058155,001290: 
058156,001291: 10,3251           15155                           TCF      ENDOFJOB                              
058157,001292: 
058158,001293: 10,3252           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
058159,001294: 10,3253           73520                           MASK     ASTROMSK                              
058160,001295: 10,3254           03545                           TC       UPENT2                                
058161,001296: 10,3255           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
058162,001297: 
058163,001298: 10,3256           50164                           INDEX    COPINDEX                              
058164,001299: 10,3257           33510                           CAF      NVCADR                                
058165,001300: 10,3260           04442                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
058166,001301: 
058167,001302: 10,3261           04427        FLASHSUB           TC       FLASHON                               
058168,001303: 
058169,001304: 10,3262           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
058170,001305: 10,3263           54157                           TS       COPMPAC                               
058171,001306: 
058172,001307: 10,3264           30162                           CA       GENMASK                               
058173,001308: 10,3265           73011                           MASK     IDLEMASK                              
058174,001309: 10,3266           03545                           TC       UPENT2                                
058175,001310: 10,3267           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
058176,001311: 
058177,001312: 10,3270           31073                           CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
058178,001313: 10,3271           50164                           INDEX    COPINDEX                              
058179,001314: 10,3272           74751                           MASK     BIT3                                  
058180,001315: 10,3273           10000                           CCS      A                                     
058181,001316: 10,3274           13361                           TCF      UNSETR1                               #  YES
058182,001317: 
058183,001318: 10,3275           11041                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
058184,001319: 10,3276           13241                           TCF      ISITPRIO                              
058185,001320: 10,3277           13301                           TCF      +2                                    
058186,001321: 10,3300           13241                           TCF      ISITPRIO                              
058187,001322: 
058188,001323: 10,3301           04207                           TC       ENDIDLE                               
058189,001324: 10,3302           13373        IDLERET1           TCF      TERMATE                               
058190,001325: 
058191,001326: 10,3303           13412                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
058192,001327: 
058193,001328: 10,3304           43527                           CS       LOWLOAD                               
058194,001329: 10,3305           60154                           AD       MPAC                                  #  VERBREG
058195,001330: 10,3306           00006                           EXTEND                                         
058196,001331: 10,3307           26000                           DIM      A                                     
058197,001332: 10,3310           00006                           EXTEND                                         
058198,001333: 10,3311           13462                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
058199,001334: 10,3312           34752        OKTOENT            CAF      TWO                                   
058200,001335: 10,3313           54161        ENDOUT             TS       OUTHERE                               
058201,001336: 
058202,001337: 10,3314           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
058203,001338: 10,3315           74101                           MASK     OCT60000                              
058204,001339: 10,3316           10000                           CCS      A                                     

Page 1358

058206,001341: 10,3317           13322                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
058207,001342: 10,3320           13430                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
058208,001343: 10,3321           13414                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
058209,001344: 
058210,001345: 10,3322           40025        TIMECHEK           CS       TIME1                                 
058211,001346: 10,3323           61164                           AD       PRIOTIME                              
058212,001347: 10,3324           10000                           CCS      A                                     
058213,001348: 10,3325           40000                           COM                                            
058214,001349: 10,3326           67734                           AD       OCT37776                              
058215,001350: 10,3327           64753                           AD       ONE                                   
058216,001351: 10,3330           63571                           AD       -2SEC                                 
058217,001352: 10,3331           00006                           EXTEND                                         
058218,001353: 10,3332           62545                           BZMF     KEEPPRIO                              
058219,001354: 
058220,001355: 10,3333           13430                           TCF      NORMRET                               
058221,001356: 
058222,001357: 10,3334           34753        NORMWAKE           CAF      ONE                                   
058223,001358: 10,3335           13025                           TCF      WAKEPLAY                              
058224,001359: 
058225,001360: 10,3336           10161        ENDRET             CCS      OUTHERE                               
058226,001361: 10,3337           64753                           AD       ONE                                   
058227,001362: 10,3340           13342                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
058228,001363: 10,3341           15155                           TCF      ENDOFJOB                              
058229,001364: 10,3342           50157                           INDEX    COPMPAC                               
058230,001365: 10,3343           60372                           AD       CADRFLSH                              
058231,001366: 10,3344           54157                           TS       MPAC       +3                         
058232,001367: 
058233,001368: 10,3345           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
058234,001369: 10,3346           73350                           MASK     PINIDMSK                              
058235,001370: 10,3347           03555                           TC       DOWNENT2                              
058236,001371: 10,3350           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
058237,001372: 
058238,001373: 10,3351           46250                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
058239,001374: 10,3352           04154                           TC       NVSUB                                 
058240,001375: 10,3353           13354                           TCF      +1                                    
058241,001376: 
058242,001377: 10,3354           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
058243,001378: 10,3355           77730                           MASK     PRIO37                                
058244,001379: 10,3356           05146                           TC       PRIOCHNG                              
058245,001380: 10,3357           30157                           CA       MPAC       +3                         
058246,001381: 10,3360           14640                           TCF      BANKJUMP                              
058247,001382: 
058248,001383: 10,3361           50164        UNSETR1            INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
058249,001384: 10,3362           44751                           CS       BIT3                                  
058250,001385: 
058251,001386: 10,3363           71073                           MASK     R1SAVE                                
058252,001387: 10,3364           55073                           TS       R1SAVE                                
058253,001388: 
058254,001389: 10,3365           34755                           CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
058255,001390: 10,3366           04727                           TC       SUPERSW                               #  SUPERBANK 0
058256,001391: 
058257,001392: 10,3367           36250                 -1        CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
058258,001393: 10,3370           50164        IMMEDRET           INDEX    COPINDEX                              
058259,001394: 10,3371           60372                           AD       CADRFLSH                              
058260,001395: 10,3372           14640                           TCF      BANKJUMP                              
058261,001396: 
058262,001397: 10,3373           34755        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
058263,001398: 10,3374           13313                           TCF      ENDOUT                                
058264,001399: 
058265,001400: 10,3375           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
058266,001401: 10,3376           74736                           MASK     BIT14                                 
058267,001402: 10,3377           10000                           CCS      A                                     
058268,001403: 10,3400           16742                           TCF      Q+1                                   #  NO
058269,001404: 10,3401           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE

Page 1359

058271,001406: 10,3402           50164                           INDEX    COPINDEX                              
058272,001407: 10,3403           60372                           AD       CADRFLSH                              
058273,001408: 10,3404           00006                           EXTEND                                         
058274,001409: 10,3405           13407                           BZF      +2                                    #  YES
058275,001410: 
058276,001411: 10,3406           00002                           TC       Q                                     #  NO
058277,001412: 10,3407           11011                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
058278,001413: 10,3410           05155                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
058279,001414: 10,3411           00002                           TC       Q                                     
058280,001415: 
058281,001416:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
058282,001417: 10,3412           34753        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
058283,001418: 10,3413           13313                           TCF      ENDOUT                                
058284,001419: 
058285,001420:                                                                                                  #       LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
058286,001421:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
058287,001422:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
058288,001423: 
058289,001424:                                                                                                  #       IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
058290,001425:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
058291,001426:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
058292,001427:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
058293,001428: 
058294,001429: 10,3414           46245        MARKRET            CS       SIX                                   
058295,001430: 10,3415           70100                           MASK     FLAGWRD4                              
058296,001431: 10,3416           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
058297,001432: 10,3417           54100                           TS       FLAGWRD4                              
058298,001433: 
058299,001434: 10,3420           00003                           RELINT                                         #  INHINT REALM
058300,001435: 10,3421           13336                           TCF      ENDRET                                
058301,001436: 
058302,001437: 10,3422           37752        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
058303,001438: 10,3423           54161                           TS       OUTHERE                               
058304,001439: 
058305,001440: 10,3424           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
058306,001441: 10,3425           74355                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
058307,001442: 10,3426           10000                           CCS      A                                     
058308,001443: 10,3427           13062                           TCF      NORMBNCH                              
058309,001444: 
058310,001445: 10,3430           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
058311,001446: 10,3431           73525                           MASK     BITS5+11                              #  OR WAITING
058312,001447: 10,3432           10000                           CCS      A                                     
058313,001448: 10,3433           13024                           TCF      MARKWAKE                              
058314,001449: 
058315,001450: 10,3434           30100                           CA       FLAGWRD4                              #  NO
058316,001451: 10,3435           73526                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
058317,001452: 10,3436           10000                           CCS      A                                     
058318,001453: 10,3437           13334                           TCF      NORMWAKE                              #  YES
058319,001454: 
058320,001455: 10,3440           31071                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST

Page 1360

058322,001457: 10,3441           74771                           MASK     OCT50                                 #  OR A GODSPRET
058323,001458: 10,3442           10000                           CCS      A                                     
058324,001459: 10,3443           13336                           TCF      ENDRET                                #  YES
058325,001460: 10,3444           30371                           CA       NVSAVE                                
058326,001461: 10,3445           00006                           EXTEND                                         
058327,001462: 10,3446           13336                           BZF      ENDRET                                
058328,001463: 
058329,001464: 10,3447           35025                           CAF      PRIO15                                
058330,001465: 10,3450           00004                           INHINT                                         
058331,001466: 10,3451           05072                           TC       NOVAC                                 
058332,001467: 10,3452     0367                                  EBANK=   NVWORD                                
058333,001468: 10,3452           02616 20060                     2CADR    PLAYJUM1                              
058334,001469: 
058335,001470: 
058336,001471: 10,3454           13336                           TCF      ENDRET                                
058337,001472: 
058338,001473: 10,3455           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
058339,001474: 10,3456           73525                           MASK     BITS5+11                              
058340,001475: 10,3457           10000                           CCS      A                                     
058341,001476: 10,3460           15155                           TCF      ENDOFJOB                              #  YES
058342,001477: 10,3461           12755                           TCF      GOSLEEPS                              
058343,001478: 
058344,001479: 10,3462           50157        LOADITIS           INDEX    COPMPAC                               
058345,001480: 10,3463           30367                           CA       NVWORD                                
058346,001481: 10,3464           76077                           MASK     LOW7                                  
058347,001482: 10,3465           40000                           COM                                            
058348,001483: 10,3466           60155                           AD       MPAC       +1                         #  NOUNREG
058349,001484: 10,3467           00006                           EXTEND                                         
058350,001485: 10,3470           13312                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
058351,001486: 10,3471           13051                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
058352,001487: 
058353,001488: 10,3472           46250        ERASER             CS       THREE                                 #  BLANK EVERYTHINGEXCEPT MM
058354,001489: 10,3473           04154                           TC       NVSUB                                 
058355,001490: 10,3474           15155                           TCF      ENDOFJOB                              
058356,001491: 10,3475           15155                           TCF      ENDOFJOB                              
058357,001492: 
058358,001493: 10,3476           00036        PERFMASK           OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
058359,001494: 10,3477           00231        V01N25             VN       00125                                 
058360,001495: 10,3500           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
058361,001496: 10,3501           14400        V50N00             VN       5000                                  
058362,001497: 10,3502           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
058363,001498: 10,3503           01006        V04N06             VN       00406                                 
058364,001499: 10,3504           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
058365,001500: 10,3505  10,3051               GOAGIN             EQUALS   PINBRNCH                              
058366,001501: 10,3505           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
058367,001502: 10,3506           40230        MARK3MSK           OCT      40230                                 #  MARK,DECIMAL NOUN, PERFORM,FLASH
058368,001503: 10,3507           40036        MARK4MSK           OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
058369,001504: 10,3510           20543        NVCADR             CADR     REDOPRIO                              
058370,001505: 10,3511           20400        WAKECADR           CADR     MARKPLAY                              
058371,001506: 10,3512           20616                           CADR     PLAYJUM1                              
058372,001507: 

Page 1361

058374,001509: 10,3513           03400        OCT3400            OCT      3400                                  #  EBANK MASK
058375,001510: 10,3514           11210        NBUSMASK           OCT      11210                                 
058376,001511: 10,3515           66521        PMMASK             OCT      66521                                 
058377,001512: 10,3516     4144               VERBMASK           =        MID7                                  #  (OCT 37600)
058378,001513: 10,3516           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
058379,001514: 10,3517  10,2330               GOXDSP             EQUALS   GOMARK                                
058380,001515: 10,3517  10,2350               GOXDSPR            EQUALS   GOMARKR                               
058381,001516: 10,3517  10,2334               GOXDSPF            EQUALS   GOMARKF                               
058382,001517: 10,3517  10,2353               GOXDSPFR           EQUALS   GOMARKFR                              
058383,001518: 10,3517     5503               ENDEXT             EQUALS   ENDMARK                               
058384,001519: 10,3517     0165               MPAC2SAV           EQUALS   BANKSET                               
058385,001520: 10,3517           00700        NVBUSMSK           OCT      700                                   
058386,001521: 10,3520           00704        ASTROMSK           OCT      704                                   
058387,001522: 10,3521           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
058388,001523: 10,3522           34300        OCT34300           OCT      34300                                 
058389,001524: 10,3523           40100        BITS15+7           OCT      40100                                 
058390,001525: 10,3524           00110        BITS7+4            OCT      110                                   
058391,001526: 10,3525     1067               DSPFLG             EQUALS   EBANKSAV                              
058392,001527: 10,3525     1070               MARKFLAG           EQUALS   MARKEBAN                              
058393,001528: 10,3525     1071               SAVEFLAG           EQUALS   EBANKTEM                              
058394,001529: 10,3525           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
058395,001530: 10,3526           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
058396,001531: 10,3527           00026        LOWLOAD            DEC      22         B-14                       
058397,001532: 10,3530           77730        BUSYMASK           OCT      77730                                 
058398,001533: 10,3531           00050        CADRMASK           OCT      50                                    
058399,001534: 10,3532     7743               PINMASK            EQUALS   13,14,15                              
058400,001535: 10,3532  10,3071               GOPLAY             EQUALS   NVDSP                                 
058401,001536:                                                                                                  # PRIOSAVE       EQUALS  R1SAVE
058402,001537: 10,3532     0157               COPMPAC            EQUALS   MPAC       +3                         
058403,001538: 10,3532     0160               TEMPOR2            EQUALS   MPAC       +4                         
058404,001539: 10,3532     0161               OUTHERE            EQUALS   MPAC       +5                         
058405,001540: 10,3532     0164               COPINDEX           EQUALS   LOC                                   
058406,001541: 10,3532     0163               USERPRIO           EQUALS   MODE                                  
058407,001542: 10,3532     0162               GENMASK            EQUALS   MPAC       +6                         
058408,001543: 10,3532           20144        PRIOOCT            OCT      20144                                 #  PRIO
058409,001544: 10,3533           42424        MARKOCT            OCT      42424                                 #  MARK
058410,001545: 10,3534           11254                           OCT      11254                                 #  NORM
058411,001546: 
058412,001547: 10,3535           74704        IDLESLEP           OCT      74704                                 
058413,001548: 10,3536           67777        OCT67777           OCT      67777                                 
058414,001549: 10,3537     5475               LINUS              EQUALS   BLANKET                               
058415,001550: 10,3537     0154               FACEREG            EQUALS   MPAC                                  
058416,001551: 10,3537     0155               PLAYTEM1           EQUALS   MPAC       +1                         
058417,001552: 10,3537     0157               PLAYTEM3           EQUALS   MPAC       +3                         
058418,001553: 10,3537     0160               PLAYTEM4           EQUALS   MPAC       +4                         
058419,001554: 10,3537           40420        OCT40420           OCT      40420                                 
058420,001555: 10,3540           02547        MAKEGEN            GENADR   MAKEPLAY                              
058421,001556: 10,3541           10200        OCT10200           OCT      10200                                 
058422,001557: 10,3542           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
058423,001558: 10,3543           20100        OCT20100           OCT      20100                                 
058424,001559: 10,3544           24030        CLOCKCON           OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE,REFLASH

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