Source Code
055394,000001: # Copyright: Public domain.
055395,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc
055396,000003: # Purpose: A section of Luminary 1C, revision 131.
055397,000004: # It is part of the source code for the Lunar Module's (LM)
055398,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
055399,000006: # This file is intended to be a faithful transcription, except
055400,000007: # that the code format has been changed to conform to the
055401,000008: # requirements of the yaYUL assembler rather than the
055402,000009: # original YUL assembler.
055403,000010: # Reference: pp. 1338-1370 of 1729.pdf.
055404,000011: # Contact: Ron Burkey <info@sandroid.org>.
055405,000012: # Website: www.ibiblio.org/apollo/index.html
055406,000013: # Mod history: 06/06/03 RSB. Began transcribing.
055407,000014: # 05/14/05 RSB. Corrected website reference above.
055408,000015:
055409,000016: # Page 1338
055410,000017: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --
055411,000018: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
055412,000019: # OUT UNDER CRITICAL ALARM CONDITIONS.
055413,000020: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
055414,000021: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
055415,000022: # SEQUENCE OF EVENTS.
055416,000023: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
055417,000024: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
055418,000025: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY.
055419,000026:
055420,000027: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS --
055421,000028: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
055422,000029: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
055423,000030: # BUT NOT WAITING FOR A RESPONSE.
055424,000031: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
055425,000032: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
055426,000033: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
055427,000034: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
055428,000035: # HAS INFO SAVED FOR RESTART PURPOSES.
055429,000036:
055430,000037: # DISPLAY PRIORITIES WORK AS FOLLOWS --
055431,000038: # INTERRUPTS --
055432,000039: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
055433,000040: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
055434,000041: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
055435,000042: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR TEH LINUS ROUTINE.
055436,000043: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
055437,000044: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
055438,000045:
055439,000046: # ORDER OF WAITING DISPLAYS --
055440,000047: # 1. ASTRONAUT
055441,000048: # 2. PRIORITY
055442,000049: # 3. INTERRUPTED MARK
055443,000050: # 4. INTERRUPTED NORMAL
055444,000051: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
055445,000052: # 6. MARK WAITING
055446,000053: # 7. NORMAL WAITING
055447,000054:
055448,000055: # Page 1339
055449,000056: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
055450,000057: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
055451,000058: # WILL FOLLOW LATER):
055452,000059: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
055453,000060: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
055454,000061: # IS TO THE USER'S CALLING LOC +1.
055455,000062: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
055456,000063: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY.
055457,000064: # 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
055458,000065: # USER'S JOB.
055459,000066: # 5. ALL DISPLAY ROUTIENS ARE CALLED VIA BANKCALL.
055460,000067: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
055461,000068: # DESCRIPTION OF RESTARTS).
055462,000069: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES
055463,000070: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE
055464,000071: # (V32) BRANCHES TO THE USER'S CALL CADR +3.
055465,000072: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
055466,000073:
055467,000074: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
055468,000075: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
055469,000076: # 1. GODSP IS NOT RESTARTABLE
055470,000077: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
055471,000078: # CAF VXXNYY
055472,000079: # TC BANKCALL
055473,000080: # CADR GODSP
055474,000081: # VXXNYY OCT OXXYY
055475,000082: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
055476,000083: # CAF VXXNYY
055477,000084: # TC BANKCALL
055478,000085: # CADR GODSPR
055479,000086: # ... ... # IMMEDIATE RETURN OF GODSPR
055480,000087: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
055481,000088: # THE ASTRONAUT (SEE NO. 7 ABOVE).
055482,000089: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN.
055483,000090: # TC BANKCALL
055484,000091: # CADR GOFLASH
055485,000092: # ... ... # TERMINATE RETURN
055486,000093: # ... ... # PROCEED RETURN
055487,000094: # ... ... # ENTER OR RECYCLE RETURN
055488,000095: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
055489,000096: # Page 1340
055490,000097: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
055491,000098: # USER (SEE NO. 7 ABOVE).
055492,000099: # GOPERF1 BLANKS REGISTERS R2 AND R3
055493,000100: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX
055494,000101: # TC BANKCALL
055495,000102: # CADR GOPERF1
055496,000103: # ... ... # TERMINATE RETURN
055497,000104: # ... ... # PROCEED RETURN
055498,000105: # ... ... # ENTER RETURN
055499,000106: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
055500,000107: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
055501,000108: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
055502,000109: # GOPERF2 DOES NOT BLANK ANY REGISTERS
055503,000110: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01.
055504,000111: # TC BANKCALL
055505,000112: # CADR GOPERF2
055506,000113: # ... ... # TERMINATE RETURN
055507,000114: # ... ... # PROCEED RETURN
055508,000115: # ... ... # ENTER RETURN
055509,000116: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
055510,000117: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
055511,000118: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
055512,000119: # GOPERF3 BLANKS REGISTERS R2 AND R3
055513,000120: # CAF DECXX # REQUEST PERFORM ON PXX
055514,000121: # TC BANKCALL
055515,000122: # CADR GOPERF3
055516,000123: # ... ... # TERMINATE RETURN
055517,000124: # ... ... # PROCEED RETURN
055518,000125: # ... ... # ENTER RETURN
055519,000126: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
055520,000127: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
055521,000128: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
055522,000129: # GOPERF4 BLANKS REGISTER R3.
055523,000130: # CAF OCTXX # REQUEST PERFORM ON OPTION XX
055524,000131: # TC BANKCALL
055525,000132: # CADR GOPERF4
055526,000133: # ... ... # TERMINATE RETURN
055527,000134: # ... ... # PROCEED RETURN
055528,000135: # ... ... # ENTER RETURN
055529,000136: # Page 1341
055530,000137: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
055531,000138: # OUT.
055532,000139: # CAF VXXXNYY
055533,000140: # TC BANKCALL
055534,000141: # CADR GODSPRET
055535,000142: # ... ... # RETURN TO USER.
055536,000143: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES AND
055537,000144: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
055538,000145: # CAF VXXNYY
055539,000146: # TC BANKCALL
055540,000147: # CADR REGODSP
055541,000148: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
055542,000149: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
055543,000150: # TC BANKCALL
055544,000151: # CADR REFLASH
055545,000152: # ... ... # TERMINATE RETURN
055546,000153: # ... ... # PROCEED RETURN
055547,000154: # ... ... # ENTER RETURN
055548,000155: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
055549,000156: # CAF VXXNYY
055550,000157: # TC BANKCALL
055551,000158: # CADR GOFLASHR
055552,000159: # ... ... # TERMINATE RETURN
055553,000160: # ... ... # PROCEED RETURN
055554,000161: # ... ... # ENTER OR RECYCLE RETURN
055555,000162: # ... ... # IMMEDIATE RETURN FROM GOFLASHR
055556,000163: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4.
055557,000164: # GOPERF1R BLANKS REGISTERS R2 AND R3
055558,000165: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX.
055559,000166: # TC BANKCALL
055560,000167: # CADR GOPERF1R
055561,000168: # ... ... # TERMINATE RETURN
055562,000169: # ... ... # PROCEED RETURN
055563,000170: # ... ... # ENTER RETURN
055564,000171: # ... ... # IMMEDIATE RETURN FROM GOPERF1R
055565,000172: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
055566,000173: # Page 1342
055567,000174: # GOPERF2R DOES NOT BLANK ANY REGISTERS
055568,000175: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01
055569,000176: # TC BANKCALL
055570,000177: # CADR GOPERF2R
055571,000178: # ... ... # TERMINATE RETURN
055572,000179: # ... ... # PROCEED RETURN
055573,000180: # ... ... # ENTER RETURN
055574,000181: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R
055575,000182: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
055576,000183: # GOPERF3R BLANKS REGISTERS R2 AND R3
055577,000184: # CAF PROGXX # PERFORM PROGRAM XX
055578,000185: # TC BANKCALL
055579,000186: # CADR GOPERF3R
055580,000187: # ... ... # TERMINATE RETURN
055581,000188: # ... ... # PROCEED RETURN
055582,000189: # ... ... # ENTER RETURN
055583,000190: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE
055584,000191: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
055585,000192: # GOPERF4R BLANKS REGISTER R3.
055586,000193: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX
055587,000194: # TC BANKCALL
055588,000195: # CADR GOPERF4R
055589,000196: # ... ... # TERMINATE RETURN
055590,000197: # ... ... # PROCEED RETURN
055591,000198: # ... ... # ENTER RETURN
055592,000199: # ... ... # IMMEDIATE RETURN TO USER
055593,000200: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
055594,000201: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
055595,000202: # TC BANKCALL
055596,000203: # CADR REFLASHR
055597,000204: # ... ... # TERMINATE RETURN
055598,000205: # ... ... # PROCEED RETURN
055599,000206: # ... ... # ENTER RETURN
055600,000207: # ... ... # IMMEDIATE RETURN TO USER
055601,000208: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
055602,000209: # Page 1343
055603,000210: # CAF VXXNYY
055604,000211: # TC BANKCALL
055605,000212: # CADR REGODSPR
055606,000213: # ... ... # IMMEDIATE RETURN TO USER
055607,000214: # Page 1344
055608,000215: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
055609,000216: # GOXDSP = GOMARK
055610,000217: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN
055611,000218: # TC BANKCALL
055612,000219: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP
055613,000220: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
055614,000221: # GOXDSPR = GOMARKR
055615,000222: # CAF VXXNYY
055616,000223: # TC BANKCALL
055617,000224: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR
055618,000225: # ... ... # IMMEDIATE RETURN OF GOMARKR
055619,000226: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
055620,000227: # THE ASTRONAUT (SEE NO. 7 ABOVE).
055621,000228: # GOXDSPF = GOMARKF
055622,000229: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN
055623,000230: # TC BANKCALL
055624,000231: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
055625,000232: # ... ... # TERMINATE RETURN
055626,000233: # ... ... # PROCEED RETURN
055627,000234: # ... ... # ENTER OR RECYCLE RETURN
055628,000235: # ... ... # IMMEDIATE RETURN TO THE USER
055629,000236: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
055630,000237: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
055631,000238: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
055632,000239: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
055633,000240: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
055634,000241: # TC BANKCALL
055635,000242: # Page 1345
055636,000243: # CADR GOMARK1
055637,000244: # ... ... # ENTER RETURN
055638,000245: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER.
055639,000246:
055640,000247: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2.
055641,000248: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
055642,000249: # TC BANKCALL
055643,000250: # CADR GOMARK1R
055644,000251: # ... ... # ASTRONAUT ENTER RETURN
055645,000252: # ... ... # IMMEDIATE RETURN TO USER
055646,000253: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
055647,000254: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
055648,000255: # TC BANKCALL
055649,000256: # CADR GOMARK2
055650,000257: # ... ... # TERMINATE RETURN
055651,000258: # ... ... # PROCEED RETURN
055652,000259: # ... ... # ENTER RETURN
055653,000260: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
055654,000261: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN
055655,000262: # TCF BANKCALL
055656,000263: # CADR GOMARK24
055657,000264: # ... ... # TERMINATE RETURN
055658,000265: # ... ... # PROCEED RETURN
055659,000266: # ... ... # ENTER RETURN
055660,000267: # ... ... # IMMEDIATE RETURN TO THE USER.
055661,000268: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
055662,000269: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
055663,000270: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
055664,000271: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
055665,000272: # TC BANKCALL
055666,000273: # CADR GOMARK3
055667,000274: # ... ... # TERMINATE RETURN
055668,000275: # ... ... # PROCEED RETURN
055669,000276: # ... ... # ENTER RETURN
055670,000277: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
055671,000278: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
055672,000279: # TC BANKCALL
055673,000280: # CADR GOMARK4
055674,000281: # ... ... # TERMINATE RETURN
055675,000282: # ... ... # PROCEED RETURN
055676,000283: # Page 1346
055677,000284: # ... ... # ENTER RETURN
055678,000285: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
055679,000286: # SEND OUT.
055680,000287: # CAF VXNYY
055681,000288: # TC BANKCALL
055682,000289: # CADR EXDSPRET
055683,000290: # ... ... # RETURN TO USER
055684,000291: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
055685,000292: # HAVE BEEN CLEANED OUT.
055686,000293: # TC BANKCALL
055687,000294: # CADR KLEENEX
055688,000295: # ... ... # RETURN TO USER
055689,000296: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
055690,000297: # TC BANKCALL
055691,000298: # CADR MARKBRAN
055692,000299: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE
055693,000300: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
055694,000301: # # LAST FLASHING MARK R ROUTINE)
055695,000302: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
055696,000303: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
055697,000304: # TC POSTJUMP
055698,000305: # CADR PINBRNCH
055699,000306: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
055700,000307: # THE ASTRONAUT (SEE NO. 7 ABOVE).
055701,000308: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
055702,000309: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
055703,000310: # IS RESPONDED TO BY THE ASTRONAUT.
055704,000311: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
055705,000312: # PRIO DISPLAY
055706,000313: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
055707,000314: # TC BANKCALL
055708,000315: # CADR PRIODSP
055709,000316: # ... ... # TERMINATE RETURN
055710,000317: # ... ... # PROCEED RETURN
055711,000318: # Page 1347
055712,000319: # ... ... # ENTER OR RECYCLE RETURN
055713,000320: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
055714,000321: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
055715,000322: # TC BANKCALL
055716,000323: # CADR PRIODSPR
055717,000324: # ... ... # TERMINATE ACTION
055718,000325: # ... ... # PROCEED RETURN
055719,000326: # ... ... # ENTER OR RECYCLE RETURN
055720,000327: # ... ... # IMMEDIATE RETURN
055721,000328: # PRIOLARM DOES A V05N09 PRIODSPR.
055722,000329:
055723,000330: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
055724,000331: # DISPLAYS ARE CLEANED OUT.
055725,000332: # TC BANKCALL
055726,000333: # CADR CLEANDSP
055727,000334: # ... ... # RETURN TO USER
055728,000335: # Page 1348
055729,000336:
055730,000337: # GENERAL INFORMATION
055731,000338: # -------------------
055732,000339:
055733,000340: # ALARM OR ABORT EXIT MODE --
055734,000341: # PRIOBORT TC ABORT
055735,000342: # OCT 1502
055736,000343:
055737,000344: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
055738,000345: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
055739,000346: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
055740,000347:
055741,000348: # ERASABLE INITIALIZATION REQUIRED --
055742,000349: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
055743,000350: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
055744,000351: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
055745,000352: # 5. R1SAVE = MARKBRAN CONTROL WORD
055746,000353: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
055747,000354:
055748,000355: # OUTPUT --
055749,000356: # NVWORD = PRIO VERB AND NOUN
055750,000357: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
055751,000358: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
055752,000359: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
055753,000360: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
055754,000361: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK)
055755,000362: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
055756,000363: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
055757,000364: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION
055758,000365: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
055759,000366: # OPTION1 = DESIRED OPTION FROM GOPERF4
055760,000367: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
055761,000368: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
055762,000369:
055763,000370: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
055764,000371: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC
055765,000372:
055766,000373: # DEBRIS -- (STORED INTO)
055767,000374: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL,
055768,000375: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG(?)
055769,000376: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTORE, DSPLIST, LOC, DSPTEM1, OPTION1
055770,000377: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
055771,000378: # Page 1349
055772,000379: # R1SAVE, MARK2PAC
055773,000380:
055774,000381: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1
055775,000382:
055776,000383: # FLAGWORD DESCRIPTIONS --
055777,000384: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
055778,000385:
055779,000386: # DSPFLG, DSPFLG+1, DSPFLG+2
055780,000387: # --------------------------
055781,000388: # BITS 1 BLANK R1
055782,000389: # 2 BLANK R2
055783,000390: # 3 BLANK R3
055784,000391: # 4 FLASHING DISPLAY REQUESTED
055785,000392: # 5 PERFORM DISPLAY REQUESTED
055786,000393: # 6 ----- EXDSPRET GODSPRET
055787,000394: # 7 PRIO DISPLAY ----- -----
055788,000395: # 8 ----- DEC MARK PERFORM -----
055789,000396: # 9 EBANK
055790,000397: # 10 EBANK
055791,000398: # 11 EBANK
055792,000399: # 12 ----- ----- V99PASTE
055793,000400: # 13 2ND PART OF PERFORM
055794,000401: # 14 REFLASH OR REDO ----- REFLASH OR REDO
055795,000402: # 15 ----- MARK REQUEST -----
055796,000403:
055797,000404: # RESTARTING DISPLAYS --
055798,000405:
055799,000406: # RULES FOR THE DSKY OPERATOR --
055800,000407: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N). AS LONG
055801,000408: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
055802,000409: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
055803,000410: # WITH PROCEED AND TERMINATE FOR THIS REASON.
055804,000411: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
055805,000412: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
055806,000413: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
055807,000414: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
055808,000415: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
055809,000416: # CONSIDERATION.
055810,000417: # 3. KEY RELEASE BUTTON --
055811,000418: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
055812,000419: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
055813,000420: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
055814,000421: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
055815,000422: # KEY RELEASE BUTTON MAY BE NECESSARY.
055816,000423: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
055817,000424: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
055818,000425: # OVER AGAIN.
055819,000426:
055820,000427: # SPECIAL CONSIDERATONS --
055821,000428: # Page 1350
055822,000429: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
055823,000430: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
055824,000431: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
055825,000432: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
055826,000433: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
055827,000434: # BY A .1 RESTART PHASE CHANGE.
055828,000435: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
055829,000436: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
055830,000437: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
055831,000438:
055832,000439: # Page 1351
055833,000440: # CALLING SEQUENCE FOR BLANKING
055834,000441: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
055835,000442: # TC BLANKET
055836,000443: # ... ... # RETURN TO USER HERE
055837,000444: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
055838,000445: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
055839,000446: 5464 BLOCK 02
055840,000447: 4000 SETLOC FFTAG4
055841,000448: 4000 BANK
055842,000449:
055843,000450: 5464 COUNT* $$/DSPLA
055844,000451: 5464 54162 BLANKET TS MPAC +6
055845,000452: 5465 40160 CS PLAYTEM4
055846,000453: 5466 70162 MASK MPAC +6
055847,000454: 5467 50161 INDEX MPAC +5
055848,000455: 5470 26160 ADS PLAYTEM4
055849,000456:
055850,000457: 5471 00002 TC Q
055851,000458:
055852,000459: 5472 04635 ENDMARK TC POSTJUMP
055853,000460: 5473 20326 CADR MARKEND
055854,000461:
055855,000462: 5474 34755 CLEARMRK CAF ZERO
055856,000463: 5475 55043 TS EXTVBACT
055857,000464:
055858,000465: 5476 00004 +2 INHINT
055859,000466: 5477 44753 CS XDSPBIT
055860,000467: 5500 70100 MASK FLAGWRD4
055861,000468: 5501 54100 TS FLAGWRD4
055862,000469:
055863,000470: 5502 00003 RELINT
055864,000471: 5503 00002 TC Q
055865,000472:
055866,000473: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
055867,000474: # FINISHED.
055868,000475:
055869,000476: 10,2326 BANK 10
055870,000477: 10,2000 SETLOC DISPLAYS
055871,000478: 10,2000 BANK
055872,000479:
055873,000480: 10,2326 COUNT* $$/DSPLA
055874,000481:
055875,000482: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH
055876,000483: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
055877,000484:
055878,000485: 10,2326 05474 MARKEND TC CLEARMRK
055879,000486: 10,2327 13422 TCF MARKOVER
055880,000487:
055881,000488: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
055882,000489:
055883,000490: # Page 1352
055884,000491: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
055885,000492: 10,2332 12501 TCF GOFLASH2
055886,000493:
055887,000494: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
055888,000495: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
055889,000496:
055890,000497: 10,2335 33032 CAF MARKFMSK # MARK, FLASH
055891,000498: 10,2336 12501 TCF GOFLASH2
055892,000499:
055893,000500: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
055894,000501: 10,2340 33521 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
055895,000502: 10,2341 12501 TCF GOFLASH2
055896,000503:
055897,000504: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
055898,000505: 10,2343 33506 CAF MARK3MSK
055899,000506: 10,2344 12501 TCF GOFLASH2
055900,000507:
055901,000508: 10,2345 54155 GOMARK4 TS PLAYTEM1
055902,000509: 10,2346 33507 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
055903,000510: 10,2347 12501 TCF GOFLASH2
055904,000511:
055905,000512: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR
055906,000513:
055907,000514: 10,2351 34735 CAF BIT15
055908,000515: 10,2352 12454 TCF GODSPR2
055909,000516:
055910,000517: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
055911,000518:
055912,000519: 10,2354 33032 CAF MARKFMSK
055913,000520: 10,2355 12640 TCF GODSPRS
055914,000521:
055915,000522: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
055916,000523: 10,2357 33521 CAF MPERFMSK # MARK, PERFORM, FLASH
055917,000524: 10,2360 12640 TCF GODSPRS
055918,000525:
055919,000526: 10,2361 65023 -1 AD PRIO13
055920,000527: 10,2362 54155 GOMARK3R TS PLAYTEM1
055921,000528: 10,2363 33506 CAF MARK3MSK
055922,000529: 10,2364 12640 TCF GODSPRS
055923,000530:
055924,000531: 10,2365 34753 MAKEMARK CAF ONE
055925,000532: 10,2366 02736 TC COPIES
055926,000533:
055927,000534: 10,2367 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
055928,000535: 10,2370 73522 MASK OCT34300
055929,000536: 10,2371 10000 CCS A
055930,000537: 10,2372 12430 TCF CHKPRIO
055931,000538:
055932,000539: 10,2373 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY?
055933,000540: 10,2374 74743 MASK MRKNVBIT
055934,000541:
055935,000542: # Page 1353
055936,000543: 10,2375 00006 EXTEND
055937,000544: 10,2376 12400 BZF MARKPLAY # NO
055938,000545:
055939,000546: 10,2377 15155 TCF ENDOFJOB
055940,000547:
055941,000548: 10,2400 00004 MARKPLAY INHINT
055942,000549: 10,2401 44756 CS FIVE # RESET MARK OVER NORM, SET MARK
055943,000550: 10,2402 70100 MASK FLAGWRD4
055944,000551: 10,2403 64753 AD ONE
055945,000552: 10,2404 54100 TS FLAGWRD4
055946,000553: 10,2405 00003 RELINT
055947,000554:
055948,000555: 10,2406 41070 GOGOMARK CS MARKFLAG # PERFORM
055949,000556: 10,2407 74747 MASK BIT5
055950,000557: 10,2410 10000 CCS A
055951,000558: 10,2411 12414 TCF MARKCOP
055952,000559: 10,2412 40370 CS MARKNV
055953,000560: 10,2413 54370 TS MARKNV
055954,000561:
055955,000562: 10,2414 34753 MARKCOP CAF ONE # MARK INDEX
055956,000563: 10,2415 12617 TCF PRIOPLAY
055957,000564:
055958,000565: 10,2416 30165 COPYTOGO CA MPAC2SAV
055959,000566: 10,2417 54156 TS MPAC +2
055960,000567:
055961,000568: 10,2420 50164 COPYPACS INDEX COPINDEX
055962,000569: 10,2421 33532 CAF PRIOOCT
055963,000570: 10,2422 54162 TS GENMASK
055964,000571:
055965,000572: 10,2423 50164 INDEX COPINDEX
055966,000573: 10,2424 31067 CA EBANKSAV # Was CAF --- RSB 2004.
055967,000574: 10,2425 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
055968,000575:
055969,000576: 10,2426 54003 TS EBANK
055970,000577:
055971,000578: 10,2427 00002 TC Q
055972,000579:
055973,000580: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY
055974,000581: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
055975,000582: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
055976,000583: # UNTIL ALL MARKING IS FINISHED.
055977,000584:
055978,000585: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
055979,000586: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
055980,000587:
055981,000588: 10,2430 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
055982,000589: 10,2431 73255 MASK OCT24100
055983,000590: 10,2432 10000 CCS A
055984,000591: 10,2433 13455 TCF MARSLEEP
055985,000592:
055986,000593: # Page 1354
055987,000594: 10,2434 40100 CS FLAGWRD4
055988,000595: 10,2435 74751 MASK MKOVBIT # SET MARK OVER NORM
055989,000596: 10,2436 00004 INHINT
055990,000597: 10,2437 26100 ADS FLAGWRD4
055991,000598:
055992,000599: 10,2440 12535 TCF SETNORM
055993,000600:
055994,000601: 10,2441 30370 MARKPERF CA MARKNV
055995,000602: 10,2442 74144 MASK VERBMASK
055996,000603: 10,2443 13121 TCF NV50DSP
055997,000604:
055998,000605: 10,2444 54155 GODSP TS PLAYTEM1
055999,000606:
056000,000607: 10,2445 34755 GODSP2 CAF ZERO
056001,000608: 10,2446 12501 TCF GOFLASH2
056002,000609:
056003,000610: 10,2447 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
056004,000611:
056005,000612: 10,2450 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
056006,000613: 10,2451 12501 TCF GOFLASH2
056007,000614:
056008,000615: 10,2452 54155 GODSPR TS PLAYTEM1
056009,000616:
056010,000617: 10,2453 34755 GODSPR1 CAF ZERO
056011,000618: 10,2454 54160 GODSPR2 TS PLAYTEM4
056012,000619:
056013,000620: 10,2455 34755 CAF ZERO # * DON'T MOVE
056014,000621: 10,2456 12642 TCF GODSPRS1
056015,000622:
056016,000623: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
056017,000624: # SET UP TO BE STARTED OR RESTARTED.
056018,000625:
056019,000626: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
056020,000627: # OLD DISPLAY.
056021,000628:
056022,000629: # CALLING SEQUENCE FOR CLEANDSP --
056023,000630:
056024,000631: # TC BANKCALL
056025,000632: # CADR CLEANDSP
056026,000633:
056027,000634: 10,2457 34755 CLEANDSP CAF ZERO
056028,000635: 10,2460 54155 REFLASH TS PLAYTEM1
056029,000636:
056030,000637: 10,2461 33505 CAF REDOMASK # FLASH AND PERMIT
056031,000638: 10,2462 12501 TCF GOFLASH2
056032,000639:
056033,000640: 10,2463 54155 REFLASHR TS PLAYTEM1
056034,000641:
056035,000642: 10,2464 33505 CAF REDOMASK # FLASH AND PERMIT
056036,000643: 10,2465 12640 TCF GODSPRS
056037,000644:
056038,000645: # Page 1355
056039,000646: 10,2466 54155 REGODSP TS PLAYTEM1
056040,000647:
056041,000648: 10,2467 34736 CAF BIT14
056042,000649: 10,2470 12501 TCF GOFLASH2
056043,000650:
056044,000651: 10,2471 54155 REGODSPR TS PLAYTEM1
056045,000652:
056046,000653: 10,2472 34736 CAF BIT14
056047,000654: 10,2473 12454 TCF GODSPR2
056048,000655:
056049,000656: 10,2474 54155 CLOCPLAY TS PLAYTEM1
056050,000657: 10,2475 33544 CAF CLOCKCON
056051,000658: 10,2476 12501 TCF GOFLASH2
056052,000659:
056053,000660: 10,2477 54155 GOFLASH TS PLAYTEM1
056054,000661:
056055,000662: 10,2500 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
056056,000663: 10,2501 54160 GOFLASH2 TS PLAYTEM4
056057,000664:
056058,000665: 10,2502 02723 TC SAVELOCS
056059,000666:
056060,000667: 10,2503 00003 RELINT
056061,000668:
056062,000669: 10,2504 12547 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
056063,000670:
056064,000671: 10,2505 54155 PRIODSPR TS PLAYTEM1
056065,000672:
056066,000673: 10,2506 33524 CAF BITS7+4
056067,000674: 10,2507 12640 TCF GODSPRS
056068,000675:
056069,000676: 10,2510 54155 PRIODSP TS PLAYTEM1
056070,000677:
056071,000678: 10,2511 33524 SETPRIO CAF BITS7+4
056072,000679: 10,2512 12501 TCF GOFLASH2
056073,000680:
056074,000681: 10,2513 34755 MAKEPRIO CAF ZERO
056075,000682: 10,2514 54164 TS COPINDEX
056076,000683:
056077,000684: 10,2515 03375 TC LINUSCHR
056078,000685: 10,2516 12523 TCF HIPRIO # LINUS RETURN
056079,000686: 10,2517 30100 CA FLAGWRD4
056080,000687: 10,2520 73543 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
056081,000688: 10,2521 10000 CCS A
056082,000689: 10,2522 12576 TCF PRIOBORT # YES, ABORT
056083,000690:
056084,000691: 10,2523 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
056085,000692: 10,2524 75632 MASK OCT40400
056086,000693: 10,2525 00006 EXTEND
056087,000694: 10,2526 12531 BZF ASKIFNRM # NO
056088,000695:
056089,000696: # Page 1356
056090,000697: 10,2527 34755 SETMARK CAF ZERO
056091,000698: 10,2530 12775 TCF JOBXCHS
056092,000699:
056093,000700: 10,2531 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
056094,000701: 10,2532 73541 MASK OCT10200 # BITS 13+8
056095,000702: 10,2533 00006 EXTEND
056096,000703: 10,2534 12537 BZF OKTOCOPY # NO
056097,000704:
056098,000705: 10,2535 34753 SETNORM CAF ONE
056099,000706: 10,2536 12775 TCF JOBXCHS
056100,000707:
056101,000708: 10,2537 02735 OKTOCOPY TC COPYNORM
056102,000709: 10,2540 03206 TC WITCHONE
056103,000710:
056104,000711: 10,2541 05137 TC JOBWAKE
056105,000712:
056106,000713: 10,2542 03223 TC XCHTOEND
056107,000714:
056108,000715: 10,2543 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
056109,000716: 10,2544 55164 TS PRIOTIME
056110,000717:
056111,000718: 10,2545 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
056112,000719: 10,2546 12617 TCF PRIOPLAY
056113,000720:
056114,000721: 10,2547 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY
056115,000722: 10,2550 77730 MASK PRIO37
056116,000723: 10,2551 54163 TS USERPRIO
056117,000724:
056118,000725: 10,2552 37724 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
056119,000726: 10,2553 05146 TC PRIOCHNG
056120,000727:
056121,000728: 10,2554 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
056122,000729: 10,2555 73523 MASK BITS15+7
056123,000730: 10,2556 10000 CCS A
056124,000731: 10,2557 12513 TCF MAKEPRIO # ITS PRIO
056125,000732: 10,2560 12562 TCF IFLEGAL
056126,000733: 10,2561 12365 TCF MAKEMARK # ITS MARK
056127,000734:
056128,000735: 10,2562 34752 IFLEGAL CAF TWO
056129,000736: 10,2563 54164 TS COPINDEX
056130,000737:
056131,000738: 10,2564 03375 TC LINUSCHR
056132,000739:
056133,000740: 10,2565 12600 TCF OKTOPLAY # LINUS RETURN
056134,000741: 10,2566 41071 CS EBANKTEM
056135,000742: 10,2567 74750 MASK BIT4
056136,000743: 10,2570 10000 CCS A
056137,000744: 10,2571 12600 TCF OKTOPLAY # NO
056138,000745:
056139,000746: 10,2572 30100 CA FLAGWRD4 # WAS NORM ASLEEP
056140,000747: # Page 1357
056141,000748: 10,2573 73514 MASK NBUSMASK # ARE ANY NORMS ASLEEP
056142,000749: 10,2574 00006 EXTEND
056143,000750: 10,2575 12600 BZF OKTOPLAY # NO
056144,000751:
056145,000752: 10,2576 05624 PRIOBORT TC BAILOUT
056146,000753: 10,2577 31502 OCT 31502
056147,000754:
056148,000755: 10,2600 02737 OKTOPLAY TC COPIES2
056149,000756:
056150,000757: 10,2601 30163 CA USERPRIO
056151,000758: 10,2602 00006 EXTEND
056152,000759: 10,2603 04007 ROR SUPERBNK
056153,000760: 10,2604 54366 TS RESTREG
056154,000761:
056155,000762: 10,2605 30100 CA FLAGWRD4 # PRIO OR MARK GOING
056156,000763: 10,2606 73515 MASK PMMASK
056157,000764: 10,2607 10000 CCS A
056158,000765: 10,2610 12755 TCF GOSLEEPS # MARK GOING
056159,000766:
056160,000767: 10,2611 12613 TCF +2
056161,000768: 10,2612 12755 TCF GOSLEEPS
056162,000769:
056163,000770: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
056164,000771:
056165,000772: 10,2613 03206 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
056166,000773: 10,2614 05137 TC JOBWAKE
056167,000774:
056168,000775: 10,2615 03223 TC XCHTOEND
056169,000776:
056170,000777: 10,2616 34752 PLAYJUM1 CAF TWO
056171,000778: 10,2617 54164 PRIOPLAY TS COPINDEX
056172,000779:
056173,000780: 10,2620 13071 TCF GOPLAY
056174,000781:
056175,000782: 10,2621 54155 EXDSPRET TS PLAYTEM1
056176,000783:
056177,000784: 10,2622 37737 CAF BIT15+6
056178,000785: 10,2623 12501 TCF GOFLASH2
056179,000786:
056180,000787: 10,2624 55044 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
056181,000788: 10,2625 33477 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
056182,000789:
056183,000790: 10,2626 54155 GOPERFS TS PLAYTEM1
056184,000791:
056185,000792: 10,2627 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
056186,000793: 10,2630 12501 TCF GOFLASH2
056187,000794:
056188,000795: 10,2631 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
056189,000796:
056190,000797: 10,2632 33502 CAF PERF2MSK
056191,000798: 10,2633 12501 TCF GOFLASH2
056192,000799:
056193,000800: # Page 1358
056194,000801: 10,2634 02716 GOPERF4 TC PURRS4
056195,000802:
056196,000803: 10,2635 12501 TCF GOFLASH2
056197,000804:
056198,000805: 10,2636 54155 GOFLASHR TS PLAYTEM1
056199,000806:
056200,000807: 10,2637 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
056201,000808: 10,2640 54160 GODSPRS TS PLAYTEM4
056202,000809:
056203,000810: 10,2641 36250 CAF THREE
056204,000811:
056205,000812: 10,2642 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
056206,000813: 10,2643 54072 TS RUPTREG3
056207,000814:
056208,000815: 10,2644 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
056209,000816: 10,2645 77730 MASK PRIO37
056210,000817: 10,2646 54063 TS NEWPRIO
056211,000818:
056212,000819: 10,2647 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
056213,000820: 10,2650 74750 MASK BIT4
056214,000821: 10,2651 10000 CCS A
056215,000822: 10,2652 12660 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
056216,000823: 10,2653 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
056217,000824: 10,2654 05072 TC NOVAC
056218,000825: 10,2655 E7,1471 EBANK= WHOCARES
056219,000826: 10,2655 02547 20067 2CADR MAKEPLAY
056220,000827:
056221,000828: 10,2657 12666 TCF BOTHJOBS
056222,000829:
056223,000830: 10,2660 30006 VACDSP CA BBANK
056224,000831: 10,2661 00006 EXTEND
056225,000832: 10,2662 04007 ROR SUPERBNK
056226,000833: 10,2663 54001 TS L
056227,000834: 10,2664 33540 CAF MAKEGEN
056228,000835: 10,2665 05116 TC SPVAC
056229,000836:
056230,000837: 10,2666 02723 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
056231,000838:
056232,000839: 10,2667 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2
056233,000840: 10,2670 30156 DCA MPAC +1
056234,000841: 10,2671 50064 INDEX LOCCTR
056235,000842: 10,2672 52156 DXCH MPAC +1
056236,000843:
056237,000844: 10,2673 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK
056238,000845: 10,2674 30160 DCA MPAC +3
056239,000846: 10,2675 50064 INDEX LOCCTR
056240,000847: 10,2676 52160 DXCH MPAC +3
056241,000848:
056242,000849: 10,2677 30064 CA LOCCTR
056243,000850: 10,2700 54161 TS MPAC +5
056244,000851: # Page 1359
056245,000852: 10,2701 02730 TC SAVELOCR
056246,000853: 10,2702 00003 RELINT
056247,000854:
056248,000855: 10,2703 14640 TCF BANKJUMP # CALL CADR +4
056249,000856:
056250,000857: 10,2704 55044 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
056251,000858:
056252,000859: 10,2705 33477 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
056253,000860:
056254,000861: 10,2706 54155 GOPERFRS TS PLAYTEM1
056255,000862:
056256,000863: 10,2707 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
056257,000864: 10,2710 12640 TCF GODSPRS
056258,000865:
056259,000866: 10,2711 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
056260,000867:
056261,000868: 10,2712 33502 CAF PERF2MSK
056262,000869: 10,2713 12640 TCF GODSPRS
056263,000870:
056264,000871: 10,2714 02716 GOPERF4R TC PURRS4
056265,000872:
056266,000873: 10,2715 12640 TCF GODSPRS
056267,000874:
056268,000875: 10,2716 55143 PURRS4 TS OPTION1 # DESIRED OPTION CODE
056269,000876:
056270,000877: 10,2717 33503 CAF V04N06
056271,000878: 10,2720 54155 TS PLAYTEM1
056272,000879:
056273,000880: 10,2721 33504 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3
056274,000881: 10,2722 00002 TC Q
056275,000882:
056276,000883: 10,2723 00004 SAVELOCS INHINT
056277,000884:
056278,000885: 10,2724 43513 CS OCT3400 # EBANK BITS
056279,000886: 10,2725 70160 MASK PLAYTEM4
056280,000887: 10,2726 60003 AD EBANK
056281,000888: 10,2727 54160 TS PLAYTEM4
056282,000889:
056283,000890: 10,2730 22002 SAVELOCR LXCH Q
056284,000891:
056285,000892: 10,2731 04645 TC MAKECADR
056286,000893: 10,2732 54157 TS PLAYTEM3
056287,000894:
056288,000895: 10,2733 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
056289,000896: 10,2734 00001 TC L
056290,000897:
056291,000898: 10,2735 34755 COPYNORM CAF ZERO
056292,000899: 10,2736 54164 COPIES TS COPINDEX
056293,000900: 10,2737 00004 COPIES2 INHINT
056294,000901: 10,2740 30160 CA PLAYTEM4 # FLAGWORD
056295,000902:
056296,000903: # Page 1360
056297,000904: 10,2741 50164 INDEX COPINDEX
056298,000905: 10,2742 55067 TS EBANKSAV # EQUIV TO DSPFLG
056299,000906:
056300,000907: 10,2743 73531 MASK CADRMASK # FLASH AND GODSPRET
056301,000908: 10,2744 00006 EXTEND
056302,000909: 10,2745 12751 BZF SKIPADD
056303,000910:
056304,000911: 10,2746 30157 CA PLAYTEM3
056305,000912: 10,2747 50164 INDEX COPINDEX
056306,000913: 10,2750 54372 TS CADRFLSH
056307,000914:
056308,000915: 10,2751 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
056309,000916: 10,2752 50164 INDEX COPINDEX
056310,000917: 10,2753 54367 TS NVWORD
056311,000918:
056312,000919: 10,2754 13232 TCF RELINTQ
056313,000920:
056314,000921: 10,2755 50164 GOSLEEPS INDEX COPINDEX
056315,000922: 10,2756 33532 CA PRIOOCT
056316,000923: 10,2757 72761 MASK WAITMASK
056317,000924: 10,2760 03545 TC UPENT2
056318,000925: 10,2761 03004 WAITMASK OCT 3004
056319,000926: 10,2762 44753 CS ONE
056320,000927: 10,2763 60164 AD COPINDEX
056321,000928: 10,2764 54154 TS FACEREG
056322,000929:
056323,000930: 10,2765 50154 XCHSLEEP INDEX FACEREG
056324,000931: 10,2766 33511 CAF WAKECADR
056325,000932: 10,2767 00004 INHINT
056326,000933: 10,2770 05137 TC JOBWAKE # FIND CADR IN JOB AREA
056327,000934:
056328,000935: 10,2771 03223 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
056329,000936:
056330,000937: 10,2772 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
056331,000938: 10,2773 33511 CAF WAKECADR
056332,000939: 10,2774 15133 TCF JOBSLEEP
056333,000940:
056334,000941: 10,2775 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
056335,000942: 10,2776 03206 TC WITCHONE
056336,000943: 10,2777 05137 TC JOBWAKE
056337,000944: 10,3000 30154 CA FACEREG
056338,000945: 10,3001 50064 INDEX LOCCTR
056339,000946: 10,3002 54154 TS FACEREG
056340,000947:
056341,000948: 10,3003 33016 CAF XCHQADD
056342,000949: 10,3004 03224 TC XCHNYLOC
056343,000950:
056344,000951: 10,3005 50154 INDEX FACEREG
056345,000952: 10,3006 33533 CA MARKOCT
056346,000953: 10,3007 73535 MASK IDLESLEP
056347,000954:
056348,000955: # Page 1361
056349,000956: 10,3010 03555 TC DOWNENT2
056350,000957: 10,3011 74004 IDLEMASK OCT 74004 # * DON'T MOVE
056351,000958:
056352,000959: 10,3012 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
056353,000960: 10,3013 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
056354,000961: 10,3014 64751 AD FOUR
056355,000962: 10,3015 03545 TC UPENT2 # FLAG ROUTINE DOES RELINT
056356,000963: 10,3016 02765 XCHQADD GENADR XCHSLEEP # * DON'T MOVE
056357,000964: 10,3017 30100 CA FLAGWRD4
056358,000965: 10,3020 74751 MASK MKOVBIT # MARK OVER NORM?
056359,000966: 10,3021 10000 CCS A
056360,000967: 10,3022 02400 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
056361,000968: 10,3023 12537 TCF OKTOCOPY
056362,000969:
056363,000970: 10,3024 34755 MARKWAKE CAF ZERO
056364,000971: 10,3025 54160 WAKEPLAY TS TEMPOR2
056365,000972:
056366,000973: 10,3026 50160 INDEX TEMPOR2
056367,000974: 10,3027 33525 CA BITS5+11
056368,000975: 10,3030 64751 AD FOUR
056369,000976: 10,3031 03555 TC DOWNENT2
056370,000977: 10,3032 40010 MARKFMSK OCT 40010 # *** DON'T MOVE
056371,000978:
056372,000979: 10,3033 50160 INDEX TEMPOR2
056373,000980: 10,3034 33511 CAF WAKECADR
056374,000981: 10,3035 00004 INHINT
056375,000982: 10,3036 05137 TC JOBWAKE
056376,000983:
056377,000984: 10,3037 13336 TCF ENDRET
056378,000985:
056379,000986: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
056380,000987: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
056381,000988:
056382,000989: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO TEH LAST NORMAL USER.
056383,000990: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
056384,000991:
056385,000992: 10,3040 31071 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK
056386,000993: 10,3041 54003 TS EBANK
056387,000994:
056388,000995: 10,3042 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
056389,000996: 10,3043 04727 TC SUPERSW # RESTORE SUPERBANK
056390,000997:
056391,000998: 10,3044 77730 MASK PRIO37
056392,000999: 10,3045 05146 TC PRIOCHNG
056393,001000:
056394,001001: 10,3046 46250 CS THREE
056395,001002: 10,3047 60374 AD TEMPFLSH
056396,001003: 10,3050 14640 TCF BANKJUMP
056397,001004:
056398,001005: 10,3051 00003 PINBRNCH RELINT # FOR GOPIN USERS
056399,001006: 10,3052 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
056400,001007: # Page 1362
056401,001008: 10,3053 54156 TS MPAC +2 # ONLY
056402,001009:
056403,001010: 10,3054 30100 CA FLAGWRD4 # PINBRANCH CONDITION
056404,001011: 10,3055 77743 MASK PINMASK
056405,001012: 10,3056 10000 CCS A
056406,001013: 10,3057 13062 TCF +3
056407,001014: 10,3060 13472 TCF ERASER # ** NOTHING IN ENDIDLE
056408,001015: 10,3061 12400 TCF MARKPLAY
056409,001016:
056410,001017: 10,3062 05504 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
056411,001018: 10,3063 00105 ADRES PINBRFLG
056412,001019:
056413,001020: 10,3064 34736 CAF PRIODBIT # PRIO INTERRUPTED
056414,001021: 10,3065 70100 MASK FLAGWRD4
056415,001022: 10,3066 10000 CCS A
056416,001023: 10,3067 12545 TCF KEEPPRIO
056417,001024:
056418,001025: 10,3070 12616 TCF PLAYJUM1
056419,001026:
056420,001027: 10,3071 02420 NVDSP TC COPYPACS
056421,001028:
056422,001029: 10,3072 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
056423,001030: 10,3073 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR
056424,001031: 10,3074 54001 TS L
056425,001032:
056426,001033: 10,3075 44737 CS BIT13
056427,001034: 10,3076 50164 INDEX COPINDEX
056428,001035: 10,3077 71067 MASK DSPFLG
056429,001036: 10,3100 50164 INDEX COPINDEX
056430,001037: 10,3101 55067 TS DSPFLG
056431,001038:
056432,001039: 10,3102 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
056433,001040: 10,3103 54141 TS TEM1
056434,001041:
056435,001042: 10,3104 30156 CA MPAC +2
056436,001043: 10,3105 54165 TS MPAC2SAV
056437,001044:
056438,001045: 10,3106 55072 TS MARK2PAC # * FOR DISK ONLY *
056439,001046: 10,3107 50164 INDEX COPINDEX
056440,001047: 10,3110 10367 CCS NVWORD
056441,001048: 10,3111 13120 TCF NVDSP1
056442,001049: 10,3112 13234 TCF CLEANEND
056443,001050: 10,3113 40370 CS MARKNV
056444,001051: 10,3114 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
056445,001052: 10,3115 76077 MASK LOW7
056446,001053: 10,3116 63516 AD V05N00M1
056447,001054: 10,3117 60141 AD TEM1
056448,001055: 10,3120 64753 NVDSP1 AD ONE
056449,001056: 10,3121 04155 NV50DSP TC NVMONOPT
056450,001057: 10,3122 13246 TCF REST # IF BUSY
056451,001058:
056452,001059: # Page 1363
056453,001060: 10,3123 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH
056454,001061:
056455,001062: 10,3124 02416 TC COPYTOGO # MPACS DESTROYED BY NVSUB
056456,001063: 10,3125 05516 TC DOWNFLAG # UNSET SLEEPING BITS
056457,001064: 10,3126 00102 ADRES MRKNVFLG
056458,001065: 10,3127 05516 TC DOWNFLAG
056459,001066: 10,3130 00103 ADRES NRMNVFLG
056460,001067: 10,3131 05516 TC DOWNFLAG
056461,001068: 10,3132 00104 ADRES PRONVFLG
056462,001069: 10,3133 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
056463,001070: 10,3134 04255 TC BLANKSUB
056464,001071: 10,3135 13071 TCF NVDSP
056465,001072: 10,3136 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
056466,001073: 10,3137 70160 MASK TEMPOR2
056467,001074: 10,3140 10000 CCS A # IS THIS A GOPERF DISPLAY
056468,001075: 10,3141 13164 TCF 1STOR2ND # YES
056469,001076:
056470,001077: 10,3142 34750 GOANIDLE CAF BIT4
056471,001078: 10,3143 70160 MASK TEMPOR2
056472,001079: 10,3144 10000 CCS A
056473,001080: 10,3145 13261 TCF FLASHSUB # IT IS
056474,001081:
056475,001082: 10,3146 40160 CS TEMPOR2 # IS THIS A GODSPRET
056476,001083: 10,3147 74746 MASK BIT6
056477,001084: 10,3150 10000 CCS A
056478,001085: 10,3151 13156 TCF ISITN00
056479,001086:
056480,001087: 10,3152 50164 INDEX COPINDEX
056481,001088: 10,3153 30372 CA CADRFLSH
056482,001089: 10,3154 54157 TS MPAC +3
056483,001090: 10,3155 13354 TCF ENDIT
056484,001091:
056485,001092: 10,3156 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
056486,001093: 10,3157 30367 CA NVWORD
056487,001094: 10,3160 76077 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
056488,001095: 10,3161 00006 EXTEND
056489,001096: 10,3162 13261 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
056490,001097:
056491,001098: 10,3163 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT
056492,001099:
056493,001100: 10,3164 30160 1STOR2ND CA TEMPOR2
056494,001101: 10,3165 74737 MASK BIT13
056495,001102: 10,3166 10000 CCS A
056496,001103: 10,3167 13142 TCF GOANIDLE # SECOND
056497,001104:
056498,001105: 10,3170 34737 CA BIT13
056499,001106: 10,3171 50164 INDEX COPINDEX
056500,001107: 10,3172 27067 ADS DSPFLG
056501,001108:
056502,001109: 10,3173 22007 ZL
056503,001110: # Page 1364
056504,001111: 10,3174 00006 EXTEND # IS IT MARK
056505,001112: 10,3175 62441 BZMF MARKPERF # YES
056506,001113:
056507,001114: 10,3176 74740 MASK BIT12
056508,001115: 10,3177 00006 EXTEND
056509,001116: 10,3200 13204 BZF V50PASTE
056510,001117: 10,3201 41066 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
056511,001118: 10,3202 63542 AD V97N00
056512,001119: 10,3203 13121 TCF NV50DSP
056513,001120: 10,3204 33501 V50PASTE CAF V50N00
056514,001121: 10,3205 13121 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
056515,001122:
056516,001123: 10,3206 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
056517,001124: 10,3207 00006 EXTEND
056518,001125: 10,3210 03011 WAND DSALMOUT
056519,001126:
056520,001127: 10,3211 30100 CA FLAGWRD4
056521,001128: 10,3212 73517 MASK NVBUSMSK # IS IT NVSUB ALEEP
056522,001129: 10,3213 10000 CCS A
056523,001130: 10,3214 34753 CAF ONE
056524,001131: 10,3215 54001 TS L
056525,001132: 10,3216 34755 CAF ZERO
056526,001133: 10,3217 50001 INDEX L
056527,001134: 10,3220 57041 XCH CADRSTOR
056528,001135:
056529,001136: 10,3221 00004 INHINT
056530,001137: 10,3222 00002 TC Q
056531,001138:
056532,001139: 10,3223 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
056533,001140: 10,3224 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
056534,001141: 10,3225 00006 EXTEND
056535,001142: 10,3226 63232 BZMF RELINTQ # NO
056536,001143: 10,3227 56064 XCH LOCCTR # YES
056537,001144: 10,3230 50064 INDEX LOCCTR
056538,001145: 10,3231 54164 TS LOC
056539,001146:
056540,001147: 10,3232 00003 RELINTQ RELINT
056541,001148: 10,3233 00002 TC Q # BACK TO USER
056542,001149:
056543,001150: 10,3234 37723 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
056544,001151: 10,3235 05105 TC FINDVAC
056545,001152: 10,3236 0371 EBANK= NVSAVE
056546,001153: 10,3236 04231 04060 2CADR JAMTERM
056547,001154:
056548,001155: 10,3240 13262 TCF FLASHSUB +1
056549,001156:
056550,001157: 10,3241 30100 ISITPRIO CA FLAGWRD4
056551,001158: 10,3242 73267 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
056552,001159: 10,3243 00006 EXTEND
056553,001160: # Page 1365
056554,001161: 10,3244 12576 BZF PRIOBORT
056555,001162: 10,3245 15155 TCF ENDOFJOB
056556,001163:
056557,001164: 10,3246 11041 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
056558,001165: 10,3247 15155 TCF ENDOFJOB # YES
056559,001166: 10,3250 13252 TCF RESTSLEP
056560,001167:
056561,001168: 10,3251 15155 TCF ENDOFJOB
056562,001169:
056563,001170: 10,3252 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
056564,001171: 10,3253 73520 MASK ASTROMSK
056565,001172: 10,3254 03545 TC UPENT2
056566,001173: 10,3255 24100 OCT24100 OCT 24100 # *** DON'T MOVE
056567,001174:
056568,001175: 10,3256 50164 INDEX COPINDEX
056569,001176: 10,3257 33510 CAF NVCADR
056570,001177: 10,3260 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
056571,001178:
056572,001179: 10,3261 04427 FLASHSUB TC FLASHON
056573,001180:
056574,001181: 10,3262 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
056575,001182: 10,3263 54157 TS COPMPAC
056576,001183:
056577,001184: 10,3264 30162 CA GENMASK
056578,001185: 10,3265 73011 MASK IDLEMASK
056579,001186: 10,3266 03545 TC UPENT2
056580,001187: 10,3267 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE
056581,001188:
056582,001189: 10,3270 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
056583,001190: 10,3271 50164 INDEX COPINDEX
056584,001191: 10,3272 74751 MASK BIT3
056585,001192: 10,3273 10000 CCS A
056586,001193: 10,3274 13361 TCF UNSETR1 # YES
056587,001194:
056588,001195: 10,3275 11041 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
056589,001196: 10,3276 13241 TCF ISITPRIO
056590,001197: 10,3277 13301 TCF +2
056591,001198: 10,3300 13241 TCF ISITPRIO
056592,001199:
056593,001200: 10,3301 04207 TC ENDIDLE
056594,001201: 10,3302 13373 IDLERET1 TCF TERMATE
056595,001202:
056596,001203: 10,3303 13412 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
056597,001204:
056598,001205: 10,3304 43527 CS LOWLOAD
056599,001206: 10,3305 60154 AD MPAC # VERBREG
056600,001207: 10,3306 00006 EXTEND
056601,001208: 10,3307 26000 DIM A
056602,001209: 10,3310 00006 EXTEND
056603,001210: 10,3311 13462 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
056604,001211:
056605,001212: # Page 1366
056606,001213: 10,3312 34752 OKTOENT CAF TWO
056607,001214: 10,3313 54161 ENDOUT TS OUTHERE
056608,001215:
056609,001216: 10,3314 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
056610,001217: 10,3315 74101 MASK OCT60000
056611,001218: 10,3316 10000 CCS A
056612,001219: 10,3317 13322 TCF TIMECHEK # PRIO ENDIDLE RETURN
056613,001220: 10,3320 13430 TCF NORMRET # NORMAL ENDIDLE RETURN
056614,001221: 10,3321 13414 TCF MARKRET # MARK ENDIDLE RETURN
056615,001222:
056616,001223: 10,3322 40025 TIMECHEK CS TIME1
056617,001224: 10,3323 61164 AD PRIOTIME
056618,001225: 10,3324 10000 CCS A
056619,001226: 10,3325 40000 COM
056620,001227: 10,3326 67734 AD OCT37776
056621,001228: 10,3327 64753 AD ONE
056622,001229: 10,3330 63571 AD -2SEC
056623,001230: 10,3331 00006 EXTEND
056624,001231: 10,3332 62545 BZMF KEEPPRIO
056625,001232:
056626,001233: 10,3333 13430 TCF NORMRET
056627,001234:
056628,001235: 10,3334 34753 NORMWAKE CAF ONE
056629,001236: 10,3335 13025 TCF WAKEPLAY
056630,001237:
056631,001238: 10,3336 10161 ENDRET CCS OUTHERE
056632,001239: 10,3337 64753 AD ONE
056633,001240: 10,3340 13342 TCF +2 # NORMAL ENDIDLE EXIT
056634,001241: 10,3341 15155 TCF ENDOFJOB
056635,001242: 10,3342 50157 INDEX COPMPAC
056636,001243: 10,3343 60372 AD CADRFLSH
056637,001244: 10,3344 54157 TS MPAC +3
056638,001245:
056639,001246: 10,3345 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
056640,001247: 10,3346 73350 MASK PINIDMSK
056641,001248: 10,3347 03555 TC DOWNENT2
056642,001249: 10,3350 74044 PINIDMSK OCT 74044 # *** DON'T MOVE
056643,001250:
056644,001251: 10,3351 46250 CS THREE # BLANK EVERYTHING EXCEPT MM
056645,001252: 10,3352 04154 TC NVSUB
056646,001253: 10,3353 13354 TCF +1
056647,001254:
056648,001255: 10,3354 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY
056649,001256: 10,3355 77730 MASK PRIO37
056650,001257: 10,3356 05146 TC PRIOCHNG
056651,001258: 10,3357 30157 CA MPAC +3
056652,001259: 10,3360 14640 TCF BANKJUMP
056653,001260:
056654,001261: 10,3361 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
056655,001262: 10,3362 44751 CS BIT3
056656,001263: # Page 1367
056657,001264: 10,3363 71073 MASK R1SAVE
056658,001265: 10,3364 55073 TS R1SAVE
056659,001266:
056660,001267: 10,3365 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
056661,001268: 10,3366 04727 TC SUPERSW # SUPERBANK 0
056662,001269:
056663,001270: 10,3367 36250 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC
056664,001271: 10,3370 50164 IMMEDRET INDEX COPINDEX
056665,001272: 10,3371 60372 AD CADRFLSH
056666,001273: 10,3372 14640 TCF BANKJUMP
056667,001274:
056668,001275: 10,3373 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
056669,001276: 10,3374 13313 TCF ENDOUT
056670,001277:
056671,001278: 10,3375 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
056672,001279: 10,3376 74736 MASK BIT14
056673,001280: 10,3377 10000 CCS A
056674,001281: 10,3400 16742 TCF Q+1 # NO
056675,001282: 10,3401 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
056676,001283: 10,3402 50164 INDEX COPINDEX
056677,001284: 10,3403 60372 AD CADRFLSH
056678,001285: 10,3404 00006 EXTEND
056679,001286: 10,3405 13407 BZF +2 # YES
056680,001287:
056681,001288: 10,3406 00002 TC Q # NO
056682,001289: 10,3407 11011 CCS DSPLOCK # IS THE ASTRONAUT BUSY
056683,001290: 10,3410 05155 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE
056684,001291: 10,3411 00002 TC Q
056685,001292:
056686,001293: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD
056687,001294:
056688,001295: 10,3412 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
056689,001296: 10,3413 13313 TCF ENDOUT
056690,001297:
056691,001298: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
056692,001299: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
056693,001300: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP.
056694,001301:
056695,001302: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
056696,001303: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
056697,001304: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A
056698,001305: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
056699,001306:
056700,001307: 10,3414 46245 MARKRET CS SIX
056701,001308: 10,3415 70100 MASK FLAGWRD4
056702,001309: 10,3416 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
056703,001310: 10,3417 54100 TS FLAGWRD4
056704,001311:
056705,001312: 10,3420 00003 RELINT # INHINT REALM
056706,001313: 10,3421 13336 TCF ENDRET
056707,001314:
056708,001315: # Page 1368
056709,001316: 10,3422 37752 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
056710,001317: 10,3423 54161 TS OUTHERE
056711,001318:
056712,001319: 10,3424 30100 CA FLAGWRD4 # IS ENDIDFLG SET
056713,001320: 10,3425 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
056714,001321: 10,3426 10000 CCS A
056715,001322: 10,3427 13062 TCF NORMBNCH
056716,001323:
056717,001324: 10,3430 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
056718,001325: 10,3431 73525 MASK BITS5+11 # OR WAITING
056719,001326: 10,3432 10000 CCS A
056720,001327: 10,3433 13024 TCF MARKWAKE
056721,001328:
056722,001329: 10,3434 30100 CA FLAGWRD4 # NO
056723,001330: 10,3435 73526 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
056724,001331: 10,3436 10000 CCS A
056725,001332: 10,3437 13334 TCF NORMWAKE # YES
056726,001333:
056727,001334: 10,3440 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
056728,001335: 10,3441 74771 MASK OCT50 # OR A GODSPRET
056729,001336: 10,3442 10000 CCS A
056730,001337: 10,3443 13336 TCF ENDRET # YES
056731,001338: 10,3444 30371 CA NVSAVE
056732,001339: 10,3445 00006 EXTEND
056733,001340: 10,3446 13336 BZF ENDRET
056734,001341:
056735,001342: 10,3447 35025 CAF PRIO15
056736,001343: 10,3450 00004 INHINT
056737,001344: 10,3451 05072 TC NOVAC
056738,001345: 10,3452 0367 EBANK= NVWORD
056739,001346: 10,3452 02616 20060 2CADR PLAYJUM1
056740,001347:
056741,001348: 10,3454 13336 TCF ENDRET
056742,001349:
056743,001350: 10,3455 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY ON
056744,001351: 10,3456 73525 MASK BITS5+11
056745,001352: 10,3457 10000 CCS A
056746,001353: 10,3460 15155 TCF ENDOFJOB # YES
056747,001354: 10,3461 12755 TCF GOSLEEPS
056748,001355:
056749,001356: 10,3462 50157 LOADITIS INDEX COPMPAC
056750,001357: 10,3463 30367 CA NVWORD
056751,001358: 10,3464 76077 MASK LOW7
056752,001359: 10,3465 40000 COM
056753,001360: 10,3466 60155 AD MPAC +1 # NOUNREG
056754,001361: 10,3467 00006 EXTEND
056755,001362: 10,3470 13312 BZF OKTOENT # NO, THEN LOAD IS VALID
056756,001363: 10,3471 13051 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
056757,001364:
056758,001365: # Page 1369
056759,001366: 10,3472 46250 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
056760,001367: 10,3473 04154 TC NVSUB
056761,001368: 10,3474 15155 TCF ENDOFJOB
056762,001369: 10,3475 15155 TCF ENDOFJOB
056763,001370:
056764,001371: 10,3476 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
056765,001372: 10,3477 00231 V01N25 VN 00125
056766,001373: 10,3500 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
056767,001374: 10,3501 14400 V50N00 VN 5000
056768,001375: 10,3502 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
056769,001376: 10,3503 01006 V04N06 VN 00406
056770,001377: 10,3504 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
056771,001378: 10,3505 10,3051 GOAGIN EQUALS PINBRNCH
056772,001379: 10,3505 20010 REDOMASK OCT 20010 # BITS 4 AND 14
056773,001380: 10,3506 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
056774,001381: 10,3507 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
056775,001382: 10,3510 20543 NVCADR CADR REDOPRIO
056776,001383: 10,3511 20400 WAKECADR CADR MARKPLAY
056777,001384: 10,3512 20616 CADR PLAYJUM1
056778,001385:
056779,001386: 10,3513 03400 OCT3400 OCT 3400 # EBANK MASK
056780,001387: 10,3514 11210 NBUSMASK OCT 11210
056781,001388: 10,3515 66521 PMMASK OCT 66521
056782,001389: 10,3516 4144 VERBMASK = MID7 # (OCT 37600)
056783,001390: 10,3516 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
056784,001391: 10,3517 10,2330 GOXDSP EQUALS GOMARK
056785,001392: 10,3517 10,2350 GOXDSPR EQUALS GOMARKR
056786,001393: 10,3517 10,2334 GOXDSPF EQUALS GOMARKF
056787,001394: 10,3517 10,2353 GOXDSPFR EQUALS GOMARKFR
056788,001395: 10,3517 5472 ENDEXT EQUALS ENDMARK
056789,001396: 10,3517 0165 MPAC2SAV EQUALS BANKSET
056790,001397: 10,3517 00700 NVBUSMSK OCT 700
056791,001398: 10,3520 00704 ASTROMSK OCT 704
056792,001399: 10,3521 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
056793,001400: 10,3522 34300 OCT34300 OCT 34300
056794,001401: 10,3523 40100 BITS15+7 OCT 40100
056795,001402: 10,3524 00110 BITS7+4 OCT 110
056796,001403: 10,3525 1067 DSPFLG EQUALS EBANKSAV
056797,001404: 10,3525 1070 MARKFLAG EQUALS MARKEBAN
056798,001405: 10,3525 1071 SAVEFLAG EQUALS EBANKTEM
056799,001406: 10,3525 02020 BITS5+11 OCT 2020 # * DON'T MOVE
056800,001407: 10,3526 01010 BITS4+10 OCT 1010 # * DON'T MOVE
056801,001408: 10,3527 00026 LOWLOAD DEC 22 B-14
056802,001409: 10,3530 77730 BUSYMASK OCT 77730
056803,001410: 10,3531 00050 CADRMASK OCT 50
056804,001411: 10,3532 7743 PINMASK EQUALS 13,14,15
056805,001412: 10,3532 10,3071 GOPLAY EQUALS NVDSP
056806,001413: 10,3532 1073 PRIOSAVE EQUALS R1SAVE
056807,001414: 10,3532 0157 COPMPAC EQUALS MPAC +3
056808,001415: 10,3532 0160 TEMPOR2 EQUALS MPAC +4
056809,001416:
056810,001417: # Page 1370
056811,001418: 10,3532 0161 OUTHERE EQUALS MPAC +5
056812,001419: 10,3532 0164 COPINDEX EQUALS LOC
056813,001420: 10,3532 0163 USERPRIO EQUALS MODE
056814,001421: 10,3532 0162 GENMASK EQUALS MPAC +6
056815,001422: 10,3532 20144 PRIOOCT OCT 20144 # PRIO
056816,001423: 10,3533 42424 MARKOCT OCT 42424 # MARK
056817,001424: 10,3534 11254 OCT 11254 # NORM
056818,001425:
056819,001426: 10,3535 74704 IDLESLEP OCT 74704
056820,001427: 10,3536 67777 OCT67777 OCT 67777
056821,001428: 10,3537 5464 LINUS EQUALS BLANKET
056822,001429: 10,3537 0154 FACEREG EQUALS MPAC
056823,001430: 10,3537 0155 PLAYTEM1 EQUALS MPAC +1
056824,001431: 10,3537 0157 PLAYTEM3 EQUALS MPAC +3
056825,001432: 10,3537 0160 PLAYTEM4 EQUALS MPAC +4
056826,001433: 10,3537 40420 OCT40420 OCT 40420
056827,001434: 10,3540 02547 MAKEGEN GENADR MAKEPLAY
056828,001435: 10,3541 10200 OCT10200 OCT 10200
056829,001436: 10,3542 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
056830,001437: 10,3543 20100 OCT20100 OCT 20100
056831,001438: 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