Source Code
057747,000002: ## Copyright: Public domain.
057748,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
057749,000004: ## Purpose: A section of Luminary revision 210.
057750,000005: ## It is part of the source code for the Lunar Module's (LM)
057751,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
057752,000007: ## This file is intended to be a faithful transcription, except
057753,000008: ## that the code format has been changed to conform to the
057754,000009: ## requirements of the yaYUL assembler rather than the
057755,000010: ## original YUL assembler.
057756,000011: ## Reference: pp. 1338-1370
057757,000012: ## Assembler: yaYUL
057758,000013: ## Contact: Ron Burkey <info@sandroid.org>.
057759,000014: ## Website: www.ibiblio.org/apollo/index.html
057760,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
057761,000016: ## 2016-12-08 JS Compared to Luminary210 images. Updated where needed.
057762,000017: ## 2016-12-10 HG Add missing operator ZL (label NVDSP)
057763,000018: ## 2016-12-11 HG fix operand NVDISP -> NVDSP
057764,000019: ## 2016-12-12 HG add [WORKAROUND] with SBANK=
057765,000020: ## 2016-12-12 MAS "PRIOSAVE EQUALS R1SAVE" is sneakily a comment.
057766,000021: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
057767,000022: ## and corrected errors found.
057768,000023: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
057769,000024: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
057770,000025: ## side-by-side diff of Luminary 69/99/116/131/210.
057771,000026:
![]() |
Page 1338 |
057773,000028: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
057774,000029: # 1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
057775,000030: # OUT UNDER CRITICAL ALARM CONDITIONS.
057776,000031: # 2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
057777,000032: # 3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
057778,000033: # SEQUENCE OF EVENTS.
057779,000034: # 4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
057780,000035: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
057781,000036: # 5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
057782,000037:
057783,000038: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
057784,000039: # 1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
057785,000040: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
057786,000041: # BUT NOT WAITING FOR A RESPONSE.
057787,000042: # 2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
057788,000043: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
057789,000044: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
057790,000045: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
057791,000046: # HAS INFO SAVED FOR RESTART PURPOSES.
057792,000047:
057793,000048: # DISPLAY PRIORITIES WORK AS FOLLOWS-
057794,000049: # INTERRUPTS-
057795,000050: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
057796,000051: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
057797,000052: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
057798,000053: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
057799,000054: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
057800,000055: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
057801,000056:
057802,000057: # ORDER OF WAITING DISPLAYS-
057803,000058: # 1. ASTRONAUT EXTERNAL USE
057804,000059: # 2. PRIORITY
057805,000060: # 3. INTERRUPTED MARK
057806,000061: # 4. INTERRUPTED NORMAL
057807,000062: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
057808,000063: # 6. MARK WAITING
057809,000064: # 7. NORMAL WAITING
057810,000065:
![]() |
Page 1339 |
057812,000067: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
057813,000068: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
057814,000069: # WILL FOLLOW LATER):
057815,000070: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
057816,000071: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
057817,000072: # IS TO THE USERS CALLING LOC +1.
057818,000073: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
057819,000074: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
057820,000075: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
057821,000076: # USERS JOB.
057822,000077: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
057823,000078: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
057824,000079: # DESCRIPTION OF RESTARTS).
057825,000080: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
057826,000081: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
057827,000082: # (V32) BRANCHES TO THE USERS CALL CADR +3.
057828,000083: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
057829,000084:
057830,000085: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
057831,000086: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057832,000087: # 1. GODSP IS NOT RESTARTABLE
057833,000088: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
057834,000089: # CAF VXXNYY
057835,000090: # TC BANKCALL
057836,000091: # CADR GODSP
057837,000092: # VXXNYY OCT 0XXYY
057838,000093: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
057839,000094: # CAF VXXNYY
057840,000095: # TC BANKCALL
057841,000096: # CADR GODSPR
057842,000097: # ... ... IMMEDIATE RETURN OF GODSPR
057843,000098: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
057844,000099: # THE ASTRONAUT (SEE NO. 7 ABOVE).
057845,000100: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
057846,000101: # TC BANKCALL
057847,000102: # CADR GOFLASH
057848,000103: # ... ... TERMINATE RETURN
057849,000104: # ... ... PROCEED RETURN
057850,000105: # ... ... ENTER OR RECYCLE RETURN
057851,000106: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
057852,000107:
![]() |
Page 1340 |
057854,000109: # V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
057855,000110: # USER (SEE NO. 7 ABOVE).
057856,000111: # GOPERF1 BLANKS REGISTERS R2 AND R3
057857,000112: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
057858,000113: # TC BANKCALL
057859,000114: # CADR GOPERF1
057860,000115: # ... ... TERMINATE RETURN
057861,000116: # ... ... PROCEED RETURN
057862,000117: # ... ... ENTER RETURN
057863,000118: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
057864,000119: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
057865,000120: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057866,000121: # GOPERF2 DOES NOT BLANK ANY REGISTERS
057867,000122: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
057868,000123: # TC BANKCALL
057869,000124: # CADR GOPERF2
057870,000125: # ... ... TERMINATE RETURN
057871,000126: # ... ... PROCEED RETURN
057872,000127: # ... ... ENTER RETURN
057873,000128: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
057874,000129: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
057875,000130: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
057876,000131: # GOPERF3 BLANKS REGISTERS R2 AND R3
057877,000132: # CAF DECXX REQUEST PERFORM ON PXX
057878,000133: # TC BANKCALL
057879,000134: # CADR GOPERF3
057880,000135: # ... ... TERMINATE RETURN
057881,000136: # ... ... PROCEED RETURN
057882,000137: # ... ... ENTER RETURN
057883,000138: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
057884,000139: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
057885,000140: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057886,000141: # CAF OCTXX REQUEST PERFORM ON OPTION XX
057887,000142: # TC BANKCALL
057888,000143: # CADR GOPERF4
057889,000144: # ... ... TERMINATE RETURN
057890,000145: # ... ... PROCEED RETURN
057891,000146: # ... ... ENTER RETURN
057892,000147: # GOPERF4 BLANKS REGISTER R3
057893,000148:
![]() |
Page 1341 |
057895,000150: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
057896,000151: # OUT.
057897,000152: # CAF VXXNYY
057898,000153: # TC BANKCALL
057899,000154: # CADR GODSPRET
057900,000155: # ... ... RETURN TO USER
057901,000156: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
057902,000157: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057903,000158: # CAF VXXNYY
057904,000159: # TC BANKCALL
057905,000160: # CADR REGODSP
057906,000161: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057907,000162: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
057908,000163: # TC BANKCALL
057909,000164: # CADR REFLASH
057910,000165: # ... ... TERMINATE RETURN
057911,000166: # ... ... PROCEED RETURN
057912,000167: # ... ... ENTER RETURN
057913,000168: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057914,000169: # CAF VXXNYY
057915,000170: # TC BANKCALL
057916,000171: # CADR GOFLASHR
057917,000172: # ... ... TERMINATE RETURN
057918,000173: # ... ... PROCEED RETURN
057919,000174: # ... ... ENTER OR RECYCLE RETURN
057920,000175: # ... ... IMMEDIATE RETURN FROM GOFLASHR
057921,000176: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
057922,000177: # GOPERF1R BLANKS REGISTERS R2 AND R3
057923,000178: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
057924,000179: # TC BANKCALL
057925,000180: # CADR GOPERF1R
057926,000181: # ... ... TERMINATE RETURN
057927,000182: # ... ... PROCEED RETURN
057928,000183: # ... ... ENTER RETURN
057929,000184: # ... ... IMMEDIATE RETURN FROM GOPERF1R
057930,000185: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057931,000186:
![]() |
Page 1342 |
057933,000188: # GOPERF2R DOES NOT BLANK ANY REGISTERS
057934,000189: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
057935,000190: # TC BANKCALL
057936,000191: # CADR GOPERF2R
057937,000192: # ... ... TERMINATE RETURN
057938,000193: # ... ... PROCEED RETURN
057939,000194: # ... ... ENTER RETURN
057940,000195: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
057941,000196: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057942,000197: # GOPERF3R BLANKS REGISTERS R2 AND R3
057943,000198: # CAF PROGXX PERFORM PROGRAM XX
057944,000199: # TC BANKCALL
057945,000200: # CADR GOPERF3R
057946,000201: # ... ... TERMINATE RETURN
057947,000202: # ... ... PROCEED RETURN
057948,000203: # ... ... ENTER RETURN
057949,000204: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
057950,000205: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057951,000206: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
057952,000207: # TC BANKCALL
057953,000208: # CADR GOPERF4R
057954,000209: # ... ... TERMINATE RETURN
057955,000210: # ... ... PROCEED RETURN
057956,000211: # ... ... ENTER RETURN
057957,000212: # ... ... IMMEDIATE RETURN TO USER
057958,000213: # GOPERF4R BLANKS REGISTER R3
057959,000214: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057960,000215: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
057961,000216: # TC BANKCALL
057962,000217: # CADR REFLASHR
057963,000218: # ... ... TERMINATE RETURN
057964,000219: # ... ... PROCEED RETURN
057965,000220: # ... ... ENTER RETURN
057966,000221: # ... ... IMMEDIATE RETURN TO USER
057967,000222: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
057968,000223:
![]() |
Page 1343 |
057970,000225: # CAF VXXNYY
057971,000226: # TC BANKCALL
057972,000227: # CADR REGODSPR
057973,000228: # ... ... IMMEDIATE RETURN TO USER
057974,000229:
![]() |
Page 1344 |
057976,000231: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057977,000232: # GOXDSP = GOMARK
057978,000233: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
057979,000234: # TC BANKCALL
057980,000235: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
057981,000236: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
057982,000237: # GOXDSPR = GOMARKR
057983,000238: # CAF VXXNYY
057984,000239: # TC BANKCALL
057985,000240: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
057986,000241: # ... ... IMMEDIATE RETURN OF GOMARKR
057987,000242: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
057988,000243: # THE ASTRONAUT (SEE NO. 7 ABOVE).
057989,000244: # GOXDSPF = GOMARKF
057990,000245: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
057991,000246: # TC BANKCALL
057992,000247: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
057993,000248: # ... ... TERMINATE RETURN
057994,000249: # ... ... PROCEED RETURN
057995,000250: # ... ... ENTER OR RECYCLE RETURN
057996,000251: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
057997,000252: # GOXDSPFR = GOMARKFR
057998,000253: # CAF VXXNYY FLASHING MARK VERB NOUN
057999,000254: # TC BANKCALL
058000,000255: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
058001,000256: # ... ... TERMINATE RETURN
058002,000257: # ... ... PROCEED RETURN
058003,000258: # ... ... ENTER OR RECYCLE RETURN
058004,000259: # ... ... IMMEDIATE RETURN TO THE USER
058005,000260: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058006,000261: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058007,000262: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058008,000263: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058009,000264: # CAF V5XNYY X=1,2,3,4 Y= NOUN
058010,000265: # TC BANKCALL
058011,000266:
![]() |
Page 1345 |
058013,000268: # CADR GOMARK1
058014,000269: # ... ... ENTER RETURN
058015,000270: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058016,000271:
058017,000272: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058018,000273: # CAF V5XNYY X=1,2,3,4 YY = NOUN
058019,000274: # TC BANKCALL
058020,000275: # CADR GOMARK1R
058021,000276: # ... ... ASTRONAUT ENTER RETURN
058022,000277: # ... ... IMMEDIATE RETURN TO USER
058023,000278: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058024,000279: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058025,000280: # TC BANKCALL
058026,000281: # CADR GOMARK2
058027,000282: # ... ... TERMINATE RETURN
058028,000283: # ... ... PROCEED RETURN
058029,000284: # ... ... ENTER RETURN
058030,000285: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058031,000286: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
058032,000287: # TC BANKCALL
058033,000288: # CADR GOMARK2R
058034,000289: # ... ... TERMINATE RETURN
058035,000290: # ... ... PROCEED RETURN
058036,000291: # ... ... ENTER RETURN
058037,000292: # ... ... IMMEDIATE RETURN TO THE USER
058038,000293: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
058039,000294: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058040,000295: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058041,000296: # CAF V5XNYY X=1, 2,3,4 YY=NOUN
058042,000297: # TC BANKCALL
058043,000298: # CADR GOMARK3
058044,000299: # ... ... TERMINATE RETURN
058045,000300: # ... ... PROCEED RETURN
058046,000301: # ... ... ENTER RETURN
058047,000302: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058048,000303: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058049,000304: # TC BANKCALL
058050,000305: # CADR GOMARK4
058051,000306: # ... ... TERMINATE RETURN
058052,000307: # ... ... PROCEED RETURN
058053,000308:
![]() |
Page 1346 |
058055,000310: # ... ... ENTER RETURN
058056,000311: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058057,000312: # SENT OUT.
058058,000313: # CAF VXXNYY
058059,000314: # TC BANKCALL
058060,000315: # CADR EXDSPRET
058061,000316: # ... ... RETURN TO USER
058062,000317: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058063,000318: # HAVE BEEN CLEANED OUT.
058064,000319: # TC BANKCALL
058065,000320: # CADR KLEENEX
058066,000321: # ... ... RETURN TO USER
058067,000322: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058068,000323: # TC BANKCALL
058069,000324: # CADR MARKBRAN
058070,000325: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
058071,000326: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058072,000327: # LAST FLASHING MARK R ROUTINE)
058073,000328: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058074,000329: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058075,000330: # TC POSTJUMP
058076,000331: # CADR PINBRNCH
058077,000332: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058078,000333: # THE ASTRONAUT (SEE NO.7 ABOVE).
058079,000334: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058080,000335: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058081,000336: # IS RESPONDED TO BY THE ASTRONAUT.
058082,000337: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058083,000338: # PRIO DISPLAY.
058084,000339: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058085,000340: # TC BANKCALL
058086,000341: # CADR PRIODSP
058087,000342: # ... ... TERMINATE RETURN
058088,000343: # ... ... PROCEED RETURN
058089,000344:
![]() |
Page 1347 |
058091,000346: # ... ... ENTER OR RECYCLE RETURN
058092,000347: # PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058093,000348: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058094,000349: # TC BANKCALL
058095,000350: # CADR PRIODSPR
058096,000351: # ... ... TERMINATE RETURN
058097,000352: # ... ... PROCEED RETURN
058098,000353: # ... ... ENTER OR RECYCLE RETURN
058099,000354: # ... ... IMMEDIATE RETURN
058100,000355: # PRIOLARM DOES A V05N09 PRIODSPR.
058101,000356:
058102,000357: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
058103,000358: # DISPLAYS ARE CLEANED OUT.
058104,000359: # TC BANKCALL
058105,000360: # CADR CLEANDSP
058106,000361: # ... ... RETURN TO USER
058107,000362:
![]() |
Page 1348 |
058109,000364:
058110,000365: # GENERAL INFORMATION
058111,000366: # ------- -----------
058112,000367:
058113,000368: # ALARM OR ABORT EXIT MODES--
058114,000369: # PRIOBORT TC ABORT
058115,000370: # OCT 1502
058116,000371:
058117,000372: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058118,000373: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058119,000374: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058120,000375:
058121,000376: # ERASABLE INITIALIZATION REQUIRED--
058122,000377: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058123,000378: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
058124,000379: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
058125,000380: # 5. R1SAVE = MARKBRAN CONTROL WORD
058126,000381: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
058127,000382:
058128,000383: # OUTPUT--
058129,000384: # NVWORD = PRIO VERB AND NOUN
058130,000385: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
058131,000386: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
058132,000387: # DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058133,000388: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058134,000389: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058135,000390: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058136,000391: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058137,000392: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058138,000393: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058139,000394: # OPTION1 = DESIRED OPTION FROM GOPERF4
058140,000395: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058141,000396: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
058142,000397:
058143,000398: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058144,000399: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058145,000400: # DEBRIS-- (STORED INTO)
058146,000401: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058147,000402: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4,FACEREG
058148,000403: # ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058149,000404: # ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
058150,000405:
![]() |
Page 1349 |
058152,000407: # R1SAVE, MARK2PAC,
058153,000408: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
058154,000409:
058155,000410: # FLAGWORD DESCRIPTIONS--
058156,000411: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
058157,000412:
058158,000413: # DSPFLG, DSPFLG+1, DSPFLG +2-
058159,000414: # ----------------------------
058160,000415: # BITS 1 BLANK R1
058161,000416: # 2 BLANK R2
058162,000417: # 3 BLANK R3
058163,000418: # 4 FLASHING DISPLAY REQUESTED
058164,000419: # 5 PERFORM DISPLAY REQUESTED
058165,000420: # 6 ----- EXDSPRET GODSPRET
058166,000421: # 7 PRIO DISPLAY ----- -----
058167,000422: # 8 MONITOR-PASTE DEC PERFORM -----
058168,000423: # 9 EBANK
058169,000424: # 10 EBANK
058170,000425: # 11 EBANK
058171,000426: # 12 ----- ----- V99PASTE
058172,000427: # 13 2ND PART OF PERFORM
058173,000428: # 14 REFLASH OR REDO ----- REFLASH OR REDO
058174,000429: # 15 ----- MARK REQUEST -----
058175,000430:
058176,000431: # RESTARTING DISPLAYS--
058177,000432:
058178,000433: # RULES FOR THE DSKY OPERATOR--
058179,000434: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
058180,000435: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
058181,000436: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
058182,000437: # WITH PROCEED AND TERMINATE FOR THIS REASON.
058183,000438: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
058184,000439: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
058185,000440: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
058186,000441: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
058187,000442: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
058188,000443: # CONSIDERATION.
058189,000444: # 3. KEY RELEASE BUTTON-
058190,000445: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
058191,000446: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
058192,000447: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
058193,000448: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
058194,000449: # KEY RELEASE BUTTON MAY BE NECESSARY.
058195,000450: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
058196,000451: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
058197,000452: # OVER AGAIN.
058198,000453:
058199,000454: # SPECIAL CONSIDERATIONS--
058200,000455:
![]() |
Page 1350 |
058202,000457: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
058203,000458: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
058204,000459: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
058205,000460: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
058206,000461: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
058207,000462: # BY A .1 RESTART PHASE CHANGE.
058208,000463: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
058209,000464: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
058210,000465: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
058211,000466:
![]() |
Page 1351 |
058213,000468: # CALLING SEQUENCE FOR BLANKING
058214,000469: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
058215,000470: # TC BLANKET
058216,000471: # ... ... RETURN TO USER HERE
058217,000472: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
058218,000473: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
058219,000474: 5466 BLOCK 02
058220,000475: 4000 SETLOC FFTAG4
058221,000476: 4000 BANK
058222,000477:
058223,000478: 5466 COUNT* $$/DSPLA
058224,000479: 5466 54162 BLANKET TS MPAC +6
058225,000480: 5467 40160 CS PLAYTEM4
058226,000481: 5470 70162 MASK MPAC +6
058227,000482: 5471 50161 INDEX MPAC +5
058228,000483: 5472 26160 ADS PLAYTEM4
058229,000484:
058230,000485: 5473 00002 TC Q
058231,000486:
058232,000487: 5474 04626 ENDMARK TC POSTJUMP
058233,000488: 5475 20315 CADR MARKEND
058234,000489:
058235,000490: 5476 34746 CLEARMRK CAF ZERO
058236,000491: 5477 55043 TS EXTVBACT
058237,000492:
058238,000493: 5500 00004 +2 INHINT
058239,000494: 5501 44744 CS XDSPBIT
058240,000495: 5502 70100 MASK FLAGWRD4
058241,000496: 5503 54100 TS FLAGWRD4
058242,000497:
058243,000498: 5504 00003 RELINT
058244,000499: 5505 00002 TC Q
058245,000500:
058246,000501: # ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
058247,000502: # FINISHED.
058248,000503:
058249,000504: 10,2315 BANK 10
058250,000505: 10,2000 SETLOC DISPLAYS
058251,000506: 10,2000 BANK
058252,000507:
058253,000508: 10,2315 COUNT* $$/DSPLA
058254,000509:
058255,000510: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
058256,000511: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
058257,000512:
058258,000513: 10,2315 05476 MARKEND TC CLEARMRK
058259,000514: 10,2316 13427 TCF MARKOVER
058260,000515:
058261,000516: 10,2317 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
058262,000517:
![]() |
Page 1352 |
058264,000519: 10,2320 34726 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
058265,000520: 10,2321 12473 TCF GOFLASH2
058266,000521:
058267,000522: 10,2322 34746 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
058268,000523: 10,2323 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
058269,000524:
058270,000525: 10,2324 33043 CAF MARKFMSK # MARK,FLASH
058271,000526: 10,2325 12473 TCF GOFLASH2
058272,000527:
058273,000528: 10,2326 54155 PRIOMONR TS PLAYTEM1
058274,000529: 10,2327 33553 CAF PRIMNMSK # PRIORITY,MONITOR,FLASHING DISPLAY
058275,000530: 10,2330 12473 TCF GOFLASH2
058276,000531:
058277,000532: 10,2331 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
058278,000533: 10,2332 33526 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
058279,000534: 10,2333 12473 TCF GOFLASH2
058280,000535: 10,2334 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
058281,000536: 10,2335 33513 CAF MARK3MSK
058282,000537: 10,2336 12473 TCF GOFLASH2
058283,000538:
058284,000539: 10,2337 54155 GOMARK4 TS PLAYTEM1
058285,000540: 10,2340 33514 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
058286,000541: 10,2341 12473 TCF GOFLASH2
058287,000542:
058288,000543: 10,2342 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
058289,000544:
058290,000545: 10,2343 34726 CAF BIT15
058291,000546: 10,2344 12446 TCF GODSPR2
058292,000547:
058293,000548: 10,2345 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
058294,000549:
058295,000550: 10,2346 33043 CAF MARKFMSK
058296,000551: 10,2347 12651 TCF GODSPRS
058297,000552:
058298,000553: 10,2350 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
058299,000554: 10,2351 33526 CAF MPERFMSK # MARK, PERFORM, FLASH
058300,000555: 10,2352 12651 TCF GODSPRS
058301,000556: 10,2353 65014 -1 AD PRIO13
058302,000557: 10,2354 54155 GOMARK3R TS PLAYTEM1
058303,000558: 10,2355 33513 CAF MARK3MSK
058304,000559: 10,2356 12651 TCF GODSPRS
058305,000560:
058306,000561: 10,2357 34744 MAKEMARK CAF ONE
058307,000562: 10,2360 02747 TC COPIES
058308,000563:
058309,000564: 10,2361 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
058310,000565: 10,2362 73527 MASK OCT34300
058311,000566: 10,2363 10000 CCS A
058312,000567: 10,2364 12422 TCF CHKPRIO
058313,000568:
![]() |
Page 1353 |
058315,000570: 10,2365 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
058316,000571: 10,2366 74734 MASK MRKNVBIT
058317,000572: 10,2367 00006 EXTEND
058318,000573: 10,2370 12372 BZF MARKPLAY # NO
058319,000574:
058320,000575: 10,2371 15146 TCF ENDOFJOB
058321,000576:
058322,000577: 10,2372 00004 MARKPLAY INHINT
058323,000578: 10,2373 44747 CS FIVE # RESET MARK OVER NORM, SET MARK
058324,000579: 10,2374 70100 MASK FLAGWRD4
058325,000580: 10,2375 64744 AD ONE
058326,000581: 10,2376 54100 TS FLAGWRD4
058327,000582: 10,2377 00003 RELINT
058328,000583:
058329,000584: 10,2400 41070 GOGOMARK CS MARKFLAG # PERFORM
058330,000585: 10,2401 74740 MASK BIT5
058331,000586: 10,2402 10000 CCS A
058332,000587: 10,2403 12406 TCF MARKCOP
058333,000588: 10,2404 40367 CS MARKNV
058334,000589: 10,2405 54367 TS MARKNV
058335,000590:
058336,000591: 10,2406 34744 MARKCOP CAF ONE # MARK INDEX
058337,000592: 10,2407 12630 TCF PRIOPLAY
058338,000593:
058339,000594: 10,2410 30165 COPYTOGO CA MPAC2SAV
058340,000595: 10,2411 54156 TS MPAC +2
058341,000596:
058342,000597: 10,2412 50164 COPYPACS INDEX COPINDEX
058343,000598: 10,2413 33537 CAF PRIOOCT
058344,000599: 10,2414 54162 TS GENMASK
058345,000600:
058346,000601: 10,2415 50164 INDEX COPINDEX
058347,000602: 10,2416 31067 CAF EBANKSAV
058348,000603: 10,2417 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
058349,000604:
058350,000605: 10,2420 54003 TS EBANK
058351,000606:
058352,000607: 10,2421 00002 TC Q
058353,000608:
058354,000609: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
058355,000610: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
058356,000611: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
058357,000612: # UNTIL ALL MARKING IS FINISHED.
058358,000613:
058359,000614: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
058360,000615: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
058361,000616:
058362,000617: 10,2422 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
058363,000618: 10,2423 73274 MASK OCT24100
058364,000619: 10,2424 10000 CCS A
058365,000620:
![]() |
Page 1354 |
058367,000622: 10,2425 13462 TCF MARSLEEP
058368,000623:
058369,000624: 10,2426 40100 CS FLAGWRD4
058370,000625: 10,2427 74742 MASK MKOVBIT # SET MARK OVER NORM
058371,000626: 10,2430 00004 INHINT
058372,000627: 10,2431 26100 ADS FLAGWRD4
058373,000628:
058374,000629: 10,2432 12534 TCF SETNORM
058375,000630:
058376,000631: 10,2433 30367 MARKPERF CA MARKNV
058377,000632: 10,2434 74144 MASK VERBMASK
058378,000633: 10,2435 13140 TCF NV50DSP
058379,000634:
058380,000635: 10,2436 54155 GODSP TS PLAYTEM1
058381,000636:
058382,000637: 10,2437 34746 GODSP2 CAF ZERO
058383,000638: 10,2440 12473 TCF GOFLASH2
058384,000639:
058385,000640: 10,2441 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
058386,000641:
058387,000642: 10,2442 34737 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
058388,000643: 10,2443 12473 TCF GOFLASH2
058389,000644:
058390,000645: 10,2444 54155 GODSPR TS PLAYTEM1
058391,000646:
058392,000647: 10,2445 34746 GODSPR1 CAF ZERO
058393,000648: 10,2446 54160 GODSPR2 TS PLAYTEM4
058394,000649:
058395,000650: 10,2447 34746 CAF ZERO # * DONT MOVE
058396,000651: 10,2450 12653 TCF GODSPRS1
058397,000652:
058398,000653: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
058399,000654: # SET UP TO BE STARTED OR RESTARTED.
058400,000655:
058401,000656: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
058402,000657: # OLD DISPLAY.
058403,000658:
058404,000659: # CALLING SEQUENCE FOR CLEANDSP-
058405,000660:
058406,000661: # TC BANKCALL
058407,000662: # CADR CLEANDSP
058408,000663:
058409,000664: 10,2451 34746 CLEANDSP CAF ZERO
058410,000665: 10,2452 54155 REFLASH TS PLAYTEM1
058411,000666:
058412,000667: 10,2453 33512 CAF REDOMASK # FLASH AND PERMIT
058413,000668: 10,2454 12473 TCF GOFLASH2
058414,000669:
058415,000670: 10,2455 54155 REFLASHR TS PLAYTEM1
058416,000671:
![]() |
Page 1355 |
058418,000673: 10,2456 33512 CAF REDOMASK # FLASH AND PERMIT
058419,000674: 10,2457 12651 TCF GODSPRS
058420,000675:
058421,000676: 10,2460 54155 REGODSP TS PLAYTEM1
058422,000677:
058423,000678: 10,2461 34727 CAF BIT14
058424,000679: 10,2462 12473 TCF GOFLASH2
058425,000680:
058426,000681: 10,2463 54155 REGODSPR TS PLAYTEM1
058427,000682:
058428,000683: 10,2464 34727 CAF BIT14
058429,000684: 10,2465 12446 TCF GODSPR2
058430,000685:
058431,000686: 10,2466 54155 CLOCPLAY TS PLAYTEM1
058432,000687: 10,2467 33551 CAF CLOCKCON
058433,000688: 10,2470 12473 TCF GOFLASH2
058434,000689:
058435,000690: 10,2471 54155 GOFLASH TS PLAYTEM1
058436,000691:
058437,000692: 10,2472 34741 CAF BIT4 # LEAVE ONLY FLASH BIT SET
058438,000693: 10,2473 54160 GOFLASH2 TS PLAYTEM4
058439,000694:
058440,000695: 10,2474 02734 TC SAVELOCS
058441,000696:
058442,000697: 10,2475 00003 RELINT
058443,000698:
058444,000699: 10,2476 12560 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
058445,000700:
058446,000701: 10,2477 54155 PRIODSPR TS PLAYTEM1
058447,000702:
058448,000703: 10,2500 33531 CAF BITS7+4
058449,000704: 10,2501 12651 TCF GODSPRS
058450,000705:
058451,000706: 10,2502 54155 PRIODSP TS PLAYTEM1
058452,000707:
058453,000708: 10,2503 33531 SETPRIO CAF BITS7+4
058454,000709: 10,2504 12473 TCF GOFLASH2
058455,000710:
058456,000711: 10,2505 34746 MAKEPRIO CAF ZERO
058457,000712: 10,2506 54164 TS COPINDEX
058458,000713:
058459,000714: 10,2507 03402 TC LINUSCHR
058460,000715: 10,2510 12515 TCF HIPRIO # LINUS RETURN
058461,000716: 10,2511 30100 CA FLAGWRD4
058462,000717: 10,2512 73550 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
058463,000718: 10,2513 10000 CCS A
058464,000719: 10,2514 12607 TCF PRIOBORT # YES, ABORT
058465,000720:
058466,000721: 10,2515 00004 HIPRIO INHINT
058467,000722: 10,2516 41035 CS DSPTAB +11D # SET BITS 15 AND 1
058468,000723:
![]() |
Page 1356 |
058470,000725: 10,2517 76130 MASK OCT40001 # (WHATEVER THEIR PREVIOUS STATE)
058471,000726: 10,2520 27035 ADS DSPTAB +11D # TO TURN ON SUPER-KEYRELEASE LIGHT
058472,000727:
058473,000728: 10,2521 00003 RELINT
058474,000729: 10,2522 30100 CA FLAGWRD4 # MARK ACTIVE
058475,000730: 10,2523 75634 MASK OCT40400
058476,000731: 10,2524 00006 EXTEND
058477,000732: 10,2525 12530 BZF ASKIFNRM # NO
058478,000733:
058479,000734: 10,2526 34746 SETMARK CAF ZERO
058480,000735: 10,2527 13006 TCF JOBXCHS
058481,000736:
058482,000737: 10,2530 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
058483,000738: 10,2531 73546 MASK OCT10200 # BITS 13+8
058484,000739: 10,2532 00006 EXTEND
058485,000740: 10,2533 12536 BZF OKTOCOPY # NO
058486,000741:
058487,000742: 10,2534 34744 SETNORM CAF ONE
058488,000743: 10,2535 13006 TCF JOBXCHS
058489,000744:
058490,000745: 10,2536 02746 OKTOCOPY TC COPYNORM
058491,000746: 10,2537 03225 TC WITCHONE
058492,000747:
058493,000748: 10,2540 05130 TC JOBWAKE
058494,000749:
058495,000750: 10,2541 03242 TC XCHTOEND
058496,000751:
058497,000752: 10,2542 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
058498,000753: 10,2543 55164 TS PRIOTIME
058499,000754:
058500,000755: 10,2544 34746 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
058501,000756: 10,2545 54164 TS COPINDEX
058502,000757: 10,2546 41067 CS DSPFLG
058503,000758: 10,2547 74735 MASK BIT8
058504,000759: 10,2550 10000 CCS A
058505,000760: 10,2551 13102 TCF NVDSP
058506,000761: 10,2552 30366 CA NVWORD
058507,000762: 10,2553 74144 MASK MID7
058508,000763: 10,2554 54001 TS L
058509,000764: 10,2555 40366 CS NVWORD
058510,000765: 10,2556 54366 TS NVWORD
058511,000766: 10,2557 13103 TCF NVDSP +1
058512,000767:
058513,000768: 10,2560 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
058514,000769: 10,2561 77746 MASK PRIO37
058515,000770: 10,2562 54163 TS USERPRIO
058516,000771:
058517,000772: 10,2563 37742 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
058518,000773: 10,2564 05137 TC PRIOCHNG
058519,000774:
![]() |
Page 1357 |
058521,000776: 10,2565 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
058522,000777: 10,2566 73530 MASK BITS15+7
058523,000778: 10,2567 10000 CCS A
058524,000779: 10,2570 12505 TCF MAKEPRIO # ITS PRIO
058525,000780: 10,2571 12573 TCF IFLEGAL
058526,000781: 10,2572 12357 TCF MAKEMARK # ITS MARK
058527,000782:
058528,000783: 10,2573 34743 IFLEGAL CAF TWO
058529,000784: 10,2574 54164 TS COPINDEX
058530,000785:
058531,000786: 10,2575 03402 TC LINUSCHR
058532,000787:
058533,000788: 10,2576 12611 TCF OKTOPLAY # LINUS RETURN
058534,000789: 10,2577 41071 CS EBANKTEM
058535,000790: 10,2600 74741 MASK BIT4
058536,000791: 10,2601 10000 CCS A
058537,000792: 10,2602 12611 TCF OKTOPLAY # NO
058538,000793:
058539,000794: 10,2603 30100 CA FLAGWRD4 # WAS NORM ASLEEP
058540,000795: 10,2604 73521 MASK NBUSMASK # ARE ANY NORMS ASLEEP
058541,000796: 10,2605 00006 EXTEND
058542,000797: 10,2606 12611 BZF OKTOPLAY # NO
058543,000798:
058544,000799: 10,2607 05626 PRIOBORT TC BAILOUT
058545,000800: 10,2610 31502 OCT 31502
058546,000801:
058547,000802: 10,2611 02750 OKTOPLAY TC COPIES2
058548,000803:
058549,000804: 10,2612 30163 CA USERPRIO
058550,000805: 10,2613 00006 EXTEND
058551,000806: 10,2614 04007 ROR SUPERBNK
058552,000807: 10,2615 55264 TS RESTREG
058553,000808:
058554,000809: 10,2616 30100 CA FLAGWRD4 # PRIO OR MARK GOING
058555,000810: 10,2617 73522 MASK PMMASK
058556,000811: 10,2620 10000 CCS A
058557,000812: 10,2621 12766 TCF GOSLEEPS # YES
058558,000813:
058559,000814: 10,2622 12624 TCF +2
058560,000815: 10,2623 12766 TCF GOSLEEPS # MARK GOING
058561,000816:
058562,000817: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
058563,000818: 10,2624 03225 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
058564,000819: 10,2625 05130 TC JOBWAKE
058565,000820:
058566,000821: 10,2626 03242 TC XCHTOEND
058567,000822:
058568,000823: 10,2627 34743 PLAYJUM1 CAF TWO
058569,000824: 10,2630 54164 PRIOPLAY TS COPINDEX
058570,000825:
![]() |
Page 1358 |
058572,000827: 10,2631 13102 TCF GOPLAY
058573,000828:
058574,000829: 10,2632 54155 EXDSPRET TS PLAYTEM1
058575,000830:
058576,000831: 10,2633 37755 CAF BIT15+6
058577,000832: 10,2634 12473 TCF GOFLASH2
058578,000833:
058579,000834: 10,2635 55044 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
058580,000835: 10,2636 33504 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
058581,000836:
058582,000837: 10,2637 54155 GOPERFS TS PLAYTEM1
058583,000838:
058584,000839: 10,2640 33503 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
058585,000840: 10,2641 12473 TCF GOFLASH2
058586,000841:
058587,000842: 10,2642 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058588,000843:
058589,000844: 10,2643 33507 CAF PERF2MSK
058590,000845: 10,2644 12473 TCF GOFLASH2
058591,000846:
058592,000847: 10,2645 02727 GOPERF4 TC PURRS4
058593,000848:
058594,000849: 10,2646 12473 TCF GOFLASH2
058595,000850:
058596,000851: 10,2647 54155 GOFLASHR TS PLAYTEM1
058597,000852:
058598,000853: 10,2650 34741 CAF BIT4 # LEAVE ONLY FLASH BIT SET
058599,000854: 10,2651 54160 GODSPRS TS PLAYTEM4
058600,000855:
058601,000856: 10,2652 36266 CAF THREE
058602,000857:
058603,000858: 10,2653 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
058604,000859: 10,2654 54072 TS RUPTREG3
058605,000860:
058606,000861: 10,2655 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
058607,000862: 10,2656 77746 MASK PRIO37
058608,000863: 10,2657 54063 TS NEWPRIO
058609,000864:
058610,000865: 10,2660 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
058611,000866: 10,2661 74741 MASK BIT4
058612,000867: 10,2662 10000 CCS A
058613,000868: 10,2663 12671 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
058614,000869: 10,2664 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
058615,000870: 10,2665 05063 TC NOVAC
![]() |
[WORKAROUND] Not in original; to adjust subsequent 2CADR. |
058617,000872: 10,2666 30,2000 SBANK= LOWSUPER
058618,000873: 10,2666 E7,1471 EBANK= WHOCARES
058619,000874: 10,2666 02560 20067 2CADR MAKEPLAY
058620,000875:
058621,000876: 10,2670 12677 TCF BOTHJOBS
058622,000877:
058623,000878: 10,2671 30006 VACDSP CA BBANK
058624,000879:
![]() |
Page 1359 |
058626,000881: 10,2672 00006 EXTEND
058627,000882: 10,2673 04007 ROR SUPERBNK
058628,000883: 10,2674 54001 TS L
058629,000884: 10,2675 33545 CAF MAKEGEN
058630,000885: 10,2676 05107 TC SPVAC
058631,000886:
058632,000887: 10,2677 02734 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
058633,000888:
058634,000889: 10,2700 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
058635,000890: 10,2701 30156 DCA MPAC +1
058636,000891: 10,2702 50064 INDEX LOCCTR
058637,000892: 10,2703 52156 DXCH MPAC +1
058638,000893:
058639,000894: 10,2704 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
058640,000895: 10,2705 30160 DCA MPAC +3
058641,000896: 10,2706 50064 INDEX LOCCTR
058642,000897: 10,2707 52160 DXCH MPAC +3
058643,000898:
058644,000899: 10,2710 30064 CA LOCCTR
058645,000900: 10,2711 54161 TS MPAC +5
058646,000901:
058647,000902: 10,2712 02741 TC SAVELOCR
058648,000903: 10,2713 00003 RELINT
058649,000904:
058650,000905: 10,2714 14631 TCF BANKJUMP # CALL CADR +4
058651,000906:
058652,000907: 10,2715 55044 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
058653,000908:
058654,000909: 10,2716 33504 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
058655,000910:
058656,000911: 10,2717 54155 GOPERFRS TS PLAYTEM1
058657,000912:
058658,000913: 10,2720 33503 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
058659,000914: 10,2721 12651 TCF GODSPRS
058660,000915:
058661,000916: 10,2722 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058662,000917:
058663,000918: 10,2723 33507 CAF PERF2MSK
058664,000919: 10,2724 12651 TCF GODSPRS
058665,000920:
058666,000921: 10,2725 02727 GOPERF4R TC PURRS4
058667,000922:
058668,000923: 10,2726 12651 TCF GODSPRS
058669,000924:
058670,000925: 10,2727 55143 PURRS4 TS OPTION1 # DESIRED OPTION CODE
058671,000926:
058672,000927: 10,2730 33510 CAF V04N06
058673,000928: 10,2731 54155 TS PLAYTEM1
058674,000929:
058675,000930: 10,2732 33511 CAF PERF4MSK # FLASH,PERFORM AND BLANK R3
058676,000931:
![]() |
Page 1360 |
058678,000933: 10,2733 00002 TC Q
058679,000934:
058680,000935: 10,2734 00004 SAVELOCS INHINT
058681,000936:
058682,000937: 10,2735 43520 CS OCT3400 # EBANK BITS
058683,000938: 10,2736 70160 MASK PLAYTEM4
058684,000939: 10,2737 60003 AD EBANK
058685,000940: 10,2740 54160 TS PLAYTEM4
058686,000941:
058687,000942: 10,2741 22002 SAVELOCR LXCH Q
058688,000943:
058689,000944: 10,2742 04636 TC MAKECADR
058690,000945: 10,2743 54157 TS PLAYTEM3
058691,000946:
058692,000947: 10,2744 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
058693,000948: 10,2745 00001 TC L
058694,000949:
058695,000950: 10,2746 34746 COPYNORM CAF ZERO
058696,000951: 10,2747 54164 COPIES TS COPINDEX
058697,000952: 10,2750 00004 COPIES2 INHINT
058698,000953: 10,2751 30160 CA PLAYTEM4 # FLAGWORD
058699,000954: 10,2752 50164 INDEX COPINDEX
058700,000955: 10,2753 55067 TS EBANKSAV # EQUIV TO DSPFLG
058701,000956:
058702,000957: 10,2754 73536 MASK CADRMASK # FLASH AND GODSPRET
058703,000958: 10,2755 00006 EXTEND
058704,000959: 10,2756 12762 BZF SKIPADD
058705,000960:
058706,000961: 10,2757 30157 CA PLAYTEM3
058707,000962: 10,2760 50164 INDEX COPINDEX
058708,000963: 10,2761 54371 TS CADRFLSH
058709,000964:
058710,000965: 10,2762 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
058711,000966: 10,2763 50164 INDEX COPINDEX
058712,000967: 10,2764 54366 TS NVWORD
058713,000968:
058714,000969: 10,2765 13251 TCF RELINTQ
058715,000970:
058716,000971: 10,2766 50164 GOSLEEPS INDEX COPINDEX
058717,000972: 10,2767 33537 CA PRIOOCT
058718,000973: 10,2770 72772 MASK WAITMASK
058719,000974: 10,2771 03554 TC UPENT2
058720,000975: 10,2772 03004 WAITMASK OCT 3004
058721,000976: 10,2773 44744 CS ONE
058722,000977: 10,2774 60164 AD COPINDEX
058723,000978: 10,2775 54154 TS FACEREG
058724,000979:
058725,000980: 10,2776 50154 XCHSLEEP INDEX FACEREG
058726,000981: 10,2777 33516 CAF WAKECADR
058727,000982: 10,3000 00004 INHINT
058728,000983:
![]() |
Page 1361 |
058730,000985: 10,3001 05130 TC JOBWAKE # FIND CADR IN JOB AREA
058731,000986:
058732,000987: 10,3002 03242 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
058733,000988:
058734,000989: 10,3003 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
058735,000990: 10,3004 33516 CAF WAKECADR
058736,000991: 10,3005 15124 TCF JOBSLEEP
058737,000992:
058738,000993: 10,3006 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
058739,000994: 10,3007 03225 TC WITCHONE
058740,000995: 10,3010 05130 TC JOBWAKE
058741,000996: 10,3011 30154 CA FACEREG
058742,000997: 10,3012 50064 INDEX LOCCTR
058743,000998: 10,3013 54154 TS FACEREG
058744,000999:
058745,001000: 10,3014 33027 CAF XCHQADD
058746,001001: 10,3015 03243 TC XCHNYLOC
058747,001002:
058748,001003: 10,3016 50154 INDEX FACEREG
058749,001004: 10,3017 33540 CA MARKOCT
058750,001005: 10,3020 73542 MASK IDLESLEP
058751,001006: 10,3021 03564 TC DOWNENT2
058752,001007: 10,3022 74004 IDLEMASK OCT 74004 # * DONT MOVE
058753,001008:
058754,001009: 10,3023 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
058755,001010: 10,3024 34740 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
058756,001011: 10,3025 64742 AD FOUR
058757,001012: 10,3026 03554 TC UPENT2 # FLAG ROUTINE DOES RELINT
058758,001013: 10,3027 02776 XCHQADD GENADR XCHSLEEP # * DONT MOVE
058759,001014: 10,3030 30100 CA FLAGWRD4
058760,001015: 10,3031 74742 MASK MKOVBIT # MARK OVER NORM ?
058761,001016: 10,3032 10000 CCS A
058762,001017: 10,3033 02372 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
058763,001018: 10,3034 12536 TCF OKTOCOPY
058764,001019:
058765,001020: 10,3035 34746 MARKWAKE CAF ZERO
058766,001021: 10,3036 54160 WAKEPLAY TS TEMPOR2
058767,001022:
058768,001023: 10,3037 50160 INDEX TEMPOR2
058769,001024: 10,3040 33532 CA BITS5+11
058770,001025: 10,3041 64742 AD FOUR
058771,001026: 10,3042 03564 TC DOWNENT2
058772,001027: 10,3043 40010 MARKFMSK OCT 40010 # ***DONT MOVE
058773,001028:
058774,001029: 10,3044 50160 INDEX TEMPOR2
058775,001030: 10,3045 33516 CAF WAKECADR
058776,001031: 10,3046 00004 INHINT
058777,001032: 10,3047 05130 TC JOBWAKE
058778,001033:
058779,001034: 10,3050 13355 TCF ENDRET
058780,001035:
![]() |
Page 1362 |
058782,001037: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
058783,001038: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
058784,001039:
058785,001040: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
058786,001041: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
058787,001042:
058788,001043: 10,3051 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
058789,001044: 10,3052 54003 TS EBANK
058790,001045:
058791,001046: 10,3053 31264 CA RESTREG # SUPERBANK AND JOB PRIORITY
058792,001047: 10,3054 04720 TC SUPERSW # RESTORE SUPERBANK
058793,001048:
058794,001049: 10,3055 77746 MASK PRIO37
058795,001050: 10,3056 05137 TC PRIOCHNG
058796,001051:
058797,001052: 10,3057 46266 CS THREE
058798,001053: 10,3060 60373 AD TEMPFLSH
058799,001054: 10,3061 14631 TCF BANKJUMP
058800,001055:
058801,001056: 10,3062 00003 PINBRNCH RELINT # FOR GOPIN USERS
058802,001057: 10,3063 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
058803,001058: 10,3064 54156 TS MPAC +2 # ONLY
058804,001059:
058805,001060: 10,3065 30100 CA FLAGWRD4 # PINBRANCH CONDITION
058806,001061: 10,3066 77761 MASK PINMASK
058807,001062: 10,3067 10000 CCS A
058808,001063: 10,3070 13073 TCF +3
058809,001064: 10,3071 13477 TCF ERASER # ** NOTHING IN ENDIDLE
058810,001065: 10,3072 12372 TCF MARKPLAY
058811,001066:
058812,001067: 10,3073 05506 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
058813,001068: 10,3074 00105 ADRES PINBRFLG
058814,001069:
058815,001070: 10,3075 34727 CAF PRIODBIT # PRIO INTERRUPTED
058816,001071: 10,3076 70100 MASK FLAGWRD4
058817,001072: 10,3077 10000 CCS A
058818,001073: 10,3100 12544 TCF KEEPPRIO
058819,001074:
058820,001075: 10,3101 12627 TCF PLAYJUM1
058821,001076:
058822,001077: 10,3102 22007 NVDSP ZL
058823,001078: 10,3103 02412 TC COPYPACS
058824,001079:
058825,001080: 10,3104 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
058826,001081: 10,3105 74750 MASK SEVEN # USER REQUESTS BLANKING MONITOR
058827,001082: 10,3106 26001 ADS L
058828,001083:
058829,001084: 10,3107 44730 CS BIT13
058830,001085: 10,3110 50164 INDEX COPINDEX
058831,001086: 10,3111 71067 MASK DSPFLG
058832,001087: 10,3112 50164 INDEX COPINDEX
058833,001088:
![]() |
Page 1363 |
058835,001090: 10,3113 55067 TS DSPFLG
058836,001091:
058837,001092: 10,3114 74735 MASK BIT8 # BIT 8 SET IF PRIO MONITOR OR DEC MARK
058838,001093: 10,3115 50164 INDEX COPINDEX
058839,001094: 10,3116 13117 TCF +1
058840,001095: 10,3117 33552 CA OCT2600 # CAUSES V16 TO BE IN A AT NVMONOPT
058841,001096: 10,3120 54141 TS TEM1 # SET, BIT 8 IN TEM1 IF DEC MARK
058842,001097: 10,3121 30156 CA MPAC +2
058843,001098: 10,3122 54165 TS MPAC2SAV
058844,001099:
058845,001100: 10,3123 55072 TS MARK2PAC # * FOR DISK ONLY *
058846,001101: 10,3124 50164 INDEX COPINDEX
058847,001102: 10,3125 10366 CCS NVWORD
058848,001103: 10,3126 13137 TCF NVDSP1
058849,001104: 10,3127 13253 TCF CLEANEND
058850,001105: 10,3130 50164 INDEX COPINDEX
058851,001106: 10,3131 40366 CS NVWORD
058852,001107: 10,3132 50164 INDEX COPINDEX
058853,001108: 10,3133 54366 TS NVWORD
058854,001109: 10,3134 76115 MASK LOW7
058855,001110: 10,3135 63523 AD V05N00M1
058856,001111: 10,3136 60141 AD TEM1
058857,001112: 10,3137 64744 NVDSP1 AD ONE
058858,001113: 10,3140 04146 NV50DSP TC NVMONOPT
058859,001114: 10,3141 13265 TCF REST # IF BUSY
058860,001115: 10,3142 04424 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
058861,001116:
058862,001117: 10,3143 02410 TC COPYTOGO # MPACS DESTROYED BY NVSUB
058863,001118: 10,3144 05520 TC DOWNFLAG # UNSET SLEEPING BITS
058864,001119: 10,3145 00102 ADRES MRKNVFLG
058865,001120: 10,3146 05520 TC DOWNFLAG
058866,001121: 10,3147 00103 ADRES NRMNVFLG
058867,001122: 10,3150 05520 TC DOWNFLAG
058868,001123: 10,3151 00104 ADRES PRONVFLG
058869,001124: 10,3152 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
058870,001125: 10,3153 04246 TC BLANKSUB
058871,001126: 10,3154 13102 TCF NVDSP
058872,001127: 10,3155 34740 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
058873,001128: 10,3156 70160 MASK TEMPOR2
058874,001129: 10,3157 10000 CCS A # IS THIS A GOPERF DISPLAY
058875,001130: 10,3160 13203 TCF 1STOR2ND # YES
058876,001131:
058877,001132: 10,3161 34741 GOANIDLE CAF BIT4
058878,001133: 10,3162 70160 MASK TEMPOR2
058879,001134: 10,3163 10000 CCS A
058880,001135: 10,3164 13300 TCF FLASHSUB # IT IS
058881,001136:
058882,001137: 10,3165 40160 CS TEMPOR2 # IS THIS A GODSPRET
058883,001138: 10,3166 74737 MASK BIT6
058884,001139: 10,3167 10000 CCS A
058885,001140:
![]() |
Page 1364 |
058887,001142: 10,3170 13175 TCF ISITN00
058888,001143:
058889,001144: 10,3171 50164 INDEX COPINDEX
058890,001145: 10,3172 30371 CA CADRFLSH
058891,001146: 10,3173 54157 TS MPAC +3
058892,001147: 10,3174 13373 TCF ENDIT
058893,001148:
058894,001149: 10,3175 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
058895,001150: 10,3176 30366 CA NVWORD
058896,001151: 10,3177 76115 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
058897,001152: 10,3200 00006 EXTEND
058898,001153: 10,3201 13300 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
058899,001154:
058900,001155: 10,3202 15146 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
058901,001156:
058902,001157: 10,3203 30160 1STOR2ND CA TEMPOR2
058903,001158: 10,3204 74730 MASK BIT13
058904,001159: 10,3205 10000 CCS A
058905,001160: 10,3206 13161 TCF GOANIDLE # SECOND
058906,001161:
058907,001162: 10,3207 34730 CA BIT13
058908,001163: 10,3210 50164 INDEX COPINDEX
058909,001164: 10,3211 27067 ADS DSPFLG
058910,001165:
058911,001166: 10,3212 22007 ZL
058912,001167: 10,3213 00006 EXTEND # IS IT MARK
058913,001168: 10,3214 62433 BZMF MARKPERF # YES
058914,001169:
058915,001170: 10,3215 74731 MASK BIT12
058916,001171: 10,3216 00006 EXTEND
058917,001172: 10,3217 13223 BZF V50PASTE
058918,001173: 10,3220 41066 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
058919,001174: 10,3221 63547 AD V97N00
058920,001175: 10,3222 13140 TCF NV50DSP
058921,001176: 10,3223 33506 V50PASTE CAF V50N00
058922,001177: 10,3224 13140 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
058923,001178:
058924,001179: 10,3225 44740 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
058925,001180: 10,3226 00006 EXTEND
058926,001181: 10,3227 03011 WAND DSALMOUT
058927,001182:
058928,001183: 10,3230 30100 CA FLAGWRD4
058929,001184: 10,3231 73524 MASK NVBUSMSK # IS IT NVSUB ASLEEP
058930,001185: 10,3232 10000 CCS A
058931,001186: 10,3233 34744 CAF ONE
058932,001187: 10,3234 54001 TS L
058933,001188: 10,3235 34746 CAF ZERO
058934,001189: 10,3236 50001 INDEX L
058935,001190: 10,3237 57041 XCH CADRSTOR
058936,001191:
![]() |
Page 1365 |
058938,001193: 10,3240 00004 INHINT
058939,001194: 10,3241 00002 TC Q
058940,001195:
058941,001196: 10,3242 34210 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
058942,001197: 10,3243 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
058943,001198: 10,3244 00006 EXTEND
058944,001199: 10,3245 63251 BZMF RELINTQ # NO
058945,001200: 10,3246 56064 XCH LOCCTR # YES
058946,001201: 10,3247 50064 INDEX LOCCTR
058947,001202: 10,3250 54164 TS LOC
058948,001203:
058949,001204: 10,3251 00003 RELINTQ RELINT
058950,001205: 10,3252 00002 TC Q # BACK TO USER
058951,001206:
058952,001207: 10,3253 37741 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
058953,001208: 10,3254 05076 TC FINDVAC
058954,001209: 10,3255 0370 EBANK= NVSAVE
058955,001210: 10,3255 04222 04060 2CADR JAMTERM
058956,001211:
058957,001212: 10,3257 13301 TCF FLASHSUB +1
058958,001213:
058959,001214: 10,3260 30100 ISITPRIO CA FLAGWRD4
058960,001215: 10,3261 73306 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
058961,001216: 10,3262 00006 EXTEND
058962,001217: 10,3263 12607 BZF PRIOBORT
058963,001218: 10,3264 15146 TCF ENDOFJOB
058964,001219:
058965,001220: 10,3265 11041 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
058966,001221: 10,3266 15146 TCF ENDOFJOB # YES
058967,001222: 10,3267 13271 TCF RESTSLEP
058968,001223:
058969,001224: 10,3270 15146 TCF ENDOFJOB
058970,001225:
058971,001226: 10,3271 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
058972,001227: 10,3272 73525 MASK ASTROMSK
058973,001228: 10,3273 03554 TC UPENT2
058974,001229: 10,3274 24100 OCT24100 OCT 24100 # *** DONT MOVE
058975,001230:
058976,001231: 10,3275 50164 INDEX COPINDEX
058977,001232: 10,3276 33515 CAF NVCADR
058978,001233: 10,3277 04433 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
058979,001234:
058980,001235: 10,3300 04420 FLASHSUB TC FLASHON
058981,001236:
058982,001237: 10,3301 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
058983,001238: 10,3302 54157 TS COPMPAC
058984,001239:
058985,001240: 10,3303 30162 CA GENMASK
058986,001241: 10,3304 73022 MASK IDLEMASK
058987,001242:
![]() |
Page 1366 |
058989,001244: 10,3305 03554 TC UPENT2
058990,001245: 10,3306 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
058991,001246:
058992,001247: 10,3307 11041 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
058993,001248: 10,3310 13260 TCF ISITPRIO
058994,001249: 10,3311 13313 TCF +2
058995,001250: 10,3312 13260 TCF ISITPRIO
058996,001251:
058997,001252: 10,3313 04200 TC ENDIDLE
058998,001253: 10,3314 13400 IDLERET1 TCF TERMATE
058999,001254:
059000,001255: 10,3315 13417 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
059001,001256:
059002,001257: 10,3316 43534 CS LOWLOAD
059003,001258: 10,3317 60154 AD MPAC # VERBREG
059004,001259: 10,3320 00006 EXTEND
059005,001260: 10,3321 26000 DIM A
059006,001261: 10,3322 00006 EXTEND
059007,001262: 10,3323 13467 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
059008,001263: 10,3324 34743 OKTOENT CAF TWO
059009,001264: 10,3325 54161 ENDOUT TS OUTHERE
059010,001265:
059011,001266: 10,3326 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
059012,001267: 10,3327 74101 MASK OCT60000
059013,001268: 10,3330 10000 CCS A
059014,001269: 10,3331 13334 TCF TIMECHEK # PRIO ENDIDLE RETURN
059015,001270: 10,3332 13435 TCF NORMRET # NORMAL ENDIDLE RETURN
059016,001271: 10,3333 13421 TCF MARKRET # MARK ENDIDLE RETURN
059017,001272:
059018,001273: 10,3334 40025 TIMECHEK CS TIME1
059019,001274: 10,3335 61164 AD PRIOTIME
059020,001275: 10,3336 10000 CCS A
059021,001276: 10,3337 40000 COM
059022,001277: 10,3340 67752 AD OCT37776
059023,001278: 10,3341 64744 AD ONE
059024,001279: 10,3342 63600 AD -2SEC
059025,001280: 10,3343 00006 EXTEND
059026,001281: 10,3344 62544 BZMF KEEPPRIO
059027,001282:
059028,001283: 10,3345 00004 INHINT
059029,001284: 10,3346 46130 CS OCT40001 # TURN OFF SUPER-KEYRELEASE LIGHT
059030,001285: 10,3347 71035 MASK DSPTAB +11D
059031,001286: 10,3350 64726 AD BIT15
059032,001287: 10,3351 55035 TS DSPTAB +11D
059033,001288:
059034,001289: 10,3352 13435 TCF NORMRET
059035,001290:
059036,001291: 10,3353 34744 NORMWAKE CAF ONE
059037,001292: 10,3354 13036 TCF WAKEPLAY
059038,001293:
![]() |
Page 1367 |
059040,001295: 10,3355 10161 ENDRET CCS OUTHERE
059041,001296: 10,3356 64744 AD ONE
059042,001297: 10,3357 13361 TCF +2 # NORMAL ENDIDLE EXIT
059043,001298: 10,3360 15146 TCF ENDOFJOB
059044,001299: 10,3361 50157 INDEX COPMPAC
059045,001300: 10,3362 60371 AD CADRFLSH
059046,001301: 10,3363 54157 TS MPAC +3
059047,001302:
059048,001303: 10,3364 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
059049,001304: 10,3365 73367 MASK PINIDMSK
059050,001305: 10,3366 03564 TC DOWNENT2
059051,001306: 10,3367 74044 PINIDMSK OCT 74044 # *** DONT MOVE
059052,001307:
059053,001308: 10,3370 46266 CS THREE # BLANK EVERYTHING EXCEPT MM
059054,001309: 10,3371 04145 TC NVSUB
059055,001310: 10,3372 13373 TCF +1
059056,001311:
059057,001312: 10,3373 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
059058,001313: 10,3374 77746 MASK PRIO37
059059,001314: 10,3375 05137 TC PRIOCHNG
059060,001315: 10,3376 30157 CA MPAC +3
059061,001316: 10,3377 14631 TCF BANKJUMP
059062,001317:
059063,001318: 10,3400 34746 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
059064,001319: 10,3401 13325 TCF ENDOUT
059065,001320:
059066,001321: 10,3402 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
059067,001322: 10,3403 74727 MASK BIT14
059068,001323: 10,3404 10000 CCS A
059069,001324: 10,3405 16760 TCF Q+1 # NO
059070,001325: 10,3406 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
059071,001326: 10,3407 50164 INDEX COPINDEX
059072,001327: 10,3410 60371 AD CADRFLSH
059073,001328: 10,3411 00006 EXTEND
059074,001329: 10,3412 13414 BZF +2 # YES
059075,001330:
059076,001331: 10,3413 00002 TC Q # NO
059077,001332: 10,3414 11011 CCS DSPLOCK # IS THE ASTRONAUT BUSY
059078,001333: 10,3415 05146 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
059079,001334: 10,3416 00002 TC Q
059080,001335:
059081,001336: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059082,001337:
059083,001338: 10,3417 34744 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
059084,001339: 10,3420 13325 TCF ENDOUT
059085,001340:
059086,001341: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059087,001342: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059088,001343: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059089,001344:
059090,001345: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059091,001346:
![]() |
Page 1368 |
059093,001348: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059094,001349: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
059095,001350: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059096,001351:
059097,001352: 10,3421 46263 MARKRET CS SIX
059098,001353: 10,3422 70100 MASK FLAGWRD4
059099,001354: 10,3423 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
059100,001355: 10,3424 54100 TS FLAGWRD4
059101,001356:
059102,001357: 10,3425 00003 RELINT # INHINT REALM
059103,001358: 10,3426 13355 TCF ENDRET
059104,001359:
059105,001360: 10,3427 37770 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059106,001361: 10,3430 54161 TS OUTHERE
059107,001362:
059108,001363: 10,3431 30100 CA FLAGWRD4 # IS ENDIDFLG SET
059109,001364: 10,3432 74346 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
059110,001365: 10,3433 10000 CCS A
059111,001366: 10,3434 13073 TCF NORMBNCH
059112,001367:
059113,001368: 10,3435 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
059114,001369: 10,3436 73532 MASK BITS5+11 # OR WAITING
059115,001370: 10,3437 10000 CCS A
059116,001371: 10,3440 13035 TCF MARKWAKE
059117,001372:
059118,001373: 10,3441 30100 CA FLAGWRD4 # NO
059119,001374: 10,3442 73533 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
059120,001375: 10,3443 10000 CCS A
059121,001376: 10,3444 13353 TCF NORMWAKE # YES
059122,001377:
059123,001378: 10,3445 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
059124,001379: 10,3446 74762 MASK OCT50 # OR A GODSPRET
059125,001380: 10,3447 10000 CCS A
059126,001381: 10,3450 13355 TCF ENDRET # YES
059127,001382: 10,3451 30370 CA NVSAVE
059128,001383: 10,3452 00006 EXTEND
059129,001384: 10,3453 13355 BZF ENDRET
059130,001385:
059131,001386: 10,3454 35016 CAF PRIO15
059132,001387: 10,3455 00004 INHINT
059133,001388: 10,3456 05063 TC NOVAC
059134,001389: 10,3457 0366 EBANK= NVWORD
059135,001390: 10,3457 02627 20060 2CADR PLAYJUM1
059136,001391:
059137,001392: 10,3461 13355 TCF ENDRET
059138,001393:
059139,001394: 10,3462 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
059140,001395: 10,3463 73532 MASK BITS5+11
059141,001396: 10,3464 10000 CCS A
059142,001397:
![]() |
Page 1369 |
059144,001399: 10,3465 15146 TCF ENDOFJOB # YES
059145,001400: 10,3466 12766 TCF GOSLEEPS
059146,001401:
059147,001402: 10,3467 50157 LOADITIS INDEX COPMPAC
059148,001403: 10,3470 30366 CA NVWORD
059149,001404: 10,3471 76115 MASK LOW7
059150,001405: 10,3472 40000 COM
059151,001406: 10,3473 60155 AD MPAC +1 # NOUNREG
059152,001407: 10,3474 00006 EXTEND
059153,001408: 10,3475 13324 BZF OKTOENT # NO, THEN LOAD IS VALID
059154,001409: 10,3476 13062 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059155,001410:
059156,001411: 10,3477 46266 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
059157,001412: 10,3500 04145 TC NVSUB
059158,001413: 10,3501 15146 TCF ENDOFJOB
059159,001414: 10,3502 15146 TCF ENDOFJOB
059160,001415:
059161,001416: 10,3503 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
059162,001417: 10,3504 00231 V01N25 VN 00125
059163,001418: 10,3505 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
059164,001419: 10,3506 14400 V50N00 VN 5000
059165,001420: 10,3507 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
059166,001421: 10,3510 01006 V04N06 VN 00406
059167,001422: 10,3511 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
059168,001423: 10,3512 10,3062 GOAGIN EQUALS PINBRNCH
059169,001424: 10,3512 20010 REDOMASK OCT 20010 # BITS 4 AND 14
059170,001425: 10,3513 40230 MARK3MSK OCT 40230 # MARK,DECIMAL NOUN, PERFORM,FLASH
059171,001426: 10,3514 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
059172,001427: 10,3515 20542 NVCADR CADR REDOPRIO
059173,001428: 10,3516 20372 WAKECADR CADR MARKPLAY
059174,001429: 10,3517 20627 CADR PLAYJUM1
059175,001430:
059176,001431: 10,3520 03400 OCT3400 OCT 3400 # EBANK MASK
059177,001432: 10,3521 11210 NBUSMASK OCT 11210
059178,001433: 10,3522 66521 PMMASK OCT 66521
059179,001434: 10,3523 4144 VERBMASK = MID7 # (OCT 37600)
059180,001435: 10,3523 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
059181,001436: 10,3524 10,2317 GOXDSP EQUALS GOMARK
059182,001437: 10,3524 10,2342 GOXDSPR EQUALS GOMARKR
059183,001438: 10,3524 10,2323 GOXDSPF EQUALS GOMARKF
059184,001439: 10,3524 10,2345 GOXDSPFR EQUALS GOMARKFR
059185,001440: 10,3524 5474 ENDEXT EQUALS ENDMARK
059186,001441: 10,3524 0165 MPAC2SAV EQUALS BANKSET
059187,001442: 10,3524 00700 NVBUSMSK OCT 700
059188,001443: 10,3525 00704 ASTROMSK OCT 704
059189,001444: 10,3526 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
059190,001445: 10,3527 34300 OCT34300 OCT 34300
059191,001446: 10,3530 40100 BITS15+7 OCT 40100
059192,001447: 10,3531 00110 BITS7+4 OCT 110
059193,001448: 10,3532 02020 BITS5+11 OCT 2020 # * DONT MOVE
059194,001449:
![]() |
Page 1370 |
059196,001451: 10,3533 01010 BITS4+10 OCT 1010 # * DONT MOVE
059197,001452: 10,3534 00026 LOWLOAD DEC 22 B-14
059198,001453: 10,3535 77730 BUSYMASK OCT 77730
059199,001454: 10,3536 00050 CADRMASK OCT 50
059200,001455: 10,3537 7761 PINMASK EQUALS 13,14,15
059201,001456: 10,3537 10,3102 GOPLAY EQUALS NVDSP
059202,001457: # PRIOSAVE EQUALS R1SAVE
059203,001458: 10,3537 0157 COPMPAC EQUALS MPAC +3
059204,001459: 10,3537 0160 TEMPOR2 EQUALS MPAC +4
059205,001460: 10,3537 0161 OUTHERE EQUALS MPAC +5
059206,001461: 10,3537 0164 COPINDEX EQUALS LOC
059207,001462: 10,3537 0163 USERPRIO EQUALS MODE
059208,001463: 10,3537 0162 GENMASK EQUALS MPAC +6
059209,001464: 10,3537 20144 PRIOOCT OCT 20144 # PRIO
059210,001465: 10,3540 42424 MARKOCT OCT 42424 # MARK
059211,001466: 10,3541 11254 OCT 11254 # NORM
059212,001467:
059213,001468: 10,3542 74704 IDLESLEP OCT 74704
059214,001469: 10,3543 67777 OCT67777 OCT 67777
059215,001470: 10,3544 5466 LINUS EQUALS BLANKET
059216,001471: 10,3544 0154 FACEREG EQUALS MPAC
059217,001472: 10,3544 0155 PLAYTEM1 EQUALS MPAC +1
059218,001473: 10,3544 0157 PLAYTEM3 EQUALS MPAC +3
059219,001474: 10,3544 0160 PLAYTEM4 EQUALS MPAC +4
059220,001475: 10,3544 40420 OCT40420 OCT 40420
059221,001476: 10,3545 02560 MAKEGEN GENADR MAKEPLAY
059222,001477: 10,3546 10200 OCT10200 OCT 10200
059223,001478: 10,3547 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
059224,001479: 10,3550 20100 OCT20100 OCT 20100
059225,001480: 10,3551 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
059226,001481: 10,3552 02600 OCT2600 OCT 02600
059227,001482: 10,3553 00310 PRIMNMSK OCT 00310 # MONITOR PASTE, PRIO, FLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc