Source Code
057000,000001: # Copyright: Public domain.
057001,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc
057002,000003: # Purpose: Part of the source code for Luminary 1A build 099.
057003,000004: # It is part of the source code for the Lunar Module's (LM)
057004,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
057005,000006: # Assembler: yaYUL
057006,000007: # Contact: Ron Burkey <info@sandroid.org>.
057007,000008: # Website: www.ibiblio.org/apollo.
057008,000009: # Pages: 1341-1373
057009,000010: # Mod history: 2009-05-27 RSB Adapted from the corresponding
057010,000011: # Luminary131 file, using page
057011,000012: # images from Luminary 1A.
057012,000013:
057013,000014: # This source code has been transcribed or otherwise adapted from
057014,000015: # digitized images of a hardcopy from the MIT Museum. The digitization
057015,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
057016,000017: # the Museum. Many thanks to both. The images (with suitable reduction
057017,000018: # in storage size and consequent reduction in image quality as well) are
057018,000019: # available online at www.ibiblio.org/apollo. If for some reason you
057019,000020: # find that the images are illegible, contact me at info@sandroid.org
057020,000021: # about getting access to the (much) higher-quality images which Paul
057021,000022: # actually created.
057022,000023:
057023,000024: # Notations on the hardcopy document read, in part:
057024,000025:
057025,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
057026,000027: # 16:27 JULY 14, 1969
057027,000028:
057028,000029: # Page 1341
057029,000030: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --
057030,000031: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
057031,000032: # OUT UNDER CRITICAL ALARM CONDITIONS.
057032,000033: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
057033,000034: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
057034,000035: # SEQUENCE OF EVENTS.
057035,000036: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
057036,000037: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
057037,000038: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY.
057038,000039:
057039,000040: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS --
057040,000041: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
057041,000042: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
057042,000043: # BUT NOT WAITING FOR A RESPONSE.
057043,000044: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
057044,000045: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
057045,000046: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
057046,000047: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
057047,000048: # HAS INFO SAVED FOR RESTART PURPOSES.
057048,000049:
057049,000050: # DISPLAY PRIORITIES WORK AS FOLLOWS --
057050,000051: # INTERRUPTS --
057051,000052: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
057052,000053: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
057053,000054: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
057054,000055: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
057055,000056: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
057056,000057: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
057057,000058:
057058,000059: # ORDER OF WAITING DISPLAYS --
057059,000060: # 1. ASTRONAUT
057060,000061: # 2. PRIORITY
057061,000062: # 3. INTERRUPTED MARK
057062,000063: # 4. INTERRUPTED NORMAL
057063,000064: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
057064,000065: # 6. MARK WAITING
057065,000066: # 7. NORMAL WAITING
057066,000067:
057067,000068: # Page 1342
057068,000069: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
057069,000070: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
057070,000071: # WILL FOLLOW LATER):
057071,000072: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
057072,000073: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
057073,000074: # IS TO THE USER'S CALLING LOC +1.
057074,000075: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
057075,000076: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY.
057076,000077: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
057077,000078: # USER'S JOB.
057078,000079: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
057079,000080: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
057080,000081: # DESCRIPTION OF RESTARTS).
057081,000082: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES
057082,000083: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE
057083,000084: # (V32) BRANCHES TO THE USER'S CALL CADR +3.
057084,000085: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
057085,000086:
057086,000087: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
057087,000088: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057088,000089: # 1. GODSP IS NOT RESTARTABLE
057089,000090: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
057090,000091: # CAF VXXNYY
057091,000092: # TC BANKCALL
057092,000093: # CADR GODSP
057093,000094: # VXXNYY OCT 0XXYY
057094,000095: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
057095,000096: # CAF VXXNYY
057096,000097: # TC BANKCALL
057097,000098: # CADR GODSPR
057098,000099: # ... ... # IMMEDIATE RETURN OF GODSPR
057099,000100: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
057100,000101: # THE ASTRONAUT (SEE NO. 7 ABOVE).
057101,000102: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN.
057102,000103: # TC BANKCALL
057103,000104: # CADR GOFLASH
057104,000105: # ... ... # TERMINATE RETURN
057105,000106: # ... ... # PROCEED RETURN
057106,000107: # ... ... # ENTER OR RECYCLE RETURN
057107,000108: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
057108,000109: # Page 1343
057109,000110: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
057110,000111: # USER (SEE NO. 7 ABOVE).
057111,000112: # GOPERF1 BLANKS REGISTERS R2 AND R3
057112,000113: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX
057113,000114: # TC BANKCALL
057114,000115: # CADR GOPERF1
057115,000116: # ... ... # TERMINATE RETURN
057116,000117: # ... ... # PROCEED RETURN
057117,000118: # ... ... # ENTER RETURN
057118,000119: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
057119,000120: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
057120,000121: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057121,000122: # GOPERF2 DOES NOT BLANK ANY REGISTERS
057122,000123: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01.
057123,000124: # TC BANKCALL
057124,000125: # CADR GOPERF2
057125,000126: # ... ... # TERMINATE RETURN
057126,000127: # ... ... # PROCEED RETURN
057127,000128: # ... ... # ENTER RETURN
057128,000129: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
057129,000130: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
057130,000131: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
057131,000132: # GOPERF3 BLANKS REGISTERS R2 AND R3
057132,000133: # CAF DECXX # REQUEST PERFORM ON PXX
057133,000134: # TC BANKCALL
057134,000135: # CADR GOPERF3
057135,000136: # ... ... # TERMINATE RETURN
057136,000137: # ... ... # PROCEED RETURN
057137,000138: # ... ... # ENTER RETURN
057138,000139: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
057139,000140: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
057140,000141: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057141,000142: # CAF OCTXX # REQUEST PERFORM ON OPTION XX
057142,000143: # TC BANKCALL
057143,000144: # CADR GOPERF4
057144,000145: # ... ... # TERMINATE RETURN
057145,000146: # ... ... # PROCEED RETURN
057146,000147: # ... ... # ENTER RETURN
057147,000148: # GOPERF4 BLANKS REGISTER R3.
057148,000149: # Page 1344
057149,000150: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
057150,000151: # OUT.
057151,000152: # CAF VXXXNYY
057152,000153: # TC BANKCALL
057153,000154: # CADR GODSPRET
057154,000155: # ... ... # RETURN TO USER.
057155,000156: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
057156,000157: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057157,000158: # CAF VXXNYY
057158,000159: # TC BANKCALL
057159,000160: # CADR REGODSP
057160,000161: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057161,000162: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
057162,000163: # TC BANKCALL
057163,000164: # CADR REFLASH
057164,000165: # ... ... # TERMINATE RETURN
057165,000166: # ... ... # PROCEED RETURN
057166,000167: # ... ... # ENTER RETURN
057167,000168: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
057168,000169: # CAF VXXNYY
057169,000170: # TC BANKCALL
057170,000171: # CADR GOFLASHR
057171,000172: # ... ... # TERMINATE RETURN
057172,000173: # ... ... # PROCEED RETURN
057173,000174: # ... ... # ENTER OR RECYCLE RETURN
057174,000175: # ... ... # IMMEDIATE RETURN FROM GOFLASHR
057175,000176: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4.
057176,000177: # GOPERF1R BLANKS REGISTERS R2 AND R3
057177,000178: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX.
057178,000179: # TC BANKCALL
057179,000180: # CADR GOPERF1R
057180,000181: # ... ... # TERMINATE RETURN
057181,000182: # ... ... # PROCEED RETURN
057182,000183: # ... ... # ENTER RETURN
057183,000184: # ... ... # IMMEDIATE RETURN FROM GOPERF1R
057184,000185: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
057185,000186: # Page 1345
057186,000187: # GOPERF2R DOES NOT BLANK ANY REGISTERS
057187,000188: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01
057188,000189: # TC BANKCALL
057189,000190: # CADR GOPERF2R
057190,000191: # ... ... # TERMINATE RETURN
057191,000192: # ... ... # PROCEED RETURN
057192,000193: # ... ... # ENTER RETURN
057193,000194: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R
057194,000195: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
057195,000196: # GOPERF3R BLANKS REGISTERS R2 AND R3
057196,000197: # CAF PROGXX # PERFORM PROGRAM XX
057197,000198: # TC BANKCALL
057198,000199: # CADR GOPERF3R
057199,000200: # ... ... # TERMINATE RETURN
057200,000201: # ... ... # PROCEED RETURN
057201,000202: # ... ... # ENTER RETURN
057202,000203: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE
057203,000204: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
057204,000205: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX
057205,000206: # TC BANKCALL
057206,000207: # CADR GOPERF4R
057207,000208: # ... ... # TERMINATE RETURN
057208,000209: # ... ... # PROCEED RETURN
057209,000210: # ... ... # ENTER RETURN
057210,000211: # ... ... # IMMEDIATE RETURN TO USER
057211,000212: # GOPERF4R BLANKS REGISTER R3.
057212,000213: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
057213,000214: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
057214,000215: # TC BANKCALL
057215,000216: # CADR REFLASHR
057216,000217: # ... ... # TERMINATE RETURN
057217,000218: # ... ... # PROCEED RETURN
057218,000219: # ... ... # ENTER RETURN
057219,000220: # ... ... # IMMEDIATE RETURN TO USER
057220,000221: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
057221,000222: # Page 1346
057222,000223: # CAF VXXNYY
057223,000224: # TC BANKCALL
057224,000225: # CADR REGODSPR
057225,000226: # ... ... # IMMEDIATE RETURN TO USER
057226,000227: # Page 1347
057227,000228: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057228,000229: # GOXDSP = GOMARK
057229,000230: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN
057230,000231: # TC BANKCALL
057231,000232: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP
057232,000233: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
057233,000234: # GOXDSPR = GOMARKR
057234,000235: # CAF VXXNYY
057235,000236: # TC BANKCALL
057236,000237: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR
057237,000238: # ... ... # IMMEDIATE RETURN OF GOMARKR
057238,000239: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
057239,000240: # THE ASTRONAUT (SEE NO. 7 ABOVE).
057240,000241: # GOXDSPF = GOMARKF
057241,000242: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN
057242,000243: # TC BANKCALL
057243,000244: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
057244,000245: # ... ... # TERMINATE RETURN
057245,000246: # ... ... # PROCEED RETURN
057246,000247: # ... ... # ENTER OR RECYCLE RETURN
057247,000248: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
057248,000249: # GOXDSPFR = GOMARKFR
057249,000250: # CAF VXXNYY # FLASHING MARK VERB NOUN
057250,000251: # TC BANKCALL
057251,000252: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
057252,000253: # ... ... # TERMINATE RETURN
057253,000254: # ... ... # PROCEED RETURN
057254,000255: # ... ... # ENTER OR RECYCLE RETURN
057255,000256: # ... ... # IMMEDIATE RETURN TO THE USER
057256,000257: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
057257,000258: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
057258,000259: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
057259,000260: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
057260,000261: # CAF V5XNYY # X=1,2,3,4 Y=NOUN
057261,000262: # TC BANKCALL
057262,000263: # Page 1348
057263,000264: # CADR GOMARK1
057264,000265: # ... ... # ENTER RETURN
057265,000266: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER.
057266,000267:
057267,000268: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2.
057268,000269: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
057269,000270: # TC BANKCALL
057270,000271: # CADR GOMARK1R
057271,000272: # ... ... # ASTRONAUT ENTER RETURN
057272,000273: # ... ... # IMMEDIATE RETURN TO USER
057273,000274: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
057274,000275: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
057275,000276: # TC BANKCALL
057276,000277: # CADR GOMARK2
057277,000278: # ... ... # TERMINATE RETURN
057278,000279: # ... ... # PROCEED RETURN
057279,000280: # ... ... # ENTER RETURN
057280,000281: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
057281,000282: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN
057282,000283: # TCF BANKCALL
057283,000284: # CADR GOMARK2R
057284,000285: # ... ... # TERMINATE RETURN
057285,000286: # ... ... # PROCEED RETURN
057286,000287: # ... ... # ENTER RETURN
057287,000288: # ... ... # IMMEDIATE RETURN TO THE USER.
057288,000289: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
057289,000290: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
057290,000291: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
057291,000292: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
057292,000293: # TC BANKCALL
057293,000294: # CADR GOMARK3
057294,000295: # ... ... # TERMINATE RETURN
057295,000296: # ... ... # PROCEED RETURN
057296,000297: # ... ... # ENTER RETURN
057297,000298: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
057298,000299: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
057299,000300: # TC BANKCALL
057300,000301: # CADR GOMARK4
057301,000302: # ... ... # TERMINATE RETURN
057302,000303: # ... ... # PROCEED RETURN
057303,000304: # Page 1349
057304,000305: # ... ... # ENTER RETURN
057305,000306: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
057306,000307: # SEND OUT.
057307,000308: # CAF VXNYY
057308,000309: # TC BANKCALL
057309,000310: # CADR EXDSPRET
057310,000311: # ... ... # RETURN TO USER
057311,000312: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
057312,000313: # HAVE BEEN CLEANED OUT.
057313,000314: # TC BANKCALL
057314,000315: # CADR KLEENEX
057315,000316: # ... ... # RETURN TO USER
057316,000317: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
057317,000318: # TC BANKCALL
057318,000319: # CADR MARKBRAN
057319,000320: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE
057320,000321: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
057321,000322: # # LAST FLASHING MARK R ROUTINE)
057322,000323: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
057323,000324: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
057324,000325: # TC POSTJUMP
057325,000326: # CADR PINBRNCH
057326,000327: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
057327,000328: # THE ASTRONAUT (SEE NO. 7 ABOVE).
057328,000329: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
057329,000330: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
057330,000331: # IS RESPONDED TO BY THE ASTRONAUT.
057331,000332: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
057332,000333: # PRIO DISPLAY
057333,000334: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
057334,000335: # TC BANKCALL
057335,000336: # CADR PRIODSP
057336,000337: # ... ... # TERMINATE RETURN
057337,000338: # ... ... # PROCEED RETURN
057338,000339: # Page 1350
057339,000340: # ... ... # ENTER OR RECYCLE RETURN
057340,000341: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
057341,000342: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
057342,000343: # TC BANKCALL
057343,000344: # CADR PRIODSPR
057344,000345: # ... ... # TERMINATE ACTION
057345,000346: # ... ... # PROCEED RETURN
057346,000347: # ... ... # ENTER OR RECYCLE RETURN
057347,000348: # ... ... # IMMEDIATE RETURN
057348,000349: # PRIOLARM DOES A V05N09 PRIODSPR.
057349,000350:
057350,000351: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
057351,000352: # DISPLAYS ARE CLEANED OUT.
057352,000353: # TC BANKCALL
057353,000354: # CADR CLEANDSP
057354,000355: # ... ... # RETURN TO USER
057355,000356: # Page 1351
057356,000357:
057357,000358: # GENERAL INFORMATION
057358,000359: # -------------------
057359,000360:
057360,000361: # ALARM OR ABORT EXIT MODE --
057361,000362: # PRIOBORT TC ABORT
057362,000363: # OCT 1502
057363,000364:
057364,000365: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
057365,000366: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
057366,000367: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
057367,000368:
057368,000369: # ERASABLE INITIALIZATION REQUIRED --
057369,000370: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
057370,000371: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
057371,000372: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
057372,000373: # 5. R1SAVE = MARKBRAN CONTROL WORD
057373,000374: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
057374,000375:
057375,000376: # OUTPUT --
057376,000377: # NVWORD = PRIO VERB AND NOUN
057377,000378: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
057378,000379: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
057379,000380: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
057380,000381: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
057381,000382: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK)
057382,000383: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
057383,000384: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
057384,000385: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION
057385,000386: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
057386,000387: # OPTION1 = DESIRED OPTION FROM GOPERF4
057387,000388: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
057388,000389: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
057389,000390:
057390,000391: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
057391,000392: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC
057392,000393:
057393,000394: # DEBRIS -- (STORED INTO)
057394,000395: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL,
057395,000396: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG
057396,000397: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
057397,000398: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
057398,000399: # Page 1352
057399,000400: # R1SAVE, MARK2PAC
057400,000401:
057401,000402: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1
057402,000403:
057403,000404: # FLAGWORD DESCRIPTIONS --
057404,000405: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
057405,000406:
057406,000407: # DSPFLG, DSPFLG+1, DSPFLG+2
057407,000408: # --------------------------
057408,000409: # BITS 1 BLANK R1
057409,000410: # 2 BLANK R2
057410,000411: # 3 BLANK R3
057411,000412: # 4 FLASHING DISPLAY REQUESTED
057412,000413: # 5 PERFORM DISPLAY REQUESTED
057413,000414: # 6 ----- EXDSPRET GODSPRET
057414,000415: # 7 PRIO DISPLAY ----- -----
057415,000416: # 8 ----- DEC MARK PERFORM -----
057416,000417: # 9 EBANK
057417,000418: # 10 EBANK
057418,000419: # 11 EBANK
057419,000420: # 12 ----- ----- V99PASTE
057420,000421: # 13 2ND PART OF PERFORM
057421,000422: # 14 REFLASH OR REDO ----- REFLASH OR REDO
057422,000423: # 15 ----- MARK REQUEST -----
057423,000424:
057424,000425: # RESTARTING DISPLAYS --
057425,000426:
057426,000427: # RULES FOR THE DSKY OPERATOR --
057427,000428: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
057428,000429: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
057429,000430: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
057430,000431: # WITH PROCEED AND TERMINATE FOR THIS REASON.
057431,000432: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
057432,000433: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
057433,000434: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
057434,000435: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
057435,000436: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
057436,000437: # CONSIDERATION.
057437,000438: # 3. KEY RELEASE BUTTON --
057438,000439: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
057439,000440: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
057440,000441: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
057441,000442: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
057442,000443: # KEY RELEASE BUTTON MAY BE NECESSARY.
057443,000444: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
057444,000445: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
057445,000446: # OVER AGAIN.
057446,000447:
057447,000448: # SPECIAL CONSIDERATONS --
057448,000449: # Page 1353
057449,000450: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
057450,000451: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
057451,000452: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
057452,000453: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
057453,000454: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
057454,000455: # BY A .1 RESTART PHASE CHANGE.
057455,000456: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
057456,000457: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
057457,000458: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
057458,000459:
057459,000460: # Page 1354
057460,000461: # CALLING SEQUENCE FOR BLANKING
057461,000462: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
057462,000463: # TC BLANKET
057463,000464: # ... ... # RETURN TO USER HERE
057464,000465: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
057465,000466: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
057466,000467: 5464 BLOCK 02
057467,000468: 4000 SETLOC FFTAG4
057468,000469: 4000 BANK
057469,000470:
057470,000471: 5464 COUNT* $$/DSPLA
057471,000472: 5464 54162 BLANKET TS MPAC +6
057472,000473: 5465 40160 CS PLAYTEM4
057473,000474: 5466 70162 MASK MPAC +6
057474,000475: 5467 50161 INDEX MPAC +5
057475,000476: 5470 26160 ADS PLAYTEM4
057476,000477:
057477,000478: 5471 00002 TC Q
057478,000479:
057479,000480: 5472 04635 ENDMARK TC POSTJUMP
057480,000481: 5473 20326 CADR MARKEND
057481,000482:
057482,000483: 5474 34755 CLEARMRK CAF ZERO
057483,000484: 5475 55044 TS EXTVBACT
057484,000485:
057485,000486: 5476 00004 +2 INHINT
057486,000487: 5477 44753 CS XDSPBIT
057487,000488: 5500 70100 MASK FLAGWRD4
057488,000489: 5501 54100 TS FLAGWRD4
057489,000490:
057490,000491: 5502 00003 RELINT
057491,000492: 5503 00002 TC Q
057492,000493:
057493,000494: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
057494,000495: # FINISHED.
057495,000496:
057496,000497: 10,2326 BANK 10
057497,000498: 10,2000 SETLOC DISPLAYS
057498,000499: 10,2000 BANK
057499,000500:
057500,000501: 10,2326 COUNT* $$/DSPLA
057501,000502:
057502,000503: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH
057503,000504: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
057504,000505:
057505,000506: 10,2326 05474 MARKEND TC CLEARMRK
057506,000507: 10,2327 13421 TCF MARKOVER
057507,000508:
057508,000509: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
057509,000510: # Page 1355
057510,000511: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
057511,000512: 10,2332 12500 TCF GOFLASH2
057512,000513:
057513,000514: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
057514,000515: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
057515,000516:
057516,000517: 10,2335 33031 CAF MARKFMSK # MARK, FLASH
057517,000518: 10,2336 12500 TCF GOFLASH2
057518,000519:
057519,000520: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
057520,000521: 10,2340 33520 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
057521,000522: 10,2341 12500 TCF GOFLASH2
057522,000523:
057523,000524: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
057524,000525: 10,2343 33505 CAF MARK3MSK
057525,000526: 10,2344 12500 TCF GOFLASH2
057526,000527:
057527,000528: 10,2345 54155 GOMARK4 TS PLAYTEM1
057528,000529: 10,2346 33506 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
057529,000530: 10,2347 12500 TCF GOFLASH2
057530,000531:
057531,000532: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR
057532,000533:
057533,000534: 10,2351 34735 CAF BIT15
057534,000535: 10,2352 12453 TCF GODSPR2
057535,000536:
057536,000537: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
057537,000538:
057538,000539: 10,2354 33031 CAF MARKFMSK
057539,000540: 10,2355 12637 TCF GODSPRS
057540,000541:
057541,000542: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
057542,000543: 10,2357 33520 CAF MPERFMSK # MARK, PERFORM, FLASH
057543,000544: 10,2360 12637 TCF GODSPRS
057544,000545:
057545,000546: 10,2361 54155 GOMARK3R TS PLAYTEM1
057546,000547: 10,2362 33505 CAF MARK3MSK
057547,000548: 10,2363 12637 TCF GODSPRS
057548,000549:
057549,000550: 10,2364 34753 MAKEMARK CAF ONE
057550,000551: 10,2365 02735 TC COPIES
057551,000552:
057552,000553: 10,2366 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
057553,000554: 10,2367 73521 MASK OCT34300
057554,000555: 10,2370 10000 CCS A
057555,000556: 10,2371 12427 TCF CHKPRIO
057556,000557:
057557,000558: 10,2372 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
057558,000559: 10,2373 74743 MASK MRKNVBIT
057559,000560:
057560,000561: 10,2374 00006 EXTEND
057561,000562: # Page 1356
057562,000563: 10,2375 12377 BZF MARKPLAY # NO
057563,000564:
057564,000565: 10,2376 15155 TCF ENDOFJOB
057565,000566:
057566,000567: 10,2377 00004 MARKPLAY INHINT
057567,000568: 10,2400 44756 CS FIVE # RESET MARK OVER NORM, SET MARK
057568,000569: 10,2401 70100 MASK FLAGWRD4
057569,000570: 10,2402 64753 AD ONE
057570,000571: 10,2403 54100 TS FLAGWRD4
057571,000572: 10,2404 00003 RELINT
057572,000573:
057573,000574: 10,2405 41071 GOGOMARK CS MARKFLAG # PERFORM
057574,000575: 10,2406 74747 MASK BIT5
057575,000576: 10,2407 10000 CCS A
057576,000577: 10,2410 12413 TCF MARKCOP
057577,000578: 10,2411 40370 CS MARKNV
057578,000579: 10,2412 54370 TS MARKNV
057579,000580:
057580,000581: 10,2413 34753 MARKCOP CAF ONE # MARK INDEX
057581,000582: 10,2414 12616 TCF PRIOPLAY
057582,000583:
057583,000584: 10,2415 30165 COPYTOGO CA MPAC2SAV
057584,000585: 10,2416 54156 TS MPAC +2
057585,000586:
057586,000587: 10,2417 50164 COPYPACS INDEX COPINDEX
057587,000588: 10,2420 33531 CAF PRIOOCT
057588,000589: 10,2421 54162 TS GENMASK
057589,000590:
057590,000591: 10,2422 50164 INDEX COPINDEX
057591,000592: 10,2423 31070 CA EBANKSAV # Was CAF --- RSB 2009.
057592,000593: 10,2424 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
057593,000594:
057594,000595: 10,2425 54003 TS EBANK
057595,000596:
057596,000597: 10,2426 00002 TC Q
057597,000598:
057598,000599: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY
057599,000600: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
057600,000601: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
057601,000602: # UNTIL ALL MARKING IS FINISHED.
057602,000603:
057603,000604: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
057604,000605: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
057605,000606:
057606,000607: 10,2427 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
057607,000608: 10,2430 73254 MASK OCT24100
057608,000609: 10,2431 10000 CCS A
057609,000610: 10,2432 13454 TCF MARSLEEP
057610,000611:
057611,000612: 10,2433 40100 CS FLAGWRD4
057612,000613: # Page 1357
057613,000614: 10,2434 74751 MASK MKOVBIT # SET MARK OVER NORM
057614,000615: 10,2435 00004 INHINT
057615,000616: 10,2436 26100 ADS FLAGWRD4
057616,000617:
057617,000618: 10,2437 12534 TCF SETNORM
057618,000619:
057619,000620: 10,2440 30370 MARKPERF CA MARKNV
057620,000621: 10,2441 74144 MASK VERBMASK
057621,000622: 10,2442 13120 TCF NV50DSP
057622,000623:
057623,000624: 10,2443 54155 GODSP TS PLAYTEM1
057624,000625:
057625,000626: 10,2444 34755 GODSP2 CAF ZERO
057626,000627: 10,2445 12500 TCF GOFLASH2
057627,000628:
057628,000629: 10,2446 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
057629,000630:
057630,000631: 10,2447 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
057631,000632: 10,2450 12500 TCF GOFLASH2
057632,000633:
057633,000634: 10,2451 54155 GODSPR TS PLAYTEM1
057634,000635:
057635,000636: 10,2452 34755 GODSPR1 CAF ZERO
057636,000637: 10,2453 54160 GODSPR2 TS PLAYTEM4
057637,000638:
057638,000639: 10,2454 34755 CAF ZERO # * DON'T MOVE
057639,000640: 10,2455 12641 TCF GODSPRS1
057640,000641:
057641,000642: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
057642,000643: # SET UP TO BE STARTED OR RESTARTED.
057643,000644:
057644,000645: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
057645,000646: # OLD DISPLAY.
057646,000647:
057647,000648: # CALLING SEQUENCE FOR CLEANDSP --
057648,000649:
057649,000650: # TC BANKCALL
057650,000651: # CADR CLEANDSP
057651,000652:
057652,000653: 10,2456 34755 CLEANDSP CAF ZERO
057653,000654: 10,2457 54155 REFLASH TS PLAYTEM1
057654,000655:
057655,000656: 10,2460 33504 CAF REDOMASK # FLASH AND PERMIT
057656,000657: 10,2461 12500 TCF GOFLASH2
057657,000658:
057658,000659: 10,2462 54155 REFLASHR TS PLAYTEM1
057659,000660:
057660,000661: 10,2463 33504 CAF REDOMASK # FLASH AND PERMIT
057661,000662: 10,2464 12637 TCF GODSPRS
057662,000663:
057663,000664: # Page 1358
057664,000665: 10,2465 54155 REGODSP TS PLAYTEM1
057665,000666:
057666,000667: 10,2466 34736 CAF BIT14
057667,000668: 10,2467 12500 TCF GOFLASH2
057668,000669:
057669,000670: 10,2470 54155 REGODSPR TS PLAYTEM1
057670,000671:
057671,000672: 10,2471 34736 CAF BIT14
057672,000673: 10,2472 12453 TCF GODSPR2
057673,000674:
057674,000675: 10,2473 54155 CLOCPLAY TS PLAYTEM1
057675,000676: 10,2474 33543 CAF CLOCKCON
057676,000677: 10,2475 12500 TCF GOFLASH2
057677,000678:
057678,000679: 10,2476 54155 GOFLASH TS PLAYTEM1
057679,000680:
057680,000681: 10,2477 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
057681,000682: 10,2500 54160 GOFLASH2 TS PLAYTEM4
057682,000683:
057683,000684: 10,2501 02722 TC SAVELOCS
057684,000685:
057685,000686: 10,2502 00003 RELINT
057686,000687:
057687,000688: 10,2503 12546 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
057688,000689:
057689,000690: 10,2504 54155 PRIODSPR TS PLAYTEM1
057690,000691:
057691,000692: 10,2505 33523 CAF BITS7+4
057692,000693: 10,2506 12637 TCF GODSPRS
057693,000694:
057694,000695: 10,2507 54155 PRIODSP TS PLAYTEM1
057695,000696:
057696,000697: 10,2510 33523 SETPRIO CAF BITS7+4
057697,000698: 10,2511 12500 TCF GOFLASH2
057698,000699:
057699,000700: 10,2512 34755 MAKEPRIO CAF ZERO
057700,000701: 10,2513 54164 TS COPINDEX
057701,000702:
057702,000703: 10,2514 03374 TC LINUSCHR
057703,000704: 10,2515 12522 TCF HIPRIO # LINUS RETURN
057704,000705: 10,2516 30100 CA FLAGWRD4
057705,000706: 10,2517 73542 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
057706,000707: 10,2520 10000 CCS A
057707,000708: 10,2521 12575 TCF PRIOBORT # YES, ABORT
057708,000709:
057709,000710: 10,2522 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
057710,000711: 10,2523 75642 MASK OCT40400
057711,000712: 10,2524 00006 EXTEND
057712,000713: 10,2525 12530 BZF ASKIFNRM # NO
057713,000714:
057714,000715: # Page 1359
057715,000716: 10,2526 34755 SETMARK CAF ZERO
057716,000717: 10,2527 12774 TCF JOBXCHS
057717,000718:
057718,000719: 10,2530 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
057719,000720: 10,2531 73540 MASK OCT10200 # BITS 13+8
057720,000721: 10,2532 00006 EXTEND
057721,000722: 10,2533 12536 BZF OKTOCOPY # NO
057722,000723:
057723,000724: 10,2534 34753 SETNORM CAF ONE
057724,000725: 10,2535 12774 TCF JOBXCHS
057725,000726:
057726,000727: 10,2536 02734 OKTOCOPY TC COPYNORM
057727,000728: 10,2537 03205 TC WITCHONE
057728,000729:
057729,000730: 10,2540 05137 TC JOBWAKE
057730,000731:
057731,000732: 10,2541 03222 TC XCHTOEND
057732,000733:
057733,000734: 10,2542 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
057734,000735: 10,2543 55165 TS PRIOTIME
057735,000736:
057736,000737: 10,2544 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
057737,000738: 10,2545 12616 TCF PRIOPLAY
057738,000739:
057739,000740: 10,2546 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY
057740,000741: 10,2547 77725 MASK PRIO37
057741,000742: 10,2550 54163 TS USERPRIO
057742,000743:
057743,000744: 10,2551 37721 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
057744,000745: 10,2552 05146 TC PRIOCHNG
057745,000746:
057746,000747: 10,2553 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
057747,000748: 10,2554 73522 MASK BITS15+7
057748,000749: 10,2555 10000 CCS A
057749,000750: 10,2556 12512 TCF MAKEPRIO # ITS PRIO
057750,000751: 10,2557 12561 TCF IFLEGAL
057751,000752: 10,2560 12364 TCF MAKEMARK # ITS MARK
057752,000753:
057753,000754: 10,2561 34752 IFLEGAL CAF TWO
057754,000755: 10,2562 54164 TS COPINDEX
057755,000756:
057756,000757: 10,2563 03374 TC LINUSCHR
057757,000758:
057758,000759: 10,2564 12577 TCF OKTOPLAY # LINUS RETURN
057759,000760: 10,2565 41072 CS EBANKTEM
057760,000761: 10,2566 74750 MASK BIT4
057761,000762: 10,2567 10000 CCS A
057762,000763: 10,2570 12577 TCF OKTOPLAY # NO
057763,000764:
057764,000765: 10,2571 30100 CA FLAGWRD4 # WAS NORM ASLEEP
057765,000766: # Page 1360
057766,000767: 10,2572 73513 MASK NBUSMASK # ARE ANY NORMS ASLEEP
057767,000768: 10,2573 00006 EXTEND
057768,000769: 10,2574 12577 BZF OKTOPLAY # NO
057769,000770:
057770,000771: 10,2575 05652 PRIOBORT TC P00DOO
057771,000772: 10,2576 01502 OCT 1502
057772,000773:
057773,000774: 10,2577 02736 OKTOPLAY TC COPIES2
057774,000775:
057775,000776: 10,2600 30163 CA USERPRIO
057776,000777: 10,2601 00006 EXTEND
057777,000778: 10,2602 04007 ROR SUPERBNK
057778,000779: 10,2603 54366 TS RESTREG
057779,000780:
057780,000781: 10,2604 30100 CA FLAGWRD4 # PRIO OR MARK GOING
057781,000782: 10,2605 73514 MASK PMMASK
057782,000783: 10,2606 10000 CCS A
057783,000784: 10,2607 12754 TCF GOSLEEPS # MARK GOING
057784,000785:
057785,000786: 10,2610 12612 TCF +2
057786,000787: 10,2611 12754 TCF GOSLEEPS
057787,000788:
057788,000789: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
057789,000790:
057790,000791: 10,2612 03205 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
057791,000792: 10,2613 05137 TC JOBWAKE
057792,000793:
057793,000794: 10,2614 03222 TC XCHTOEND
057794,000795:
057795,000796: 10,2615 34752 PLAYJUM1 CAF TWO
057796,000797: 10,2616 54164 PRIOPLAY TS COPINDEX
057797,000798:
057798,000799: 10,2617 13070 TCF GOPLAY
057799,000800:
057800,000801: 10,2620 54155 EXDSPRET TS PLAYTEM1
057801,000802:
057802,000803: 10,2621 37734 CAF BIT15+6
057803,000804: 10,2622 12500 TCF GOFLASH2
057804,000805:
057805,000806: 10,2623 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
057806,000807: 10,2624 33476 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
057807,000808:
057808,000809: 10,2625 54155 GOPERFS TS PLAYTEM1
057809,000810:
057810,000811: 10,2626 33475 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
057811,000812: 10,2627 12500 TCF GOFLASH2
057812,000813:
057813,000814: 10,2630 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057814,000815:
057815,000816: 10,2631 33501 CAF PERF2MSK
057816,000817: 10,2632 12500 TCF GOFLASH2
057817,000818:
057818,000819: # Page 1361
057819,000820: 10,2633 02715 GOPERF4 TC PURRS4
057820,000821:
057821,000822: 10,2634 12500 TCF GOFLASH2
057822,000823:
057823,000824: 10,2635 54155 GOFLASHR TS PLAYTEM1
057824,000825:
057825,000826: 10,2636 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
057826,000827: 10,2637 54160 GODSPRS TS PLAYTEM4
057827,000828:
057828,000829: 10,2640 36245 CAF THREE
057829,000830:
057830,000831: 10,2641 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
057831,000832: 10,2642 54072 TS RUPTREG3
057832,000833:
057833,000834: 10,2643 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
057834,000835: 10,2644 77725 MASK PRIO37
057835,000836: 10,2645 54063 TS NEWPRIO
057836,000837:
057837,000838: 10,2646 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
057838,000839: 10,2647 74750 MASK BIT4
057839,000840: 10,2650 10000 CCS A
057840,000841: 10,2651 12657 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
057841,000842: 10,2652 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
057842,000843: 10,2653 05072 TC NOVAC
057843,000844: 10,2654 E7,1471 EBANK= WHOCARES
057844,000845: 10,2654 02546 20067 2CADR MAKEPLAY
057845,000846:
057846,000847: 10,2656 12665 TCF BOTHJOBS
057847,000848:
057848,000849: 10,2657 30006 VACDSP CA BBANK
057849,000850: 10,2660 00006 EXTEND
057850,000851: 10,2661 04007 ROR SUPERBNK
057851,000852: 10,2662 54001 TS L
057852,000853: 10,2663 33537 CAF MAKEGEN
057853,000854: 10,2664 05116 TC SPVAC
057854,000855:
057855,000856: 10,2665 02722 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
057856,000857:
057857,000858: 10,2666 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2
057858,000859: 10,2667 30156 DCA MPAC +1
057859,000860: 10,2670 50064 INDEX LOCCTR
057860,000861: 10,2671 52156 DXCH MPAC +1
057861,000862:
057862,000863: 10,2672 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK
057863,000864: 10,2673 30160 DCA MPAC +3
057864,000865: 10,2674 50064 INDEX LOCCTR
057865,000866: 10,2675 52160 DXCH MPAC +3
057866,000867:
057867,000868: 10,2676 30064 CA LOCCTR
057868,000869: 10,2677 54161 TS MPAC +5
057869,000870: # Page 1362
057870,000871: 10,2700 02727 TC SAVELOCR
057871,000872: 10,2701 00003 RELINT
057872,000873:
057873,000874: 10,2702 14640 TCF BANKJUMP # CALL CADR +4
057874,000875:
057875,000876: 10,2703 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
057876,000877:
057877,000878: 10,2704 33476 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
057878,000879:
057879,000880: 10,2705 54155 GOPERFRS TS PLAYTEM1
057880,000881:
057881,000882: 10,2706 33475 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
057882,000883: 10,2707 12637 TCF GODSPRS
057883,000884:
057884,000885: 10,2710 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057885,000886:
057886,000887: 10,2711 33501 CAF PERF2MSK
057887,000888: 10,2712 12637 TCF GODSPRS
057888,000889:
057889,000890: 10,2713 02715 GOPERF4R TC PURRS4
057890,000891:
057891,000892: 10,2714 12637 TCF GODSPRS
057892,000893:
057893,000894: 10,2715 55144 PURRS4 TS OPTION1 # DESIRED OPTION CODE
057894,000895:
057895,000896: 10,2716 33502 CAF V04N06
057896,000897: 10,2717 54155 TS PLAYTEM1
057897,000898:
057898,000899: 10,2720 33503 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3
057899,000900: 10,2721 00002 TC Q
057900,000901:
057901,000902: 10,2722 00004 SAVELOCS INHINT
057902,000903:
057903,000904: 10,2723 43512 CS OCT3400 # EBANK BITS
057904,000905: 10,2724 70160 MASK PLAYTEM4
057905,000906: 10,2725 60003 AD EBANK
057906,000907: 10,2726 54160 TS PLAYTEM4
057907,000908:
057908,000909: 10,2727 22002 SAVELOCR LXCH Q
057909,000910:
057910,000911: 10,2730 04645 TC MAKECADR
057911,000912: 10,2731 54157 TS PLAYTEM3
057912,000913:
057913,000914: 10,2732 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
057914,000915: 10,2733 00001 TC L
057915,000916:
057916,000917: 10,2734 34755 COPYNORM CAF ZERO
057917,000918: 10,2735 54164 COPIES TS COPINDEX
057918,000919: 10,2736 00004 COPIES2 INHINT
057919,000920: 10,2737 30160 CA PLAYTEM4 # FLAGWORD
057920,000921:
057921,000922: # Page 1363
057922,000923: 10,2740 50164 INDEX COPINDEX
057923,000924: 10,2741 55070 TS EBANKSAV # EQUIV TO DSPFLG
057924,000925:
057925,000926: 10,2742 73530 MASK CADRMASK # FLASH AND GODSPRET
057926,000927: 10,2743 00006 EXTEND
057927,000928: 10,2744 12750 BZF SKIPADD
057928,000929:
057929,000930: 10,2745 30157 CA PLAYTEM3
057930,000931: 10,2746 50164 INDEX COPINDEX
057931,000932: 10,2747 54372 TS CADRFLSH
057932,000933:
057933,000934: 10,2750 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
057934,000935: 10,2751 50164 INDEX COPINDEX
057935,000936: 10,2752 54367 TS NVWORD
057936,000937:
057937,000938: 10,2753 13231 TCF RELINTQ
057938,000939:
057939,000940: 10,2754 50164 GOSLEEPS INDEX COPINDEX
057940,000941: 10,2755 33531 CA PRIOOCT
057941,000942: 10,2756 72760 MASK WAITMASK
057942,000943: 10,2757 03544 TC UPENT2
057943,000944: 10,2760 03004 WAITMASK OCT 3004
057944,000945: 10,2761 44753 CS ONE
057945,000946: 10,2762 60164 AD COPINDEX
057946,000947: 10,2763 54154 TS FACEREG
057947,000948:
057948,000949: 10,2764 50154 XCHSLEEP INDEX FACEREG
057949,000950: 10,2765 33510 CAF WAKECADR
057950,000951: 10,2766 00004 INHINT
057951,000952: 10,2767 05137 TC JOBWAKE # FIND CADR IN JOB AREA
057952,000953:
057953,000954: 10,2770 03222 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
057954,000955:
057955,000956: 10,2771 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
057956,000957: 10,2772 33510 CAF WAKECADR
057957,000958: 10,2773 15133 TCF JOBSLEEP
057958,000959:
057959,000960: 10,2774 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
057960,000961: 10,2775 03205 TC WITCHONE
057961,000962: 10,2776 05137 TC JOBWAKE
057962,000963: 10,2777 30154 CA FACEREG
057963,000964: 10,3000 50064 INDEX LOCCTR
057964,000965: 10,3001 54154 TS FACEREG
057965,000966:
057966,000967: 10,3002 33015 CAF XCHQADD
057967,000968: 10,3003 03223 TC XCHNYLOC
057968,000969:
057969,000970: 10,3004 50154 INDEX FACEREG
057970,000971: 10,3005 33532 CA MARKOCT
057971,000972: 10,3006 73534 MASK IDLESLEP
057972,000973:
057973,000974: # Page 1364
057974,000975: 10,3007 03554 TC DOWNENT2
057975,000976: 10,3010 74004 IDLEMASK OCT 74004 # * DON'T MOVE
057976,000977:
057977,000978: 10,3011 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
057978,000979: 10,3012 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
057979,000980: 10,3013 64751 AD FOUR
057980,000981: 10,3014 03544 TC UPENT2 # FLAG ROUTINE DOES RELINT
057981,000982: 10,3015 02764 XCHQADD GENADR XCHSLEEP # * DON'T MOVE
057982,000983: 10,3016 30100 CA FLAGWRD4
057983,000984: 10,3017 74751 MASK MKOVBIT # MARK OVER NORM?
057984,000985: 10,3020 10000 CCS A
057985,000986: 10,3021 02377 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
057986,000987: 10,3022 12536 TCF OKTOCOPY
057987,000988:
057988,000989: 10,3023 34755 MARKWAKE CAF ZERO
057989,000990: 10,3024 54160 WAKEPLAY TS TEMPOR2
057990,000991:
057991,000992: 10,3025 50160 INDEX TEMPOR2
057992,000993: 10,3026 33524 CA BITS5+11
057993,000994: 10,3027 64751 AD FOUR
057994,000995: 10,3030 03554 TC DOWNENT2
057995,000996: 10,3031 40010 MARKFMSK OCT 40010 # *** DON'T MOVE
057996,000997:
057997,000998: 10,3032 50160 INDEX TEMPOR2
057998,000999: 10,3033 33510 CAF WAKECADR
057999,001000: 10,3034 00004 INHINT
058000,001001: 10,3035 05137 TC JOBWAKE
058001,001002:
058002,001003: 10,3036 13335 TCF ENDRET
058003,001004:
058004,001005: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
058005,001006: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
058006,001007:
058007,001008: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
058008,001009: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
058009,001010:
058010,001011: 10,3037 31072 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK
058011,001012: 10,3040 54003 TS EBANK
058012,001013:
058013,001014: 10,3041 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
058014,001015: 10,3042 04727 TC SUPERSW # RESTORE SUPERBANK
058015,001016:
058016,001017: 10,3043 77725 MASK PRIO37
058017,001018: 10,3044 05146 TC PRIOCHNG
058018,001019:
058019,001020: 10,3045 46245 CS THREE
058020,001021: 10,3046 60374 AD TEMPFLSH
058021,001022: 10,3047 14640 TCF BANKJUMP
058022,001023:
058023,001024: 10,3050 00003 PINBRNCH RELINT # FOR GOPIN USERS
058024,001025: 10,3051 31073 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
058025,001026: # Page 1365
058026,001027: 10,3052 54156 TS MPAC +2 # ONLY
058027,001028:
058028,001029: 10,3053 30100 CA FLAGWRD4 # PINBRANCH CONDITION
058029,001030: 10,3054 77740 MASK PINMASK
058030,001031: 10,3055 10000 CCS A
058031,001032: 10,3056 13061 TCF +3
058032,001033: 10,3057 13471 TCF ERASER # ** NOTHING IN ENDIDLE
058033,001034: 10,3060 12377 TCF MARKPLAY
058034,001035:
058035,001036: 10,3061 05504 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
058036,001037: 10,3062 00105 ADRES PINBRFLG
058037,001038:
058038,001039: 10,3063 34736 CAF PRIODBIT # PRIO INTERRUPTED
058039,001040: 10,3064 70100 MASK FLAGWRD4
058040,001041: 10,3065 10000 CCS A
058041,001042: 10,3066 12544 TCF KEEPPRIO
058042,001043:
058043,001044: 10,3067 12615 TCF PLAYJUM1
058044,001045:
058045,001046: 10,3070 02417 NVDSP TC COPYPACS
058046,001047:
058047,001048: 10,3071 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
058048,001049: 10,3072 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR
058049,001050: 10,3073 54001 TS L
058050,001051:
058051,001052: 10,3074 44737 CS BIT13
058052,001053: 10,3075 50164 INDEX COPINDEX
058053,001054: 10,3076 71070 MASK DSPFLG
058054,001055: 10,3077 50164 INDEX COPINDEX
058055,001056: 10,3100 55070 TS DSPFLG
058056,001057:
058057,001058: 10,3101 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
058058,001059: 10,3102 54141 TS TEM1
058059,001060:
058060,001061: 10,3103 30156 CA MPAC +2
058061,001062: 10,3104 54165 TS MPAC2SAV
058062,001063:
058063,001064: 10,3105 55073 TS MARK2PAC # * FOR DISK ONLY *
058064,001065: 10,3106 50164 INDEX COPINDEX
058065,001066: 10,3107 10367 CCS NVWORD
058066,001067: 10,3110 13117 TCF NVDSP1
058067,001068: 10,3111 13233 TCF CLEANEND
058068,001069: 10,3112 40370 CS MARKNV
058069,001070: 10,3113 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
058070,001071: 10,3114 76074 MASK LOW7
058071,001072: 10,3115 63515 AD V05N00M1
058072,001073: 10,3116 60141 AD TEM1
058073,001074: 10,3117 64753 NVDSP1 AD ONE
058074,001075: 10,3120 04155 NV50DSP TC NVMONOPT
058075,001076: 10,3121 13245 TCF REST # IF BUSY
058076,001077:
058077,001078: # Page 1366
058078,001079: 10,3122 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH
058079,001080:
058080,001081: 10,3123 02415 TC COPYTOGO # MPACS DESTROYED BY NVSUB
058081,001082: 10,3124 05516 TC DOWNFLAG # UNSET SLEEPING BITS
058082,001083: 10,3125 00102 ADRES MRKNVFLG
058083,001084: 10,3126 05516 TC DOWNFLAG
058084,001085: 10,3127 00103 ADRES NRMNVFLG
058085,001086: 10,3130 05516 TC DOWNFLAG
058086,001087: 10,3131 00104 ADRES PRONVFLG
058087,001088: 10,3132 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
058088,001089: 10,3133 04255 TC BLANKSUB
058089,001090: 10,3134 13070 TCF NVDSP
058090,001091: 10,3135 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
058091,001092: 10,3136 70160 MASK TEMPOR2
058092,001093: 10,3137 10000 CCS A # IS THIS A GOPERF DISPLAY
058093,001094: 10,3140 13163 TCF 1STOR2ND # YES
058094,001095:
058095,001096: 10,3141 34750 GOANIDLE CAF BIT4
058096,001097: 10,3142 70160 MASK TEMPOR2
058097,001098: 10,3143 10000 CCS A
058098,001099: 10,3144 13260 TCF FLASHSUB # IT IS
058099,001100:
058100,001101: 10,3145 40160 CS TEMPOR2 # IS THIS A GODSPRET
058101,001102: 10,3146 74746 MASK BIT6
058102,001103: 10,3147 10000 CCS A
058103,001104: 10,3150 13155 TCF ISITN00
058104,001105:
058105,001106: 10,3151 50164 INDEX COPINDEX
058106,001107: 10,3152 30372 CA CADRFLSH
058107,001108: 10,3153 54157 TS MPAC +3
058108,001109: 10,3154 13353 TCF ENDIT
058109,001110:
058110,001111: 10,3155 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
058111,001112: 10,3156 30367 CA NVWORD
058112,001113: 10,3157 76074 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
058113,001114: 10,3160 00006 EXTEND
058114,001115: 10,3161 13260 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
058115,001116:
058116,001117: 10,3162 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT
058117,001118:
058118,001119: 10,3163 30160 1STOR2ND CA TEMPOR2
058119,001120: 10,3164 74737 MASK BIT13
058120,001121: 10,3165 10000 CCS A
058121,001122: 10,3166 13141 TCF GOANIDLE # SECOND
058122,001123:
058123,001124: 10,3167 34737 CA BIT13
058124,001125: 10,3170 50164 INDEX COPINDEX
058125,001126: 10,3171 27070 ADS DSPFLG
058126,001127:
058127,001128: 10,3172 22007 ZL
058128,001129: # Page 1367
058129,001130: 10,3173 00006 EXTEND # IS IT MARK
058130,001131: 10,3174 62440 BZMF MARKPERF # YES
058131,001132:
058132,001133: 10,3175 74740 MASK BIT12
058133,001134: 10,3176 00006 EXTEND
058134,001135: 10,3177 13203 BZF V50PASTE
058135,001136: 10,3200 41067 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
058136,001137: 10,3201 63541 AD V97N00
058137,001138: 10,3202 13120 TCF NV50DSP
058138,001139: 10,3203 33500 V50PASTE CAF V50N00
058139,001140: 10,3204 13120 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
058140,001141:
058141,001142: 10,3205 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
058142,001143: 10,3206 00006 EXTEND
058143,001144: 10,3207 03011 WAND DSALMOUT
058144,001145:
058145,001146: 10,3210 30100 CA FLAGWRD4
058146,001147: 10,3211 73516 MASK NVBUSMSK # IS IT NVSUB ALEEP
058147,001148: 10,3212 10000 CCS A
058148,001149: 10,3213 34753 CAF ONE
058149,001150: 10,3214 54001 TS L
058150,001151: 10,3215 34755 CAF ZERO
058151,001152: 10,3216 50001 INDEX L
058152,001153: 10,3217 57042 XCH CADRSTOR
058153,001154:
058154,001155: 10,3220 00004 INHINT
058155,001156: 10,3221 00002 TC Q
058156,001157:
058157,001158: 10,3222 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
058158,001159: 10,3223 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
058159,001160: 10,3224 00006 EXTEND
058160,001161: 10,3225 63231 BZMF RELINTQ # NO
058161,001162: 10,3226 56064 XCH LOCCTR # YES
058162,001163: 10,3227 50064 INDEX LOCCTR
058163,001164: 10,3230 54164 TS LOC
058164,001165:
058165,001166: 10,3231 00003 RELINTQ RELINT
058166,001167: 10,3232 00002 TC Q # BACK TO USER
058167,001168:
058168,001169: 10,3233 37720 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
058169,001170: 10,3234 05105 TC FINDVAC
058170,001171: 10,3235 0371 EBANK= NVSAVE
058171,001172: 10,3235 04231 04060 2CADR JAMTERM
058172,001173:
058173,001174: 10,3237 13261 TCF FLASHSUB +1
058174,001175:
058175,001176: 10,3240 30100 ISITPRIO CA FLAGWRD4
058176,001177: 10,3241 73266 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
058177,001178: 10,3242 00006 EXTEND
058178,001179: # Page 1368
058179,001180: 10,3243 12575 BZF PRIOBORT
058180,001181: 10,3244 15155 TCF ENDOFJOB
058181,001182:
058182,001183: 10,3245 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
058183,001184: 10,3246 15155 TCF ENDOFJOB # YES
058184,001185: 10,3247 13251 TCF RESTSLEP
058185,001186:
058186,001187: 10,3250 15155 TCF ENDOFJOB
058187,001188:
058188,001189: 10,3251 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
058189,001190: 10,3252 73517 MASK ASTROMSK
058190,001191: 10,3253 03544 TC UPENT2
058191,001192: 10,3254 24100 OCT24100 OCT 24100 # *** DON'T MOVE
058192,001193:
058193,001194: 10,3255 50164 INDEX COPINDEX
058194,001195: 10,3256 33507 CAF NVCADR
058195,001196: 10,3257 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
058196,001197:
058197,001198: 10,3260 04427 FLASHSUB TC FLASHON
058198,001199:
058199,001200: 10,3261 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
058200,001201: 10,3262 54157 TS COPMPAC
058201,001202:
058202,001203: 10,3263 30162 CA GENMASK
058203,001204: 10,3264 73010 MASK IDLEMASK
058204,001205: 10,3265 03544 TC UPENT2
058205,001206: 10,3266 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE
058206,001207:
058207,001208: 10,3267 31074 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
058208,001209: 10,3270 50164 INDEX COPINDEX
058209,001210: 10,3271 74751 MASK BIT3
058210,001211: 10,3272 10000 CCS A
058211,001212: 10,3273 13360 TCF UNSETR1 # YES
058212,001213:
058213,001214: 10,3274 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
058214,001215: 10,3275 13240 TCF ISITPRIO
058215,001216: 10,3276 13300 TCF +2
058216,001217: 10,3277 13240 TCF ISITPRIO
058217,001218:
058218,001219: 10,3300 04207 TC ENDIDLE
058219,001220: 10,3301 13372 IDLERET1 TCF TERMATE
058220,001221:
058221,001222: 10,3302 13411 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
058222,001223:
058223,001224: 10,3303 43526 CS LOWLOAD
058224,001225: 10,3304 60154 AD MPAC # VERBREG
058225,001226: 10,3305 00006 EXTEND
058226,001227: 10,3306 26000 DIM A
058227,001228: 10,3307 00006 EXTEND
058228,001229: 10,3310 13461 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
058229,001230:
058230,001231: # Page 1369
058231,001232: 10,3311 34752 OKTOENT CAF TWO
058232,001233: 10,3312 54161 ENDOUT TS OUTHERE
058233,001234:
058234,001235: 10,3313 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
058235,001236: 10,3314 74101 MASK OCT60000
058236,001237: 10,3315 10000 CCS A
058237,001238: 10,3316 13321 TCF TIMECHEK # PRIO ENDIDLE RETURN
058238,001239: 10,3317 13427 TCF NORMRET # NORMAL ENDIDLE RETURN
058239,001240: 10,3320 13413 TCF MARKRET # MARK ENDIDLE RETURN
058240,001241:
058241,001242: 10,3321 40025 TIMECHEK CS TIME1
058242,001243: 10,3322 61165 AD PRIOTIME
058243,001244: 10,3323 10000 CCS A
058244,001245: 10,3324 40000 COM
058245,001246: 10,3325 67731 AD OCT37776
058246,001247: 10,3326 64753 AD ONE
058247,001248: 10,3327 63570 AD -2SEC
058248,001249: 10,3330 00006 EXTEND
058249,001250: 10,3331 62544 BZMF KEEPPRIO
058250,001251:
058251,001252: 10,3332 13427 TCF NORMRET
058252,001253:
058253,001254: 10,3333 34753 NORMWAKE CAF ONE
058254,001255: 10,3334 13024 TCF WAKEPLAY
058255,001256:
058256,001257: 10,3335 10161 ENDRET CCS OUTHERE
058257,001258: 10,3336 64753 AD ONE
058258,001259: 10,3337 13341 TCF +2 # NORMAL ENDIDLE EXIT
058259,001260: 10,3340 15155 TCF ENDOFJOB
058260,001261: 10,3341 50157 INDEX COPMPAC
058261,001262: 10,3342 60372 AD CADRFLSH
058262,001263: 10,3343 54157 TS MPAC +3
058263,001264:
058264,001265: 10,3344 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
058265,001266: 10,3345 73347 MASK PINIDMSK
058266,001267: 10,3346 03554 TC DOWNENT2
058267,001268: 10,3347 74044 PINIDMSK OCT 74044 # *** DON'T MOVE
058268,001269:
058269,001270: 10,3350 46245 CS THREE # BLANK EVERYTHING EXCEPT MM
058270,001271: 10,3351 04154 TC NVSUB
058271,001272: 10,3352 13353 TCF +1
058272,001273:
058273,001274: 10,3353 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY
058274,001275: 10,3354 77725 MASK PRIO37
058275,001276: 10,3355 05146 TC PRIOCHNG
058276,001277: 10,3356 30157 CA MPAC +3
058277,001278: 10,3357 14640 TCF BANKJUMP
058278,001279:
058279,001280: 10,3360 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
058280,001281: 10,3361 44751 CS BIT3
058281,001282: # Page 1370
058282,001283: 10,3362 71074 MASK R1SAVE
058283,001284: 10,3363 55074 TS R1SAVE
058284,001285:
058285,001286: 10,3364 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
058286,001287: 10,3365 04727 TC SUPERSW # SUPERBANK 0
058287,001288:
058288,001289: 10,3366 36245 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC
058289,001290: 10,3367 50164 IMMEDRET INDEX COPINDEX
058290,001291: 10,3370 60372 AD CADRFLSH
058291,001292: 10,3371 14640 TCF BANKJUMP
058292,001293:
058293,001294: 10,3372 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
058294,001295: 10,3373 13312 TCF ENDOUT
058295,001296:
058296,001297: 10,3374 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
058297,001298: 10,3375 74736 MASK BIT14
058298,001299: 10,3376 10000 CCS A
058299,001300: 10,3377 16737 TCF Q+1 # NO
058300,001301: 10,3400 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
058301,001302: 10,3401 50164 INDEX COPINDEX
058302,001303: 10,3402 60372 AD CADRFLSH
058303,001304: 10,3403 00006 EXTEND
058304,001305: 10,3404 13406 BZF +2 # YES
058305,001306:
058306,001307: 10,3405 00002 TC Q # NO
058307,001308: 10,3406 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
058308,001309: 10,3407 05155 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE
058309,001310: 10,3410 00002 TC Q
058310,001311:
058311,001312: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD
058312,001313:
058313,001314: 10,3411 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
058314,001315: 10,3412 13312 TCF ENDOUT
058315,001316:
058316,001317: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
058317,001318: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
058318,001319: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP.
058319,001320:
058320,001321: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
058321,001322: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
058322,001323: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A
058323,001324: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
058324,001325:
058325,001326: 10,3413 46242 MARKRET CS SIX
058326,001327: 10,3414 70100 MASK FLAGWRD4
058327,001328: 10,3415 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
058328,001329: 10,3416 54100 TS FLAGWRD4
058329,001330:
058330,001331: 10,3417 00003 RELINT # INHINT REALM
058331,001332: 10,3420 13335 TCF ENDRET
058332,001333:
058333,001334: # Page 1371
058334,001335: 10,3421 37747 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
058335,001336: 10,3422 54161 TS OUTHERE
058336,001337:
058337,001338: 10,3423 30100 CA FLAGWRD4 # IS ENDIDFLG SET
058338,001339: 10,3424 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
058339,001340: 10,3425 10000 CCS A
058340,001341: 10,3426 13061 TCF NORMBNCH
058341,001342:
058342,001343: 10,3427 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
058343,001344: 10,3430 73524 MASK BITS5+11 # OR WAITING
058344,001345: 10,3431 10000 CCS A
058345,001346: 10,3432 13023 TCF MARKWAKE
058346,001347:
058347,001348: 10,3433 30100 CA FLAGWRD4 # NO
058348,001349: 10,3434 73525 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
058349,001350: 10,3435 10000 CCS A
058350,001351: 10,3436 13333 TCF NORMWAKE # YES
058351,001352:
058352,001353: 10,3437 31072 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
058353,001354: 10,3440 74771 MASK OCT50 # OR A GODSPRET
058354,001355: 10,3441 10000 CCS A
058355,001356: 10,3442 13335 TCF ENDRET # YES
058356,001357: 10,3443 30371 CA NVSAVE
058357,001358: 10,3444 00006 EXTEND
058358,001359: 10,3445 13335 BZF ENDRET
058359,001360:
058360,001361: 10,3446 35025 CAF PRIO15
058361,001362: 10,3447 00004 INHINT
058362,001363: 10,3450 05072 TC NOVAC
058363,001364: 10,3451 0367 EBANK= NVWORD
058364,001365: 10,3451 02615 20060 2CADR PLAYJUM1
058365,001366:
058366,001367: 10,3453 13335 TCF ENDRET
058367,001368:
058368,001369: 10,3454 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
058369,001370: 10,3455 73524 MASK BITS5+11
058370,001371: 10,3456 10000 CCS A
058371,001372: 10,3457 15155 TCF ENDOFJOB # YES
058372,001373: 10,3460 12754 TCF GOSLEEPS
058373,001374:
058374,001375: 10,3461 50157 LOADITIS INDEX COPMPAC
058375,001376: 10,3462 30367 CA NVWORD
058376,001377: 10,3463 76074 MASK LOW7
058377,001378: 10,3464 40000 COM
058378,001379: 10,3465 60155 AD MPAC +1 # NOUNREG
058379,001380: 10,3466 00006 EXTEND
058380,001381: 10,3467 13311 BZF OKTOENT # NO, THEN LOAD IS VALID
058381,001382: 10,3470 13050 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
058382,001383:
058383,001384: # Page 1372
058384,001385: 10,3471 46245 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
058385,001386: 10,3472 04154 TC NVSUB
058386,001387: 10,3473 15155 TCF ENDOFJOB
058387,001388: 10,3474 15155 TCF ENDOFJOB
058388,001389:
058389,001390: 10,3475 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
058390,001391: 10,3476 00231 V01N25 VN 00125
058391,001392: 10,3477 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
058392,001393: 10,3500 14400 V50N00 VN 5000
058393,001394: 10,3501 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
058394,001395: 10,3502 01006 V04N06 VN 00406
058395,001396: 10,3503 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
058396,001397: 10,3504 10,3050 GOAGIN EQUALS PINBRNCH
058397,001398: 10,3504 20010 REDOMASK OCT 20010 # BITS 4 AND 14
058398,001399: 10,3505 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
058399,001400: 10,3506 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
058400,001401: 10,3507 20542 NVCADR CADR REDOPRIO
058401,001402: 10,3510 20377 WAKECADR CADR MARKPLAY
058402,001403: 10,3511 20615 CADR PLAYJUM1
058403,001404:
058404,001405: 10,3512 03400 OCT3400 OCT 3400 # EBANK MASK
058405,001406: 10,3513 11210 NBUSMASK OCT 11210
058406,001407: 10,3514 66521 PMMASK OCT 66521
058407,001408: 10,3515 4144 VERBMASK = MID7 # (OCT 37600)
058408,001409: 10,3515 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
058409,001410: 10,3516 10,2330 GOXDSP EQUALS GOMARK
058410,001411: 10,3516 10,2350 GOXDSPR EQUALS GOMARKR
058411,001412: 10,3516 10,2334 GOXDSPF EQUALS GOMARKF
058412,001413: 10,3516 10,2353 GOXDSPFR EQUALS GOMARKFR
058413,001414: 10,3516 5472 ENDEXT EQUALS ENDMARK
058414,001415: 10,3516 0165 MPAC2SAV EQUALS BANKSET
058415,001416: 10,3516 00700 NVBUSMSK OCT 700
058416,001417: 10,3517 00704 ASTROMSK OCT 704
058417,001418: 10,3520 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
058418,001419: 10,3521 34300 OCT34300 OCT 34300
058419,001420: 10,3522 40100 BITS15+7 OCT 40100
058420,001421: 10,3523 00110 BITS7+4 OCT 110
058421,001422: 10,3524 1070 DSPFLG EQUALS EBANKSAV
058422,001423: 10,3524 1071 MARKFLAG EQUALS MARKEBAN
058423,001424: 10,3524 1072 SAVEFLAG EQUALS EBANKTEM
058424,001425: 10,3524 02020 BITS5+11 OCT 2020 # * DON'T MOVE
058425,001426: 10,3525 01010 BITS4+10 OCT 1010 # * DON'T MOVE
058426,001427: 10,3526 00026 LOWLOAD DEC 22 B-14
058427,001428: 10,3527 77730 BUSYMASK OCT 77730
058428,001429: 10,3530 00050 CADRMASK OCT 50
058429,001430: 10,3531 7740 PINMASK EQUALS 13,14,15
058430,001431: 10,3531 10,3070 GOPLAY EQUALS NVDSP
058431,001432: 10,3531 1074 PRIOSAVE EQUALS R1SAVE
058432,001433: 10,3531 0157 COPMPAC EQUALS MPAC +3
058433,001434: 10,3531 0160 TEMPOR2 EQUALS MPAC +4
058434,001435:
058435,001436: # Page 1373
058436,001437: 10,3531 0161 OUTHERE EQUALS MPAC +5
058437,001438: 10,3531 0164 COPINDEX EQUALS LOC
058438,001439: 10,3531 0163 USERPRIO EQUALS MODE
058439,001440: 10,3531 0162 GENMASK EQUALS MPAC +6
058440,001441: 10,3531 20144 PRIOOCT OCT 20144 # PRIO
058441,001442: 10,3532 42424 MARKOCT OCT 42424 # MARK
058442,001443: 10,3533 11254 OCT 11254 # NORM
058443,001444:
058444,001445: 10,3534 74704 IDLESLEP OCT 74704
058445,001446: 10,3535 67777 OCT67777 OCT 67777
058446,001447: 10,3536 5464 LINUS EQUALS BLANKET
058447,001448: 10,3536 0154 FACEREG EQUALS MPAC
058448,001449: 10,3536 0155 PLAYTEM1 EQUALS MPAC +1
058449,001450: 10,3536 0157 PLAYTEM3 EQUALS MPAC +3
058450,001451: 10,3536 0160 PLAYTEM4 EQUALS MPAC +4
058451,001452: 10,3536 40420 OCT40420 OCT 40420
058452,001453: 10,3537 02546 MAKEGEN GENADR MAKEPLAY
058453,001454: 10,3540 10200 OCT10200 OCT 10200
058454,001455: 10,3541 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
058455,001456: 10,3542 20100 OCT20100 OCT 20100
058456,001457: 10,3543 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE, REFLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc