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