Source Code
062755,000001: # Copyright: Public domain.
062756,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc
062757,000003: # Purpose: Part of the source code for Comanche, build 055. It
062758,000004: # is part of the source code for the Command Module's
062759,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11.
062760,000006: # Assembler: yaYUL
062761,000007: # Reference: pp. 1452-1484
062762,000008: # Contact: Ron Burkey <info@sandroid.org>
062763,000009: # Website: http://www.ibiblio.org/apollo.
062764,000010: # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
062765,000011: # name, and page images. Corrected various
062766,000012: # typos in the transcription of program
062767,000013: # comments, and these should be back-ported
062768,000014: # to Colossus249.
062769,000015:
062770,000016: # The contents of the "Comanche055" files, in general, are transcribed
062771,000017: # from scanned documents.
062772,000018:
062773,000019: # Assemble revision 055 of AGC program Comanche by NASA
062774,000020: # 2021113-051. April 1, 1969.
062775,000021:
062776,000022: # This AGC program shall also be referred to as Colossus 2A
062777,000023:
062778,000024: # Prepared by
062779,000025: # Massachussets Institute of Technology
062780,000026: # 75 Cambridge Parkway
062781,000027: # Cambridge, Massachusetts
062782,000028:
062783,000029: # under NASA contract NAS 9-4065.
062784,000030:
062785,000031: # Refer directly to the online document mentioned above for further
062786,000032: # information. Please report any errors to info@sandroid.org.
062787,000033:
062788,000034: # Page 1452
062789,000035: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --
062790,000036: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
062791,000037: # OUT UNDER CRITICAL ALARM CONDITIONS.
062792,000038: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
062793,000039: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
062794,000040: # SEQUENCE OF EVENTS.
062795,000041: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
062796,000042: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
062797,000043: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY.
062798,000044:
062799,000045: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS --
062800,000046: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
062801,000047: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
062802,000048: # BUT NOT WAITING FOR A RESPONSE.
062803,000049: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
062804,000050: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
062805,000051: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
062806,000052: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
062807,000053: # HAS INFO SAVED FOR RESTART PURPOSES.
062808,000054:
062809,000055: # DISPLAY PRIORITIES WORK AS FOLLOWS --
062810,000056: # INTERRUPTS --
062811,000057: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
062812,000058: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
062813,000059: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
062814,000060: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
062815,000061: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
062816,000062: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
062817,000063:
062818,000064: # ORDER OF WAITING DISPLAYS --
062819,000065: # 1. ASTRONAUT
062820,000066: # 2. PRIORITY
062821,000067: # 3. INTERRUPTED MARK
062822,000068: # 4. INTERRUPTED NORMAL
062823,000069: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
062824,000070: # 6. MARK WAITING
062825,000071: # 7. NORMAL WAITING
062826,000072:
062827,000073: # Page 1453
062828,000074: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
062829,000075: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
062830,000076: # WILL FOLLOW LATER):
062831,000077: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
062832,000078: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
062833,000079: # IS TO THE USER'S CALLING LOC +1.
062834,000080: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
062835,000081: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY.
062836,000082: # 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
062837,000083: # USER'S JOB.
062838,000084: # 5. ALL DISPLAY ROUTIENS ARE CALLED VIA BANKCALL.
062839,000085: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
062840,000086: # DESCRIPTION OF RESTARTS).
062841,000087: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES
062842,000088: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE
062843,000089: # (V32) BRANCHES TO THE USER'S CALL CADR +3.
062844,000090: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
062845,000091:
062846,000092: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
062847,000093:
062848,000094: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
062849,000095: # 1. GODSP IS NOT RESTARTABLE
062850,000096: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
062851,000097: # CAF VXXNYY
062852,000098: # TC BANKCALL
062853,000099: # CADR GODSP
062854,000100: # VXXNYY OCT OXXYY
062855,000101:
062856,000102: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
062857,000103: # CAF VXXNYY
062858,000104: # TC BANKCALL
062859,000105: # CADR GODSPR
062860,000106: # ... ... # IMMEDIATE RETURN OF GODSPR
062861,000107:
062862,000108: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
062863,000109: # THE ASTRONAUT (SEE NO. 7 ABOVE).
062864,000110: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN.
062865,000111: # TC BANKCALL
062866,000112: # CADR GOFLASH
062867,000113: # ... ... # TERMINATE RETURN
062868,000114: # ... ... # PROCEED RETURN
062869,000115: # ... ... # ENTER OR RECYCLE RETURN
062870,000116:
062871,000117: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
062872,000118: # Page 1454
062873,000119: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
062874,000120: # USER (SEE NO. 7 ABOVE).
062875,000121: # GOPERF1 BLANKS REGISTERS R2 AND R3
062876,000122: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX
062877,000123: # TC BANKCALL
062878,000124: # CADR GOPERF1
062879,000125: # ... ... # TERMINATE RETURN
062880,000126: # ... ... # PROCEED RETURN
062881,000127: # ... ... # ENTER RETURN
062882,000128: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
062883,000129: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
062884,000130: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
062885,000131: # GOPERF2 DOES NOT BLANK ANY REGISTERS
062886,000132: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01.
062887,000133: # TC BANKCALL
062888,000134: # CADR GOPERF2
062889,000135: # ... ... # TERMINATE RETURN
062890,000136: # ... ... # PROCEED RETURN
062891,000137: # ... ... # ENTER RETURN
062892,000138: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
062893,000139: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
062894,000140: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
062895,000141: # GOPERF3 BLANKS REGISTERS R2 AND R3
062896,000142: # CAF DECXX # REQUEST PERFORM ON PXX
062897,000143: # TC BANKCALL
062898,000144: # CADR GOPERF3
062899,000145: # ... ... # TERMINATE RETURN
062900,000146: # ... ... # PROCEED RETURN
062901,000147: # ... ... # ENTER RETURN
062902,000148:
062903,000149: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
062904,000150: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
062905,000151: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
062906,000152: # CAF OCTXX # REQUEST PERFORM ON OPTION XX
062907,000153: # TC BANKCALL
062908,000154: # CADR GOPERF4
062909,000155: # ... ... # TERMINATE RETURN
062910,000156: # ... ... # PROCEED RETURN
062911,000157: # ... ... # ENTER RETURN
062912,000158: # GOPERF4 BLANKS REGISTER R3.
062913,000159:
062914,000160: # Page 1455
062915,000161: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
062916,000162: # OUT.
062917,000163: # CAF VXXXNYY
062918,000164: # TC BANKCALL
062919,000165: # CADR GODSPRET
062920,000166: # ... ... # RETURN TO USER.
062921,000167:
062922,000168: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES AND
062923,000169: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062924,000170: # CAF VXXNYY
062925,000171: # TC BANKCALL
062926,000172: # CADR REGODSP
062927,000173:
062928,000174: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062929,000175: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
062930,000176: # TC BANKCALL
062931,000177: # CADR REFLASH
062932,000178: # ... ... # TERMINATE RETURN
062933,000179: # ... ... # PROCEED RETURN
062934,000180: # ... ... # ENTER RETURN
062935,000181:
062936,000182: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
062937,000183: # CAF VXXNYY
062938,000184: # TC BANKCALL
062939,000185: # CADR GOFLASHR
062940,000186: # ... ... # TERMINATE RETURN
062941,000187: # ... ... # PROCEED RETURN
062942,000188: # ... ... # ENTER OR RECYCLE RETURN
062943,000189: # ... ... # IMMEDIATE RETURN FROM GOFLASHR
062944,000190:
062945,000191: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4.
062946,000192: # GOPERF1R BLANKS REGISTERS R2 AND R3
062947,000193: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX.
062948,000194: # TC BANKCALL
062949,000195: # CADR GOPERF1R
062950,000196: # ... ... # TERMINATE RETURN
062951,000197: # ... ... # PROCEED RETURN
062952,000198: # ... ... # ENTER RETURN
062953,000199: # ... ... # IMMEDIATE RETURN FROM GOPERF1R
062954,000200:
062955,000201: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
062956,000202: # Page 1456
062957,000203: # GOPERF2R DOES NOT BLANK ANY REGISTERS
062958,000204: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01
062959,000205: # TC BANKCALL
062960,000206: # CADR GOPERF2R
062961,000207: # ... ... # TERMINATE RETURN
062962,000208: # ... ... # PROCEED RETURN
062963,000209: # ... ... # ENTER RETURN
062964,000210: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R
062965,000211:
062966,000212: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
062967,000213: # GOPERF3R BLANKS REGISTERS R2 AND R3
062968,000214: # CAF PROGXX # PERFORM PROGRAM XX
062969,000215: # TC BANKCALL
062970,000216: # CADR GOPERF3R
062971,000217: # ... ... # TERMINATE RETURN
062972,000218: # ... ... # PROCEED RETURN
062973,000219: # ... ... # ENTER RETURN
062974,000220: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE
062975,000221:
062976,000222: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
062977,000223: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX
062978,000224: # TC BANKCALL
062979,000225: # CADR GOPERF4R
062980,000226: # ... ... # TERMINATE RETURN
062981,000227: # ... ... # PROCEED RETURN
062982,000228: # ... ... # ENTER RETURN
062983,000229: # ... ... # IMMEDIATE RETURN TO USER
062984,000230: # GOPERF4R BLANKS REGISTER R3.
062985,000231:
062986,000232: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
062987,000233: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
062988,000234: # TC BANKCALL
062989,000235: # CADR REFLASHR
062990,000236: # ... ... # TERMINATE RETURN
062991,000237: # ... ... # PROCEED RETURN
062992,000238: # ... ... # ENTER RETURN
062993,000239: # ... ... # IMMEDIATE RETURN TO USER
062994,000240:
062995,000241: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
062996,000242: # Page 1457
062997,000243: # CAF VXXNYY
062998,000244: # TC BANKCALL
062999,000245: # CADR REGODSPR
063000,000246: # ... ... # IMMEDIATE RETURN TO USER
063001,000247:
063002,000248: # Page 1458
063003,000249: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
063004,000250: # GOXDSP = GOMARK
063005,000251: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN
063006,000252: # TC BANKCALL
063007,000253: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP
063008,000254:
063009,000255: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
063010,000256: # GOXDSPR = GOMARKR
063011,000257: # CAF VXXNYY
063012,000258: # TC BANKCALL
063013,000259: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR
063014,000260: # ... ... # IMMEDIATE RETURN OF GOMARKR
063015,000261:
063016,000262: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
063017,000263: # THE ASTRONAUT (SEE NO. 7 ABOVE).
063018,000264: # GOXDSPF = GOMARKF
063019,000265: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN
063020,000266: # TC BANKCALL
063021,000267: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
063022,000268: # ... ... # TERMINATE RETURN
063023,000269: # ... ... # PROCEED RETURN
063024,000270: # ... ... # ENTER OR RECYCLE RETURN
063025,000271: # ... ... # IMMEDIATE RETURN TO THE USER
063026,000272:
063027,000273: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
063028,000274: # GOXDSPFR = GOMARKFR
063029,000275: # CAF VXXNYY # FLASHING MARK VERB NOUN
063030,000276: # TCF BANKCALL
063031,000277: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
063032,000278: # ... ... # TERMINATE RETURN
063033,000279: # ... ... # PROCEED RETURN
063034,000280: # ... ... # ENTER OR RECYCLE RETURN
063035,000281: #
063036,000282: # ... ... # IMMEDIATE RETURN TO THE USER
063037,000283:
063038,000284: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
063039,000285: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
063040,000286: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
063041,000287: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
063042,000288: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
063043,000289: # TC BANKCALL
063044,000290: # Page 1459
063045,000291: # CADR GOMARK1
063046,000292: # ... ... # ENTER RETURN
063047,000293:
063048,000294: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER.
063049,000295:
063050,000296: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2.
063051,000297: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
063052,000298: # TC BANKCALL
063053,000299: # CADR GOMARK1R
063054,000300: # ... ... # ASTRONAUT ENTER RETURN
063055,000301: # ... ... # IMMEDIATE RETURN TO USER
063056,000302:
063057,000303: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
063058,000304: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
063059,000305: # TC BANKCALL
063060,000306: # CADR GOMARK2
063061,000307: # ... ... # TERMINATE RETURN
063062,000308: # ... ... # PROCEED RETURN
063063,000309: # ... ... # ENTER RETURN
063064,000310:
063065,000311: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
063066,000312: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN
063067,000313: # TCF BANKCALL
063068,000314: # CADR GOMARK24
063069,000315: # ... ... # TERMINATE RETURN
063070,000316: # ... ... # PROCEED RETURN
063071,000317: # ... ... # ENTER RETURN
063072,000318: # ... ... # IMMEDIATE RETURN TO THE USER.
063073,000319:
063074,000320: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
063075,000321: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
063076,000322: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
063077,000323: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
063078,000324: # TC BANKCALL
063079,000325: # CADR GOMARK3
063080,000326: # ... ... # TERMINATE RETURN
063081,000327: # ... ... # PROCEED RETURN
063082,000328: # ... ... # ENTER RETURN
063083,000329:
063084,000330: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
063085,000331: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
063086,000332: # TC BANKCALL
063087,000333: # CADR GOMARK4
063088,000334: # ... ... # TERMINATE RETURN
063089,000335: # ... ... # PROCEED RETURN
063090,000336: # Page 1460
063091,000337: # ... ... # ENTER RETURN
063092,000338: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
063093,000339: # SENT OUT.
063094,000340: # CAF VXNYY
063095,000341: # TC BANKCALL
063096,000342: # CADR EXDSPRET
063097,000343: # ... ... # RETURN TO USER
063098,000344:
063099,000345: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
063100,000346: # HAVE BEEN CLEANED OUT.
063101,000347: # TC BANKCALL
063102,000348: # CADR KLEENEX
063103,000349: # ... ... # RETURN TO USER
063104,000350:
063105,000351: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
063106,000352: # TC BANKCALL
063107,000353: # CADR MARKBRAN
063108,000354: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE
063109,000355: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
063110,000356: # # LAST FLASHING MARK R ROUTINE)
063111,000357:
063112,000358: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
063113,000359: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
063114,000360: # TC POSTJUMP
063115,000361: # CADR PINBRNCH
063116,000362:
063117,000363: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
063118,000364: # THE ASTRONAUT (SEE NO. 7 ABOVE).
063119,000365:
063120,000366: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
063121,000367: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
063122,000368: # IS RESPONDED TO BY THE ASTRONAUT.
063123,000369:
063124,000370: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
063125,000371: # PRIO DISPLAY
063126,000372: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
063127,000373: # TC BANKCALL
063128,000374: # CADR PRIODSP
063129,000375: # ... ... # TERMINATE RETURN
063130,000376: # ... ... # PROCEED RETURN
063131,000377: # Page 1461
063132,000378: # ... ... # ENTER OR RECYCLE RETURN
063133,000379:
063134,000380: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
063135,000381: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
063136,000382: # TC BANKCALL
063137,000383: # CADR PRIODSPR
063138,000384: # ... ... # TERMINATE ACTION
063139,000385: # ... ... # PROCEED RETURN
063140,000386: # ... ... # ENTER OR RECYCLE RETURN
063141,000387: # ... ... # IMMEDIATE RETURN
063142,000388:
063143,000389: # PRIOLARM DOES A V05N09 PRIODSPR.
063144,000390:
063145,000391: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
063146,000392: # DISPLAYS ARE CLEANED OUT.
063147,000393: # TC BANKCALL
063148,000394: # CADR CLEANDSP
063149,000395: # ... ... # RETURN TO USER
063150,000396: # Page 1462
063151,000397:
063152,000398: # GENERAL INFORMATION
063153,000399: # -------------------
063154,000400:
063155,000401: # ALARM OR ABORT EXIT MODE --
063156,000402: # PRIOBORT TC ABORT
063157,000403: # OCT 1502
063158,000404:
063159,000405: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
063160,000406: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
063161,000407: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
063162,000408:
063163,000409: # ERASABLE INITIALIZATION REQUIRED --
063164,000410: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
063165,000411: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
063166,000412: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
063167,000413: # 5. R1SAVE = MARKBRAN CONTROL WORD
063168,000414: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
063169,000415:
063170,000416: # OUTPUT --
063171,000417: # NVWORD = PRIO VERB AND NOUN
063172,000418: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
063173,000419: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
063174,000420: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
063175,000421: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
063176,000422: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK)
063177,000423: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
063178,000424: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
063179,000425: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION
063180,000426: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
063181,000427: # OPTION1 = DESIRED OPTION FROM GOPERF4
063182,000428: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
063183,000429: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
063184,000430:
063185,000431: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
063186,000432: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC
063187,000433:
063188,000434: # DEBRIS -- (STORED INTO)
063189,000435: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL,
063190,000436: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG
063191,000437: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
063192,000438: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
063193,000439: # Page 1463
063194,000440: # R1SAVE, MARK2PAC
063195,000441:
063196,000442: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1
063197,000443:
063198,000444: # FLAGWORD DESCRIPTIONS --
063199,000445: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
063200,000446:
063201,000447: # DSPFLG, DSPFLG+1, DSPFLG+2
063202,000448: # --------------------------
063203,000449: # BITS 1 BLANK R1
063204,000450: # 2 BLANK R2
063205,000451: # 3 BLANK R3
063206,000452: # 4 FLASHING DISPLAY REQUESTED
063207,000453: # 5 PERFORM DISPLAY REQUESTED
063208,000454: # 6 ----- EXDSPRET GODSPRET
063209,000455: # 7 PRIO DISPLAY ----- -----
063210,000456: # 8 ----- DEC MARK PERFORM -----
063211,000457: # 9 EBANK
063212,000458: # 10 EBANK
063213,000459: # 11 EBANK
063214,000460: # 12 ----- ----- V99PASTE
063215,000461: # 13 2ND PART OF PERFORM
063216,000462: # 14 REFLASH OR REDO ----- REFLASH OR REDO
063217,000463: # 15 ----- MARK REQUEST -----
063218,000464:
063219,000465: # RESTARTING DISPLAYS --
063220,000466:
063221,000467: # RULES FOR THE DSKY OPERATOR --
063222,000468: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N). AS LONG
063223,000469: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
063224,000470: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
063225,000471: # WITH PROCEED AND TERMINATE FOR THIS REASON.
063226,000472: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
063227,000473: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
063228,000474: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
063229,000475: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
063230,000476: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
063231,000477: # CONSIDERATION.
063232,000478: # 3. KEY RELEASE BUTTON --
063233,000479: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
063234,000480: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
063235,000481: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
063236,000482: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
063237,000483: # KEY RELEASE BUTTON MAY BE NECESSARY.
063238,000484: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
063239,000485: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
063240,000486: # OVER AGAIN.
063241,000487:
063242,000488: # SPECIAL CONSIDERATONS --
063243,000489: # Page 1464
063244,000490: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
063245,000491: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
063246,000492: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
063247,000493: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
063248,000494: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
063249,000495: # BY A .1 RESTART PHASE CHANGE.
063250,000496: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
063251,000497: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
063252,000498: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
063253,000499:
063254,000500: # Page 1465
063255,000501: # CALLING SEQUENCE FOR BLANKING
063256,000502: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
063257,000503: # TC BLANKET
063258,000504: # ... ... # RETURN TO USER HERE
063259,000505: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
063260,000506: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
063261,000507: 5526 BLOCK 02
063262,000508: 4000 SETLOC FFTAG4
063263,000509: 4000 BANK
063264,000510:
063265,000511: 5526 COUNT 02/DSPLA
063266,000512:
063267,000513: 5526 54162 BLANKET TS MPAC +6
063268,000514: 5527 40160 CS PLAYTEM4
063269,000515: 5530 70162 MASK MPAC +6
063270,000516: 5531 50161 INDEX MPAC +5
063271,000517: 5532 26160 ADS PLAYTEM4
063272,000518:
063273,000519: 5533 00002 TC Q
063274,000520:
063275,000521: 5534 04701 ENDMARK TC POSTJUMP
063276,000522: 5535 20553 CADR MARKEND
063277,000523:
063278,000524: 5536 35021 CLEARMRK CAF ZERO
063279,000525: 5537 55044 TS EXTVBACT
063280,000526:
063281,000527: 5540 00004 INHINT
063282,000528: 5541 45017 CS BIT1
063283,000529: 5542 70100 MASK FLAGWRD4
063284,000530: 5543 54100 TS FLAGWRD4
063285,000531:
063286,000532: 5544 00003 RELINT
063287,000533: 5545 00002 TC Q
063288,000534:
063289,000535: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
063290,000536: # FINISHED.
063291,000537:
063292,000538: 10,2553 BANK 10
063293,000539: 10,2000 SETLOC DISPLAYS
063294,000540: 10,2000 BANK
063295,000541:
063296,000542: 10,2553 COUNT 10/DSPLA
063297,000543:
063298,000544: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH
063299,000545: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
063300,000546:
063301,000547: 10,2553 05536 MARKEND TC CLEARMRK
063302,000548: 10,2554 13643 TCF MARKOVER
063303,000549:
063304,000550: # Page 1466
063305,000551: 10,2555 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
063306,000552:
063307,000553: 10,2556 35001 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
063308,000554: 10,2557 12722 TCF GOFLASH2
063309,000555:
063310,000556: 10,2560 35021 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
063311,000557: 10,2561 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
063312,000558:
063313,000559: 10,2562 33253 CAF MARKFMSK # MARK, FLASH
063314,000560: 10,2563 12722 TCF GOFLASH2
063315,000561:
063316,000562: 10,2564 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
063317,000563: 10,2565 33742 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
063318,000564: 10,2566 12722 TCF GOFLASH2
063319,000565:
063320,000566: 10,2567 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
063321,000567: 10,2570 33727 CAF MARK3MSK
063322,000568: 10,2571 12722 TCF GOFLASH2
063323,000569:
063324,000570: 10,2572 54155 GOMARK4 TS PLAYTEM1
063325,000571: 10,2573 33730 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
063326,000572: 10,2574 12722 TCF GOFLASH2
063327,000573:
063328,000574: 10,2575 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR
063329,000575:
063330,000576: 10,2576 35001 CAF BIT15
063331,000577: 10,2577 12700 TCF GODSPR2
063332,000578:
063333,000579: 10,2600 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
063334,000580:
063335,000581: 10,2601 33253 CAF MARKFMSK
063336,000582: 10,2602 13061 TCF GODSPRS
063337,000583:
063338,000584: 10,2603 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
063339,000585: 10,2604 33742 CAF MPERFMSK # MARK, PERFORM, FLASH
063340,000586: 10,2605 13061 TCF GODSPRS
063341,000587:
063342,000588: 10,2606 54155 GOMARK3R TS PLAYTEM1
063343,000589: 10,2607 33727 CAF MARK3MSK
063344,000590: 10,2610 13061 TCF GODSPRS
063345,000591:
063346,000592: 10,2611 35017 MAKEMARK CAF ONE
063347,000593: 10,2612 03157 TC COPIES
063348,000594:
063349,000595: 10,2613 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
063350,000596: 10,2614 73743 MASK OCT34300
063351,000597: 10,2615 10000 CCS A
063352,000598: 10,2616 12654 TCF CHKPRIO
063353,000599:
063354,000600: 10,2617 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY?
063355,000601: # Page 1467
063356,000602: 10,2620 75007 MASK BIT9
063357,000603:
063358,000604: 10,2621 00006 EXTEND
063359,000605: 10,2622 12624 BZF MARKPLAY # NO
063360,000606:
063361,000607: 10,2623 15217 TCF ENDOFJOB
063362,000608:
063363,000609: 10,2624 00004 MARKPLAY INHINT
063364,000610: 10,2625 45022 CS FIVE # RESET MARK OVER NORM, SET MARK
063365,000611: 10,2626 70100 MASK FLAGWRD4
063366,000612: 10,2627 65017 AD ONE
063367,000613: 10,2630 54100 TS FLAGWRD4
063368,000614: 10,2631 00003 RELINT
063369,000615:
063370,000616: 10,2632 41070 GOGOMARK CS MARKFLAG # PERFORM
063371,000617: 10,2633 75013 MASK BIT5
063372,000618: 10,2634 10000 CCS A
063373,000619: 10,2635 12640 TCF MARKCOP
063374,000620: 10,2636 40370 CS MARKNV
063375,000621: 10,2637 54370 TS MARKNV
063376,000622:
063377,000623: 10,2640 35017 MARKCOP CAF ONE # MARK INDEX
063378,000624: 10,2641 13040 TCF PRIOPLAY
063379,000625:
063380,000626: 10,2642 30165 COPYTOGO CA MPAC2SAV
063381,000627: 10,2643 54156 TS MPAC +2
063382,000628:
063383,000629: 10,2644 50164 COPYPACS INDEX COPINDEX
063384,000630: 10,2645 33753 CAF PRIOOCT
063385,000631: 10,2646 54162 TS GENMASK
063386,000632:
063387,000633: 10,2647 50164 INDEX COPINDEX
063388,000634: 10,2650 31067 CA EBANKSAV # Was CAF --- RSB 2004.
063389,000635: 10,2651 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
063390,000636:
063391,000637: 10,2652 54003 TS EBANK
063392,000638:
063393,000639: 10,2653 00002 TC Q
063394,000640:
063395,000641: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY
063396,000642: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
063397,000643: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
063398,000644: # UNTIL ALL MARKING IS FINISHED.
063399,000645:
063400,000646: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
063401,000647: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
063402,000648:
063403,000649: 10,2654 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
063404,000650: 10,2655 73476 MASK OCT24100
063405,000651: 10,2656 10000 CCS A
063406,000652: 10,2657 13676 TCF MARSLEEP
063407,000653:
063408,000654: # Page 1468
063409,000655: 10,2660 40100 CS FLAGWRD4
063410,000656: 10,2661 75015 MASK BIT3 # SET MARK OVER NORM
063411,000657: 10,2662 00004 INHINT
063412,000658: 10,2663 26100 ADS FLAGWRD4
063413,000659:
063414,000660: 10,2664 12756 TCF SETNORM
063415,000661:
063416,000662: 10,2665 30370 MARKPERF CA MARKNV
063417,000663: 10,2666 74160 MASK VERBMASK
063418,000664: 10,2667 13342 TCF NV50DSP
063419,000665:
063420,000666: 10,2670 54155 GODSP TS PLAYTEM1
063421,000667:
063422,000668: 10,2671 35021 GODSP2 CAF ZERO
063423,000669: 10,2672 12722 TCF GOFLASH2
063424,000670:
063425,000671: 10,2673 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
063426,000672:
063427,000673: 10,2674 35012 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
063428,000674: 10,2675 12722 TCF GOFLASH2
063429,000675:
063430,000676: 10,2676 54155 GODSPR TS PLAYTEM1
063431,000677:
063432,000678: 10,2677 35021 GODSPR1 CAF ZERO
063433,000679: 10,2700 54160 GODSPR2 TS PLAYTEM4
063434,000680:
063435,000681: 10,2701 35021 CAF ZERO # * DON'T MOVE
063436,000682: 10,2702 13063 TCF GODSPRS1
063437,000683:
063438,000684: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
063439,000685: # SET UP TO BE STARTED OR RESTARTED.
063440,000686:
063441,000687: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
063442,000688: # OLD DISPLAY.
063443,000689:
063444,000690: # CALLING SEQUENCE FOR CLEANDSP --
063445,000691:
063446,000692: # TC BANKCALL
063447,000693: # CADR CLEANDSP
063448,000694:
063449,000695: 10,2703 35021 CLEANDSP CAF ZERO
063450,000696: 10,2704 54155 REFLASH TS PLAYTEM1
063451,000697:
063452,000698: 10,2705 33726 CAF REDOMASK # FLASH AND PERMIT
063453,000699: 10,2706 12722 TCF GOFLASH2
063454,000700:
063455,000701: 10,2707 54155 REGODSP TS PLAYTEM1
063456,000702:
063457,000703: 10,2710 35002 CAF BIT14
063458,000704: 10,2711 12722 TCF GOFLASH2
063459,000705:
063460,000706: # Page 1469
063461,000707:
063462,000708: 10,2712 54155 REGODSPR TS PLAYTEM1
063463,000709: 10,2713 35002 CAF BIT14
063464,000710: 10,2714 12700 TCF GODSPR2
063465,000711:
063466,000712: 10,2715 54155 CLOCPLAY TS PLAYTEM1
063467,000713: 10,2716 33765 CAF CLOCKCON
063468,000714: 10,2717 12722 TCF GOFLASH2
063469,000715: 10,2720 54155 GOFLASH TS PLAYTEM1
063470,000716:
063471,000717: 10,2721 35014 CAF BIT4 # LEAVE ONLY FLASH BIT SET
063472,000718: 10,2722 54160 GOFLASH2 TS PLAYTEM4
063473,000719:
063474,000720: 10,2723 03144 TC SAVELOCS
063475,000721:
063476,000722: 10,2724 00003 RELINT
063477,000723:
063478,000724: 10,2725 12770 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
063479,000725:
063480,000726: 10,2726 54155 PRIODSPR TS PLAYTEM1
063481,000727:
063482,000728: 10,2727 33745 CAF BITS7+4
063483,000729: 10,2730 13061 TCF GODSPRS
063484,000730:
063485,000731: 10,2731 54155 PRIODSP TS PLAYTEM1
063486,000732:
063487,000733: 10,2732 33745 SETPRIO CAF BITS7+4
063488,000734: 10,2733 12722 TCF GOFLASH2
063489,000735:
063490,000736: 10,2734 35021 MAKEPRIO CAF ZERO
063491,000737: 10,2735 54164 TS COPINDEX
063492,000738:
063493,000739: 10,2736 03616 TC LINUSCHR
063494,000740: 10,2737 12744 TCF HIPRIO # LINUS RETURN
063495,000741: 10,2740 30100 CA FLAGWRD4
063496,000742: 10,2741 73764 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
063497,000743: 10,2742 10000 CCS A
063498,000744: 10,2743 13017 TCF PRIOBORT # YES, ABORT
063499,000745:
063500,000746: 10,2744 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
063501,000747: 10,2745 77765 MASK OCT40400
063502,000748: 10,2746 00006 EXTEND
063503,000749: 10,2747 12752 BZF ASKIFNRM # NO
063504,000750:
063505,000751: 10,2750 35021 SETMARK CAF ZERO
063506,000752: 10,2751 13216 TCF JOBXCHS
063507,000753:
063508,000754: 10,2752 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
063509,000755: 10,2753 73762 MASK OCT10200 # BITS 13+8
063510,000756: 10,2754 00006 EXTEND
063511,000757: # Page 1470
063512,000758: 10,2755 12760 BZF OKTOCOPY # NO
063513,000759:
063514,000760: 10,2756 35017 SETNORM CAF ONE
063515,000761: 10,2757 13216 TCF JOBXCHS
063516,000762:
063517,000763: 10,2760 03156 OKTOCOPY TC COPYNORM
063518,000764: 10,2761 03427 TC WITCHONE
063519,000765:
063520,000766: 10,2762 05201 TC JOBWAKE
063521,000767:
063522,000768: 10,2763 03444 TC XCHTOEND
063523,000769:
063524,000770: 10,2764 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
063525,000771: 10,2765 55147 TS PRIOTIME
063526,000772:
063527,000773: 10,2766 35021 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
063528,000774: 10,2767 13040 TCF PRIOPLAY
063529,000775:
063530,000776: 10,2770 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY
063531,000777: 10,2771 77674 MASK PRIO37
063532,000778: 10,2772 54163 TS USERPRIO
063533,000779:
063534,000780: 10,2773 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
063535,000781: 10,2774 05210 TC PRIOCHNG
063536,000782:
063537,000783: 10,2775 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
063538,000784: 10,2776 73744 MASK BITS15+7
063539,000785: 10,2777 10000 CCS A
063540,000786: 10,3000 12734 TCF MAKEPRIO # ITS PRIO
063541,000787: 10,3001 13003 TCF IFLEGAL
063542,000788: 10,3002 12611 TCF MAKEMARK # ITS MARK
063543,000789:
063544,000790: 10,3003 35016 IFLEGAL CAF TWO
063545,000791: 10,3004 54164 TS COPINDEX
063546,000792:
063547,000793: 10,3005 03616 TC LINUSCHR
063548,000794:
063549,000795: 10,3006 13021 TCF OKTOPLAY # LINUS RETURN
063550,000796: 10,3007 41071 CS EBANKTEM
063551,000797: 10,3010 75014 MASK BIT4
063552,000798: 10,3011 10000 CCS A
063553,000799: 10,3012 13021 TCF OKTOPLAY # NO
063554,000800:
063555,000801: 10,3013 30100 CA FLAGWRD4 # WAS NORM ASLEEP
063556,000802: 10,3014 73735 MASK NBUSMASK # ARE ANY NORMS ASLEEP
063557,000803: 10,3015 00006 EXTEND
063558,000804: 10,3016 13021 BZF OKTOPLAY # NO
063559,000805:
063560,000806: 10,3017 05721 PRIOBORT TC P00DOO
063561,000807: 10,3020 01502 OCT 1502
063562,000808: # Page 1471
063563,000809:
063564,000810: 10,3021 03160 OKTOPLAY TC COPIES2
063565,000811:
063566,000812: 10,3022 30163 CA USERPRIO
063567,000813: 10,3023 00006 EXTEND
063568,000814: 10,3024 04007 ROR SUPERBNK
063569,000815: 10,3025 54366 TS RESTREG
063570,000816:
063571,000817: 10,3026 30100 CA FLAGWRD4 # PRIO OR MARK GOING
063572,000818: 10,3027 73736 MASK PMMASK
063573,000819: 10,3030 10000 CCS A
063574,000820: 10,3031 13176 TCF GOSLEEPS # MARK GOING
063575,000821:
063576,000822: 10,3032 13034 TCF +2
063577,000823: 10,3033 13176 TCF GOSLEEPS
063578,000824:
063579,000825: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
063580,000826:
063581,000827: 10,3034 03427 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
063582,000828: 10,3035 05201 TC JOBWAKE
063583,000829:
063584,000830: 10,3036 03444 TC XCHTOEND
063585,000831:
063586,000832: 10,3037 35016 PLAYJUM1 CAF TWO
063587,000833: 10,3040 54164 PRIOPLAY TS COPINDEX
063588,000834:
063589,000835: 10,3041 13312 TCF GOPLAY
063590,000836:
063591,000837: 10,3042 54155 EXDSPRET TS PLAYTEM1
063592,000838:
063593,000839: 10,3043 37703 CAF BIT15+6
063594,000840: 10,3044 12722 TCF GOFLASH2
063595,000841:
063596,000842: 10,3045 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
063597,000843: 10,3046 33720 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
063598,000844:
063599,000845: 10,3047 54155 GOPERFS TS PLAYTEM1
063600,000846:
063601,000847: 10,3050 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
063602,000848: 10,3051 12722 TCF GOFLASH2
063603,000849:
063604,000850: 10,3052 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
063605,000851:
063606,000852: 10,3053 33723 CAF PERF2MSK
063607,000853: 10,3054 12722 TCF GOFLASH2
063608,000854:
063609,000855: 10,3055 03137 GOPERF4 TC PURRS4
063610,000856:
063611,000857: 10,3056 12722 TCF GOFLASH2
063612,000858:
063613,000859: 10,3057 54155 GOFLASHR TS PLAYTEM1
063614,000860: # Page 1472
063615,000861: 10,3060 35014 CAF BIT4 # LEAVE ONLY FLASH BIT SET
063616,000862: 10,3061 54160 GODSPRS TS PLAYTEM4
063617,000863:
063618,000864: 10,3062 36214 CAF THREE
063619,000865:
063620,000866: 10,3063 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
063621,000867: 10,3064 54072 TS RUPTREG3
063622,000868:
063623,000869: 10,3065 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
063624,000870: 10,3066 77674 MASK PRIO37
063625,000871: 10,3067 54063 TS NEWPRIO
063626,000872:
063627,000873: 10,3070 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
063628,000874: 10,3071 75014 MASK BIT4
063629,000875: 10,3072 10000 CCS A
063630,000876: 10,3073 13101 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
063631,000877: 10,3074 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
063632,000878: 10,3075 05134 TC NOVAC
063633,000879: 10,3076 E7,1777 EBANK= WHOCARES
063634,000880: 10,3076 02770 20067 2CADR MAKEPLAY
063635,000881:
063636,000882: 10,3100 13107 TCF BOTHJOBS
063637,000883:
063638,000884: 10,3101 30006 VACDSP CA BBANK
063639,000885: 10,3102 00006 EXTEND
063640,000886: 10,3103 04007 ROR SUPERBNK
063641,000887: 10,3104 54001 TS L
063642,000888: 10,3105 33761 CAF MAKEGEN
063643,000889: 10,3106 05160 TC SPVAC
063644,000890:
063645,000891: 10,3107 03144 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
063646,000892:
063647,000893: 10,3110 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2
063648,000894: 10,3111 30156 DCA MPAC +1
063649,000895: 10,3112 50064 INDEX LOCCTR
063650,000896: 10,3113 52156 DXCH MPAC +1
063651,000897:
063652,000898: 10,3114 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK
063653,000899: 10,3115 30160 DCA MPAC +3
063654,000900: 10,3116 50064 INDEX LOCCTR
063655,000901: 10,3117 52160 DXCH MPAC +3
063656,000902:
063657,000903: 10,3120 30064 CA LOCCTR
063658,000904: 10,3121 54161 TS MPAC +5
063659,000905: 10,3122 03151 TC SAVELOCR
063660,000906: 10,3123 00003 RELINT
063661,000907: 10,3124 14704 TCF BANKJUMP # CALL CADR +4
063662,000908:
063663,000909: # Page 1473
063664,000910: 10,3125 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
063665,000911:
063666,000912: 10,3126 33720 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
063667,000913:
063668,000914: 10,3127 54155 GOPERFRS TS PLAYTEM1
063669,000915:
063670,000916: 10,3130 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
063671,000917: 10,3131 13061 TCF GODSPRS
063672,000918:
063673,000919: 10,3132 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
063674,000920:
063675,000921: 10,3133 33723 CAF PERF2MSK
063676,000922: 10,3134 13061 TCF GODSPRS
063677,000923:
063678,000924: 10,3135 03137 GOPERF4R TC PURRS4
063679,000925:
063680,000926: 10,3136 13061 TCF GODSPRS
063681,000927:
063682,000928: 10,3137 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE
063683,000929:
063684,000930: 10,3140 33724 CAF V04N06
063685,000931: 10,3141 54155 TS PLAYTEM1
063686,000932:
063687,000933: 10,3142 33725 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3
063688,000934: 10,3143 00002 TC Q
063689,000935:
063690,000936: 10,3144 00004 SAVELOCS INHINT
063691,000937:
063692,000938: 10,3145 43734 CS OCT3400 # EBANK BITS
063693,000939: 10,3146 70160 MASK PLAYTEM4
063694,000940: 10,3147 60003 AD EBANK
063695,000941: 10,3150 54160 TS PLAYTEM4
063696,000942:
063697,000943: 10,3151 22002 SAVELOCR LXCH Q
063698,000944:
063699,000945: 10,3152 04711 TC MAKECADR
063700,000946: 10,3153 54157 TS PLAYTEM3
063701,000947:
063702,000948: 10,3154 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
063703,000949: 10,3155 00001 TC L
063704,000950:
063705,000951: 10,3156 35021 COPYNORM CAF ZERO
063706,000952: 10,3157 54164 COPIES TS COPINDEX
063707,000953: 10,3160 00004 COPIES2 INHINT
063708,000954: 10,3161 30160 CA PLAYTEM4 # FLAGWORD
063709,000955:
063710,000956: 10,3162 50164 INDEX COPINDEX
063711,000957: 10,3163 55067 TS EBANKSAV # EQUIV TO DSPFLG
063712,000958: 10,3164 73752 MASK CADRMASK # FLASH AND GODSPRET
063713,000959: 10,3165 00006 EXTEND
063714,000960: # Page 1474
063715,000961: 10,3166 13172 BZF SKIPADD
063716,000962:
063717,000963: 10,3167 30157 CA PLAYTEM3
063718,000964: 10,3170 50164 INDEX COPINDEX
063719,000965: 10,3171 54372 TS CADRFLSH
063720,000966:
063721,000967: 10,3172 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
063722,000968: 10,3173 50164 INDEX COPINDEX
063723,000969: 10,3174 54367 TS NVWORD
063724,000970:
063725,000971: 10,3175 13453 TCF RELINTQ
063726,000972:
063727,000973: 10,3176 50164 GOSLEEPS INDEX COPINDEX
063728,000974: 10,3177 33753 CA PRIOOCT
063729,000975: 10,3200 73202 MASK WAITMASK
063730,000976: 10,3201 07722 TC UPENT2
063731,000977: 10,3202 03004 WAITMASK OCT 3004
063732,000978: 10,3203 45017 CS ONE
063733,000979: 10,3204 60164 AD COPINDEX
063734,000980: 10,3205 54154 TS FACEREG
063735,000981:
063736,000982: 10,3206 50154 XCHSLEEP INDEX FACEREG
063737,000983: 10,3207 33732 CAF WAKECADR
063738,000984: 10,3210 00004 INHINT
063739,000985: 10,3211 05201 TC JOBWAKE # FIND CADR IN JOB AREA
063740,000986:
063741,000987: 10,3212 03444 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
063742,000988:
063743,000989: 10,3213 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
063744,000990: 10,3214 33732 CAF WAKECADR
063745,000991: 10,3215 15175 TCF JOBSLEEP
063746,000992:
063747,000993: 10,3216 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
063748,000994: 10,3217 03427 TC WITCHONE
063749,000995: 10,3220 05201 TC JOBWAKE
063750,000996: 10,3221 30154 CA FACEREG
063751,000997: 10,3222 50064 INDEX LOCCTR
063752,000998: 10,3223 54154 TS FACEREG
063753,000999:
063754,001000: 10,3224 33237 CAF XCHQADD
063755,001001: 10,3225 03445 TC XCHNYLOC
063756,001002:
063757,001003: 10,3226 50154 INDEX FACEREG
063758,001004: 10,3227 33754 CA MARKOCT
063759,001005: 10,3230 73756 MASK IDLESLEP
063760,001006:
063761,001007: 10,3231 07740 TC DOWNENT2
063762,001008: 10,3232 74004 IDLEMASK OCT 74004 # * DON'T MOVE
063763,001009: 10,3233 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
063764,001010: 10,3234 35013 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
063765,001011: # Page 1475
063766,001012: 10,3235 65015 AD FOUR
063767,001013: 10,3236 07722 TC UPENT2 # FLAG ROUTINE DOES RELINT
063768,001014: 10,3237 03206 XCHQADD GENADR XCHSLEEP # * DON'T MOVE
063769,001015: 10,3240 30100 CA FLAGWRD4
063770,001016: 10,3241 75015 MASK BIT3 # MARK OVER NORM?
063771,001017: 10,3242 10000 CCS A
063772,001018: 10,3243 02624 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
063773,001019: 10,3244 12760 TCF OKTOCOPY
063774,001020:
063775,001021: 10,3245 35021 MARKWAKE CAF ZERO
063776,001022: 10,3246 54160 WAKEPLAY TS TEMPOR2
063777,001023:
063778,001024: 10,3247 50160 INDEX TEMPOR2
063779,001025: 10,3250 33746 CA BITS5+11
063780,001026: 10,3251 65015 AD FOUR
063781,001027: 10,3252 07740 TC DOWNENT2
063782,001028: 10,3253 40010 MARKFMSK OCT 40010 # *** DON'T MOVE
063783,001029:
063784,001030: 10,3254 50160 INDEX TEMPOR2
063785,001031: 10,3255 33732 CAF WAKECADR
063786,001032: 10,3256 00004 INHINT
063787,001033: 10,3257 05201 TC JOBWAKE
063788,001034:
063789,001035: 10,3260 13557 TCF ENDRET
063790,001036:
063791,001037: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
063792,001038: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
063793,001039:
063794,001040: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
063795,001041: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
063796,001042:
063797,001043: 10,3261 31071 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK
063798,001044: 10,3262 54003 TS EBANK
063799,001045:
063800,001046: 10,3263 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
063801,001047: 10,3264 04773 TC SUPERSW # RESTORE SUPERBANK
063802,001048:
063803,001049: 10,3265 77674 MASK PRIO37
063804,001050: 10,3266 05210 TC PRIOCHNG
063805,001051:
063806,001052: 10,3267 46214 CS THREE
063807,001053: 10,3270 60374 AD TEMPFLSH
063808,001054: 10,3271 14704 TCF BANKJUMP
063809,001055:
063810,001056: 10,3272 00003 PINBRNCH RELINT # FOR GOPIN USERS
063811,001057: 10,3273 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
063812,001058: 10,3274 54156 TS MPAC +2 # ONLY
063813,001059:
063814,001060: 10,3275 30100 CA FLAGWRD4 # PINBRANCH CONDITION
063815,001061: 10,3276 77707 MASK PINMASK
063816,001062: 10,3277 10000 CCS A
063817,001063: # Page 1476
063818,001064: 10,3300 13303 TCF +3
063819,001065: 10,3301 13713 TCF ERASER # ** NOTHING IN ENDIDLE
063820,001066: 10,3302 12624 TCF MARKPLAY
063821,001067:
063822,001068: 10,3303 05546 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
063823,001069: 10,3304 00105 ADRES PINBRFLG
063824,001070:
063825,001071: 10,3305 35002 CAF BIT14 # PRIO INTERRUPTED
063826,001072: 10,3306 70100 MASK FLAGWRD4
063827,001073: 10,3307 10000 CCS A
063828,001074: 10,3310 12766 TCF KEEPPRIO
063829,001075:
063830,001076: 10,3311 13037 TCF PLAYJUM1
063831,001077:
063832,001078: 10,3312 02644 NVDSP TC COPYPACS
063833,001079:
063834,001080: 10,3313 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
063835,001081: 10,3314 75023 MASK SEVEN # USER REQUESTS BLANKING MONITOR
063836,001082: 10,3315 54001 TS L
063837,001083:
063838,001084: 10,3316 45003 CS BIT13
063839,001085: 10,3317 50164 INDEX COPINDEX
063840,001086: 10,3320 71067 MASK DSPFLG
063841,001087: 10,3321 50164 INDEX COPINDEX
063842,001088: 10,3322 55067 TS DSPFLG
063843,001089:
063844,001090: 10,3323 75010 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
063845,001091: 10,3324 54141 TS TEM1
063846,001092:
063847,001093: 10,3325 30156 CA MPAC +2
063848,001094: 10,3326 54165 TS MPAC2SAV
063849,001095:
063850,001096: 10,3327 55072 TS MARK2PAC # * FOR DISK ONLY *
063851,001097: 10,3330 50164 INDEX COPINDEX
063852,001098: 10,3331 10367 CCS NVWORD
063853,001099: 10,3332 13341 TCF NVDSP1
063854,001100: 10,3333 13455 TCF CLEANEND
063855,001101: 10,3334 40370 CS MARKNV
063856,001102: 10,3335 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
063857,001103: 10,3336 76043 MASK LOW7
063858,001104: 10,3337 63737 AD V05N00M1
063859,001105: 10,3340 60141 AD TEM1
063860,001106: 10,3341 65017 NVDSP1 AD ONE
063861,001107: 10,3342 04171 NV50DSP TC NVMONOPT
063862,001108: 10,3343 13467 TCF REST # IF BUSY
063863,001109:
063864,001110: 10,3344 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH
063865,001111:
063866,001112: 10,3345 02642 TC COPYTOGO # MPACS DESTROYED BY NVSUB
063867,001113: 10,3346 05560 TC DOWNFLAG # UNSET SLEEPING BITS
063868,001114: 10,3347 00102 ADRES MRKNVFLG
063869,001115: # Page 1477
063870,001116: 10,3350 05560 TC DOWNFLAG
063871,001117: 10,3351 00103 ADRES NRMNVFLG
063872,001118: 10,3352 05560 TC DOWNFLAG
063873,001119: 10,3353 00104 ADRES PRONVFLG
063874,001120: 10,3354 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
063875,001121: 10,3355 04271 TC BLANKSUB
063876,001122: 10,3356 13312 TCF NVDSP
063877,001123: 10,3357 35013 PERFCHEK CAF BIT5 # BIT 5 FOR PERFORM
063878,001124: 10,3360 70160 MASK TEMPOR2
063879,001125: 10,3361 10000 CCS A # IS THIS A GOPERF DISPLAY
063880,001126: 10,3362 13405 TCF 1STOR2ND # YES
063881,001127:
063882,001128: 10,3363 35014 GOANIDLE CAF BIT4
063883,001129: 10,3364 70160 MASK TEMPOR2
063884,001130: 10,3365 10000 CCS A
063885,001131: 10,3366 13502 TCF FLASHSUB # IT IS
063886,001132:
063887,001133: 10,3367 40160 CS TEMPOR2 # IS THIS A GODSPRET
063888,001134: 10,3370 75012 MASK BIT6
063889,001135: 10,3371 10000 CCS A
063890,001136: 10,3372 13377 TCF ISITN00
063891,001137:
063892,001138: 10,3373 50164 INDEX COPINDEX
063893,001139: 10,3374 30372 CA CADRFLSH
063894,001140: 10,3375 54157 TS MPAC +3
063895,001141: 10,3376 13575 TCF ENDIT
063896,001142:
063897,001143: 10,3377 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
063898,001144: 10,3400 30367 CA NVWORD
063899,001145: 10,3401 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
063900,001146: 10,3402 00006 EXTEND
063901,001147: 10,3403 13502 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
063902,001148:
063903,001149: 10,3404 15217 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT
063904,001150:
063905,001151: 10,3405 30160 1STOR2ND CA TEMPOR2
063906,001152: 10,3406 75003 MASK BIT13
063907,001153: 10,3407 10000 CCS A
063908,001154: 10,3410 13363 TCF GOANIDLE # SECOND
063909,001155:
063910,001156: 10,3411 35003 CA BIT13
063911,001157: 10,3412 50164 INDEX COPINDEX
063912,001158: 10,3413 27067 ADS DSPFLG
063913,001159:
063914,001160: 10,3414 22007 ZL
063915,001161: 10,3415 00006 EXTEND # IS IT MARK
063916,001162: 10,3416 62665 BZMF MARKPERF # YES
063917,001163: 10,3417 75004 MASK BIT12
063918,001164: 10,3420 00006 EXTEND
063919,001165: # Page 1478
063920,001166: 10,3421 13425 BZF V50PASTE
063921,001167: 10,3422 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
063922,001168: 10,3423 63763 AD V97N00
063923,001169: 10,3424 13342 TCF NV50DSP
063924,001170: 10,3425 33722 V50PASTE CAF V50N00
063925,001171: 10,3426 13342 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
063926,001172:
063927,001173: 10,3427 45013 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
063928,001174: 10,3430 00006 EXTEND
063929,001175: 10,3431 03011 WAND DSALMOUT
063930,001176:
063931,001177: 10,3432 30100 CA FLAGWRD4
063932,001178: 10,3433 73740 MASK NVBUSMSK # IS IT NVSUB ALEEP
063933,001179: 10,3434 10000 CCS A
063934,001180: 10,3435 35017 CAF ONE
063935,001181: 10,3436 54001 TS L
063936,001182: 10,3437 35021 CAF ZERO
063937,001183: 10,3440 50001 INDEX L
063938,001184: 10,3441 57042 XCH CADRSTOR
063939,001185:
063940,001186: 10,3442 00004 INHINT
063941,001187: 10,3443 00002 TC Q
063942,001188:
063943,001189: 10,3444 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
063944,001190: 10,3445 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
063945,001191: 10,3446 00006 EXTEND
063946,001192: 10,3447 63453 BZMF RELINTQ # NO
063947,001193: 10,3450 56064 XCH LOCCTR # YES
063948,001194: 10,3451 50064 INDEX LOCCTR
063949,001195: 10,3452 54164 TS LOC
063950,001196:
063951,001197: 10,3453 00003 RELINTQ RELINT
063952,001198: 10,3454 00002 TC Q # BACK TO USER
063953,001199:
063954,001200: 10,3455 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
063955,001201: 10,3456 05147 TC FINDVAC
063956,001202: 10,3457 0371 EBANK= NVSAVE
063957,001203: 10,3457 04245 04060 2CADR JAMTERM
063958,001204:
063959,001205: 10,3461 13503 TCF FLASHSUB +1
063960,001206:
063961,001207: 10,3462 30100 ISITPRIO CA FLAGWRD4
063962,001208: 10,3463 73510 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
063963,001209: 10,3464 00006 EXTEND
063964,001210: 10,3465 13017 BZF PRIOBORT
063965,001211: 10,3466 15217 TCF ENDOFJOB
063966,001212: 10,3467 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
063967,001213: 10,3470 15217 TCF ENDOFJOB # YES
063968,001214: # Page 1479
063969,001215: 10,3471 13473 TCF RESTSLEP
063970,001216:
063971,001217: 10,3472 15217 TCF ENDOFJOB
063972,001218:
063973,001219: 10,3473 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
063974,001220: 10,3474 73741 MASK ASTROMSK
063975,001221: 10,3475 07722 TC UPENT2
063976,001222: 10,3476 24100 OCT24100 OCT 24100 # *** DON'T MOVE
063977,001223:
063978,001224: 10,3477 50164 INDEX COPINDEX
063979,001225: 10,3500 33731 CAF NVCADR
063980,001226: 10,3501 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
063981,001227:
063982,001228: 10,3502 04443 FLASHSUB TC FLASHON
063983,001229:
063984,001230: 10,3503 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
063985,001231: 10,3504 54157 TS COPMPAC
063986,001232:
063987,001233: 10,3505 30162 CA GENMASK
063988,001234: 10,3506 73232 MASK IDLEMASK
063989,001235: 10,3507 07722 TC UPENT2
063990,001236: 10,3510 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE
063991,001237:
063992,001238: 10,3511 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
063993,001239: 10,3512 50164 INDEX COPINDEX
063994,001240: 10,3513 75015 MASK BIT3
063995,001241: 10,3514 10000 CCS A
063996,001242: 10,3515 13602 TCF UNSETR1 # YES
063997,001243:
063998,001244: 10,3516 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
063999,001245: 10,3517 13462 TCF ISITPRIO
064000,001246: 10,3520 13522 TCF +2
064001,001247: 10,3521 13462 TCF ISITPRIO
064002,001248:
064003,001249: 10,3522 04223 TC ENDIDLE
064004,001250: 10,3523 13614 IDLERET1 TCF TERMATE
064005,001251:
064006,001252: 10,3524 13633 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
064007,001253:
064008,001254: 10,3525 43750 CS LOWLOAD
064009,001255: 10,3526 60154 AD MPAC # VERBREG
064010,001256: 10,3527 00006 EXTEND
064011,001257: 10,3530 26000 DIM A
064012,001258: 10,3531 00006 EXTEND
064013,001259: 10,3532 13703 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
064014,001260:
064015,001261: 10,3533 35016 OKTOENT CAF TWO
064016,001262: 10,3534 54161 ENDOUT TS OUTHERE
064017,001263: 10,3535 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
064018,001264: 10,3536 74105 MASK OCT60000
064019,001265: # Page 1480
064020,001266: 10,3537 10000 CCS A
064021,001267: 10,3540 13543 TCF TIMECHEK # PRIO ENDIDLE RETURN
064022,001268: 10,3541 13651 TCF NORMRET # NORMAL ENDIDLE RETURN
064023,001269: 10,3542 13635 TCF MARKRET # MARK ENDIDLE RETURN
064024,001270:
064025,001271: 10,3543 40025 TIMECHEK CS TIME1
064026,001272: 10,3544 61147 AD PRIOTIME
064027,001273: 10,3545 10000 CCS A
064028,001274: 10,3546 40000 COM
064029,001275: 10,3547 67700 AD OCT37776
064030,001276: 10,3550 65017 AD ONE
064031,001277: 10,3551 63774 AD -2SEC
064032,001278: 10,3552 00006 EXTEND
064033,001279: 10,3553 62766 BZMF KEEPPRIO
064034,001280:
064035,001281: 10,3554 13651 TCF NORMRET
064036,001282:
064037,001283: 10,3555 35017 NORMWAKE CAF ONE
064038,001284: 10,3556 13246 TCF WAKEPLAY
064039,001285:
064040,001286: 10,3557 10161 ENDRET CCS OUTHERE
064041,001287: 10,3560 65017 AD ONE
064042,001288: 10,3561 13563 TCF +2 # NORMAL ENDIDLE EXIT
064043,001289: 10,3562 15217 TCF ENDOFJOB
064044,001290: 10,3563 50157 INDEX COPMPAC
064045,001291: 10,3564 60372 AD CADRFLSH
064046,001292: 10,3565 54157 TS MPAC +3
064047,001293:
064048,001294: 10,3566 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
064049,001295: 10,3567 73571 MASK PINIDMSK
064050,001296: 10,3570 07740 TC DOWNENT2
064051,001297: 10,3571 74044 PINIDMSK OCT 74044 # *** DON'T MOVE
064052,001298:
064053,001299: 10,3572 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
064054,001300: 10,3573 04170 TC NVSUB
064055,001301: 10,3574 13575 TCF +1
064056,001302:
064057,001303: 10,3575 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY
064058,001304: 10,3576 77674 MASK PRIO37
064059,001305: 10,3577 05210 TC PRIOCHNG
064060,001306: 10,3600 30157 CA MPAC +3
064061,001307: 10,3601 14704 TCF BANKJUMP
064062,001308:
064063,001309: 10,3602 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
064064,001310: 10,3603 45015 CS BIT3
064065,001311: 10,3604 71073 MASK R1SAVE
064066,001312: 10,3605 55073 TS R1SAVE
064067,001313: 10,3606 35021 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
064068,001314: 10,3607 04773 TC SUPERSW # SUPERBANK 0
064069,001315: # Page 1481
064070,001316:
064071,001317: 10,3610 36214 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC
064072,001318: 10,3611 50164 IMMEDRET INDEX COPINDEX
064073,001319: 10,3612 60372 AD CADRFLSH
064074,001320: 10,3613 14704 TCF BANKJUMP
064075,001321:
064076,001322: 10,3614 35021 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
064077,001323: 10,3615 13534 TCF ENDOUT
064078,001324:
064079,001325: 10,3616 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
064080,001326: 10,3617 75002 MASK BIT14
064081,001327: 10,3620 10000 CCS A
064082,001328: 10,3621 16706 TCF Q+1 # NO
064083,001329: 10,3622 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
064084,001330: 10,3623 50164 INDEX COPINDEX
064085,001331: 10,3624 60372 AD CADRFLSH
064086,001332: 10,3625 00006 EXTEND
064087,001333: 10,3626 13630 BZF +2 # YES
064088,001334:
064089,001335: 10,3627 00002 TC Q # NO
064090,001336: 10,3630 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
064091,001337: 10,3631 05217 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE
064092,001338: 10,3632 00002 TC Q
064093,001339:
064094,001340: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD
064095,001341:
064096,001342: 10,3633 35017 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
064097,001343: 10,3634 13534 TCF ENDOUT
064098,001344:
064099,001345: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
064100,001346: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
064101,001347: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP.
064102,001348:
064103,001349: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
064104,001350: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
064105,001351: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A
064106,001352: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
064107,001353:
064108,001354: 10,3635 46211 MARKRET CS SIX
064109,001355: 10,3636 70100 MASK FLAGWRD4
064110,001356: 10,3637 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
064111,001357: 10,3640 54100 TS FLAGWRD4
064112,001358:
064113,001359: 10,3641 00003 RELINT # INHINT REALM
064114,001360: 10,3642 13557 TCF ENDRET
064115,001361:
064116,001362: 10,3643 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
064117,001363: 10,3644 54161 TS OUTHERE
064118,001364: 10,3645 30100 CA FLAGWRD4 # IS ENDIDFLG SET
064119,001365: 10,3646 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
064120,001366: 10,3647 10000 CCS A
064121,001367: # Page 1482
064122,001368: 10,3650 13303 TCF NORMBNCH
064123,001369:
064124,001370: 10,3651 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
064125,001371: 10,3652 73746 MASK BITS5+11 # OR WAITING
064126,001372: 10,3653 10000 CCS A
064127,001373: 10,3654 13245 TCF MARKWAKE
064128,001374:
064129,001375: 10,3655 30100 CA FLAGWRD4 # NO
064130,001376: 10,3656 73747 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
064131,001377: 10,3657 10000 CCS A
064132,001378: 10,3660 13555 TCF NORMWAKE # YES
064133,001379:
064134,001380: 10,3661 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
064135,001381: 10,3662 75033 MASK OCT50 # OR A GODSPRET
064136,001382: 10,3663 10000 CCS A
064137,001383: 10,3664 13557 TCF ENDRET # YES
064138,001384: 10,3665 30371 CA NVSAVE
064139,001385: 10,3666 00006 EXTEND
064140,001386: 10,3667 13557 BZF ENDRET
064141,001387:
064142,001388: 10,3670 35067 CAF PRIO15
064143,001389: 10,3671 00004 INHINT
064144,001390: 10,3672 05134 TC NOVAC
064145,001391: 10,3673 0367 EBANK= NVWORD
064146,001392: 10,3673 03037 20060 2CADR PLAYJUM1
064147,001393:
064148,001394: 10,3675 13557 TCF ENDRET
064149,001395:
064150,001396: 10,3676 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY ON
064151,001397: 10,3677 73746 MASK BITS5+11
064152,001398: 10,3700 10000 CCS A
064153,001399: 10,3701 15217 TCF ENDOFJOB # YES
064154,001400: 10,3702 13176 TCF GOSLEEPS
064155,001401:
064156,001402: 10,3703 50157 LOADITIS INDEX COPMPAC
064157,001403: 10,3704 30367 CA NVWORD
064158,001404: 10,3705 76043 MASK LOW7
064159,001405: 10,3706 40000 COM
064160,001406: 10,3707 60155 AD MPAC +1 # NOUNREG
064161,001407: 10,3710 00006 EXTEND
064162,001408: 10,3711 13533 BZF OKTOENT # NO, THEN LOAD IS VALID
064163,001409: 10,3712 13272 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
064164,001410:
064165,001411: 10,3713 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
064166,001412: 10,3714 04170 TC NVSUB
064167,001413: 10,3715 15217 TCF ENDOFJOB
064168,001414: 10,3716 15217 TCF ENDOFJOB
064169,001415:
064170,001416: 10,3717 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
064171,001417: # Page 1483
064172,001418: 10,3720 00231 V01N25 VN 00125
064173,001419: 10,3721 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
064174,001420: 10,3722 14400 V50N00 VN 5000
064175,001421: 10,3723 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
064176,001422: 10,3724 01006 V04N06 VN 00406
064177,001423: 10,3725 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
064178,001424: 10,3726 10,3272 GOAGIN EQUALS PINBRNCH
064179,001425: 10,3726 20010 REDOMASK OCT 20010 # BITS 4 AND 14
064180,001426: 10,3727 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
064181,001427: 10,3730 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
064182,001428: 10,3731 20764 NVCADR CADR REDOPRIO
064183,001429: 10,3732 20624 WAKECADR CADR MARKPLAY
064184,001430: 10,3733 21037 CADR PLAYJUM1
064185,001431:
064186,001432: 10,3734 03400 OCT3400 OCT 3400 # EBANK MASK
064187,001433: 10,3735 11210 NBUSMASK OCT 11210
064188,001434: 10,3736 66521 PMMASK OCT 66521
064189,001435: 10,3737 4160 VERBMASK = MID7 # (OCT 37600)
064190,001436: 10,3737 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
064191,001437: 10,3740 10,2555 GOXDSP EQUALS GOMARK
064192,001438: 10,3740 10,2575 GOXDSPR EQUALS GOMARKR
064193,001439: 10,3740 10,2561 GOXDSPF EQUALS GOMARKF
064194,001440: 10,3740 10,2600 GOXDSPFR EQUALS GOMARKFR
064195,001441: 10,3740 5534 ENDEXT EQUALS ENDMARK
064196,001442: 10,3740 0165 MPAC2SAV EQUALS BANKSET
064197,001443: 10,3740 00700 NVBUSMSK OCT 700
064198,001444: 10,3741 00704 ASTROMSK OCT 704
064199,001445: 10,3742 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
064200,001446: 10,3743 34300 OCT34300 OCT 34300
064201,001447: 10,3744 40100 BITS15+7 OCT 40100
064202,001448: 10,3745 00110 BITS7+4 OCT 110
064203,001449: 10,3746 1067 DSPFLG EQUALS EBANKSAV
064204,001450: 10,3746 1070 MARKFLAG EQUALS MARKEBAN
064205,001451: 10,3746 1071 SAVEFLAG EQUALS EBANKTEM
064206,001452: 10,3746 02020 BITS5+11 OCT 2020 # * DON'T MOVE
064207,001453: 10,3747 01010 BITS4+10 OCT 1010 # * DON'T MOVE
064208,001454: 10,3750 00026 LOWLOAD DEC 22 B-14
064209,001455: 10,3751 77730 BUSYMASK OCT 77730
064210,001456: 10,3752 00050 CADRMASK OCT 50
064211,001457: 10,3753 7707 PINMASK EQUALS 13,14,15
064212,001458: 10,3753 10,3312 GOPLAY EQUALS NVDSP
064213,001459: 10,3753 1073 PRIOSAVE EQUALS R1SAVE
064214,001460: 10,3753 0157 COPMPAC EQUALS MPAC +3
064215,001461: 10,3753 0160 TEMPOR2 EQUALS MPAC +4
064216,001462: 10,3753 0161 OUTHERE EQUALS MPAC +5
064217,001463: 10,3753 0164 COPINDEX EQUALS LOC
064218,001464: 10,3753 0163 USERPRIO EQUALS MODE
064219,001465: 10,3753 0162 GENMASK EQUALS MPAC +6
064220,001466: 10,3753 20144 PRIOOCT OCT 20144 # PRIO
064221,001467: 10,3754 42424 MARKOCT OCT 42424 # MARK
064222,001468: # Page 1484
064223,001469: 10,3755 11254 OCT 11254 # NORM
064224,001470:
064225,001471: 10,3756 74704 IDLESLEP OCT 74704
064226,001472: 10,3757 67777 OCT67777 OCT 67777
064227,001473: 10,3760 5526 LINUS EQUALS BLANKET
064228,001474: 10,3760 0154 FACEREG EQUALS MPAC
064229,001475: 10,3760 0155 PLAYTEM1 EQUALS MPAC +1
064230,001476: 10,3760 0157 PLAYTEM3 EQUALS MPAC +3
064231,001477: 10,3760 0160 PLAYTEM4 EQUALS MPAC +4
064232,001478: 10,3760 40420 OCT40420 OCT 40420
064233,001479: 10,3761 02770 MAKEGEN GENADR MAKEPLAY
064234,001480: 10,3762 10200 OCT10200 OCT 10200
064235,001481: 10,3763 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
064236,001482: 10,3764 20100 OCT20100 OCT 20100
064237,001483: 10,3765 24030 CLOCKCON OCT 24030
064238,001484:
064239,001485:
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc