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