Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
060545,000002: ## Copyright: Public domain.
060546,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
060547,000004: ## Purpose: A section of Comanche revision 072.
060548,000005: ## It is part of the reconstructed source code for the first
060549,000006: ## release of the software for the Command Module's (CM) Apollo
060550,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
060551,000008: ## of this program are available; instead, this file was recreated
060552,000009: ## from a printout of Comanche 055, binary dumps of a set of
060553,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
060554,000011: ## and 072. It has been adapted such that the resulting bugger words
060555,000012: ## exactly match those specified for Comanche 072 in NASA drawing
060556,000013: ## 2021153G, which gives relatively high confidence that the
060557,000014: ## reconstruction is correct.
060558,000015: ## Assembler: yaYUL
060559,000016: ## Contact: Ron Burkey <info@sandroid.org>.
060560,000017: ## Website: www.ibiblio.org/apollo/index.html
060561,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
060562,000019:
060563,000020: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
060564,000021: # 1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
060565,000022: # OUT UNDER CRITICAL ALARM CONDITIONS.
060566,000023: # 2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
060567,000024: # 3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
060568,000025: # SEQUENCE OF EVENTS.
060569,000026: # 4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
060570,000027: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
060571,000028: # 5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
060572,000029:
060573,000030: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
060574,000031: # 1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
060575,000032: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
060576,000033: # BUT NOT WAITING FOR A RESPONSE.
060577,000034: # 2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
060578,000035: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
060579,000036: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
060580,000037: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
060581,000038: # HAS INFO SAVED FOR RESTART PURPOSES.
060582,000039:
060583,000040: # DISPLAY PRIORITIES WORK AS FOLLOWS-
060584,000041: # INTERRUPTS -
060585,000042: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
060586,000043: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
060587,000044: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
060588,000045: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
060589,000046: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
060590,000047: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
060591,000048:
060592,000049: # ORDER OF WAITING DISPLAYS-
060593,000050: # 1. ASTRONAUT EXTERNAL USE
060594,000051: # 2. PRIORITY
060595,000052: # 3. INTERRUPTED MARK
060596,000053: # 4. INTERRUPTED NORMAL
060597,000054: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
060598,000055: # 6. MARK WAITING
060599,000056: # 7. NORMAL WAITING
060600,000057:
060601,000058: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
060602,000059: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
060603,000060: # WILL FOLLOW LATER):
060604,000061: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
060605,000062: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
060606,000063: # IS TO THE USERS CALLING LOC +1.
060607,000064: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
060608,000065: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
060609,000066: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
060610,000067: # USERS JOB.
060611,000068: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
060612,000069: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
060613,000070: # DESCRIPTION OF RESTARTS).
060614,000071: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
060615,000072: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
060616,000073: # (V32) BRANCHES TO THE USERS CALL CADR +3.
060617,000074: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
060618,000075:
060619,000076: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
060620,000077:
060621,000078: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
060622,000079: # 1. GODSP IS NOT RESTARTABLE
060623,000080: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
060624,000081: # CAF VXXNYY
060625,000082: # TC BANKCALL
060626,000083: # CADR GODSP
060627,000084: # VXXNYY OCT 0XXYY
060628,000085:
060629,000086: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
060630,000087: # CAF VXXNYY
060631,000088: # TC BANKCALL
060632,000089: # CADR GODSPR
060633,000090: # ... ... IMMEDIATE RETURN OF GODSPR
060634,000091:
060635,000092: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
060636,000093: # THE ASTRONAUT (SEE NO. 7 ABOVE).
060637,000094: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
060638,000095: # TC BANKCALL
060639,000096: # CADR GOFLASH
060640,000097: # ... ... TERMINATE RETURN
060641,000098: # ... ... PROCEED RETURN
060642,000099: # ... ... ENTER OR RECYCLE RETURN
060643,000100:
060644,000101: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
060645,000102: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
060646,000103: # USER (SEE NO. 7 ABOVE).
060647,000104: # GOPERF1 BLANKS REGISTERS R2 AND R3
060648,000105: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
060649,000106: # TC BANKCALL
060650,000107: # CADR GOPERF1
060651,000108: # ... ... TERMINATE RETURN
060652,000109: # ... ... PROCEED RETURN
060653,000110: # ... ... ENTER RETURN
060654,000111: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
060655,000112: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
060656,000113: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
060657,000114: # GOPERF2 DOES NOT BLANK ANY REGISTERS
060658,000115: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
060659,000116: # TC BANKCALL
060660,000117: # CADR GOPERF2
060661,000118: # ... ... TERMINATE RETURN
060662,000119: # ... ... PROCEED RETURN
060663,000120: # ... ... ENTER RETURN
060664,000121: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
060665,000122: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
060666,000123: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
060667,000124: # GOPERF3 BLANKS REGISTERS R2 AND R3
060668,000125: # CAF DECXX REQUEST PERFORM ON PXX
060669,000126: # TC BANKCALL
060670,000127: # CADR GOPERF3
060671,000128: # ... ... TERMINATE RETURN
060672,000129: # ... ... PROCEED RETURN
060673,000130: # ... ... ENTER RETURN
060674,000131:
060675,000132: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
060676,000133: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
060677,000134: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
060678,000135: # CAF OCTXX REQUEST PERFORM ON OPTION XX
060679,000136: # TC BANKCALL
060680,000137: # CADR GOPERF4
060681,000138: # ... ... TERMINATE RETURN
060682,000139: # ... ... PROCEED RETURN
060683,000140: # ... ... ENTER RETURN
060684,000141: # GOPERF4 BLANKS REGISTER R3
060685,000142:
060686,000143: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
060687,000144: # OUT.
060688,000145: # CAF VXXNYY
060689,000146: # TC BANKCALL
060690,000147: # CADR GODSPRET
060691,000148: # ... ... RETURN TO USER
060692,000149:
060693,000150: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
060694,000151: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
060695,000152: # CAF VXXNYY
060696,000153: # TC BANKCALL
060697,000154: # CADR REGODSP
060698,000155:
060699,000156: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
060700,000157: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
060701,000158: # TC BANKCALL
060702,000159: # CADR REFLASH
060703,000160: # ... ... TERMINATE RETURN
060704,000161: # ... ... PROCEED RETURN
060705,000162: # ... ... ENTER RETURN
060706,000163:
060707,000164: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060708,000165: # CAF VXXNYY
060709,000166: # TC BANKCALL
060710,000167: # CADR GOFLASHR
060711,000168: # ... ... TERMINATE RETURN
060712,000169: # ... ... PROCEED RETURN
060713,000170: # ... ... ENTER OR RECYCLE RETURN
060714,000171: # ... ... IMMEDIATE RETURN FROM GOFLASHR
060715,000172:
060716,000173: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
060717,000174: # GOPERF1R BLANKS REGISTERS R2 AND R3
060718,000175: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
060719,000176: # TC BANKCALL
060720,000177: # CADR GOPERF1R
060721,000178: # ... ... TERMINATE RETURN
060722,000179: # ... ... PROCEED RETURN
060723,000180: # ... ... ENTER RETURN
060724,000181: # ... ... IMMEDIATE RETURN FROM GOPERF1R
060725,000182:
060726,000183: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060727,000184: # GOPERF2R DOES NOT BLANK ANY REGISTERS
060728,000185: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
060729,000186: # TC BANKCALL
060730,000187: # CADR GOPERF2R
060731,000188: # ... ... TERMINATE RETURN
060732,000189: # ... ... PROCEED RETURN
060733,000190: # ... ... ENTER RETURN
060734,000191: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
060735,000192:
060736,000193: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060737,000194: # GOPERF3R BLANKS REGISTERS R2 AND R3
060738,000195: # CAF PROGXX PERFORM PROGRAM XX
060739,000196: # TC BANKCALL
060740,000197: # CADR GOPERF3R
060741,000198: # ... ... TERMINATE RETURN
060742,000199: # ... ... PROCEED RETURN
060743,000200: # ... ... ENTER RETURN
060744,000201: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
060745,000202:
060746,000203: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060747,000204: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
060748,000205: # TC BANKCALL
060749,000206: # CADR GOPERF4R
060750,000207: # ... ... TERMINATE RETURN
060751,000208: # ... ... PROCEED RETURN
060752,000209: # ... ... ENTER RETURN
060753,000210: # ... ... IMMEDIATE RETURN TO USER
060754,000211: # GOPERF4R BLANKS REGISTER R3
060755,000212:
060756,000213: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060757,000214: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
060758,000215: # TC BANKCALL
060759,000216: # CADR REFLASHR
060760,000217: # ... ... TERMINATE RETURN
060761,000218: # ... ... PROCEED RETURN
060762,000219: # ... ... ENTER RETURN
060763,000220: # ... ... IMMEDIATE RETURN TO USER
060764,000221:
060765,000222: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
060766,000223: # CAF VXXNYY
060767,000224: # TC BANKCALL
060768,000225: # CADR REGODSPR
060769,000226: # ... ... IMMEDIATE RETURN TO USER
060770,000227:
060771,000228: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
060772,000229: # GOXDSP = GOMARK
060773,000230: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
060774,000231: # TC BANKCALL
060775,000232: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
060776,000233:
060777,000234: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
060778,000235: # GOXDSPR = GOMARKR
060779,000236: # CAF VXXNYY
060780,000237: # TC BANKCALL
060781,000238: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
060782,000239:
060783,000240: # ... ... IMMEDIATE RETURN OF GOMARKR
060784,000241:
060785,000242: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
060786,000243: # THE ASTRONAUT (SEE NO. 7 ABOVE).
060787,000244:
060788,000245: # GOXDSPF = GOMARKF
060789,000246:
060790,000247: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
060791,000248: # TC BANKCALL
060792,000249: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
060793,000250: # ... ... TERMINATE RETURN
060794,000251: # ... ... PROCEED RETURN
060795,000252: # ... ... ENTER OR RECYCLE RETURN
060796,000253:
060797,000254: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
060798,000255: # GOXDSPFR = GOMARKFR
060799,000256: # CAF VXXNYY FLASHING MARK VERB NOUN
060800,000257: # TC BANKCALL
060801,000258: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
060802,000259: # ... ... TERMINATE RETURN
060803,000260: # ... ... PROCEED RETURN
060804,000261: # ... ... ENTER OR RECYCLE RETURN
060805,000262: #
060806,000263: # ... ... IMMEDIATE RETURN TO THE USER
060807,000264:
060808,000265: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
060809,000266: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
060810,000267: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
060811,000268: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
060812,000269:
060813,000270: # CAF V5XNYY X=1,2,3,4 Y=NOUN
060814,000271: # TC BANKCALL
060815,000272: # CADR GOMARK1
060816,000273: # ... ... ENTER RETURN
060817,000274:
060818,000275: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
060819,000276:
060820,000277: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
060821,000278: # CAF V5XNYY X=1,2,3,4 YY=NOUN
060822,000279: # TC BANKCALL
060823,000280: # CADR GOMARK1R
060824,000281: # ... ... ASTRONAUT ENTER RETURN
060825,000282: # ... ... IMMEDIATE RETURN TO USER
060826,000283:
060827,000284: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
060828,000285: # CAF V5XNYY X=1,2,3,4 YY=NOUN
060829,000286: # TC BANKCALL
060830,000287: # CADR GOMARK2
060831,000288: # ... ... TERMINATE RETURN
060832,000289: # ... ... PROCEED RETURN
060833,000290: # ... ... ENTER RETURN
060834,000291:
060835,000292: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
060836,000293: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
060837,000294: # TC BANKCALL
060838,000295: # CADR GOMARK2R
060839,000296: # ... ... TERMINATE RETURN
060840,000297: # ... ... PROCEED RETURN
060841,000298: # ... ... ENTER RETURN
060842,000299: # ... ... IMMEDIATE RETURN TO THE USER
060843,000300:
060844,000301: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
060845,000302: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
060846,000303: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
060847,000304: # CAF V5XNYY X=1,2,3,4 YY=NOUN
060848,000305: # TC BANKCALL
060849,000306: # CADR GOMARK3
060850,000307: # ... ... TERMINATE RETURN
060851,000308: # ... ... PROCEED RETURN
060852,000309: # ... ... ENTER RETURN
060853,000310:
060854,000311: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
060855,000312: # CAF V5XNYY X=1,2,3,4 YY=NOUN
060856,000313: # TC BANKCALL
060857,000314: # CADR GOMARK4
060858,000315: # ... ... TERMINATE RETURN
060859,000316: # ... ... PROCEED RETURN
060860,000317: # ... ... ENTER RETURN
060861,000318: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
060862,000319: # SENT OUT.
060863,000320: # CAF VXXNYY
060864,000321: # TC BANKCALL
060865,000322: # CADR EXDSPRET
060866,000323: # ... ... RETURN TO USER
060867,000324:
060868,000325: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
060869,000326: # HAVE BEEN CLEANED OUT.
060870,000327: # TC BANKCALL
060871,000328: # CADR KLEENEX
060872,000329: # ... ... RETURN TO USER
060873,000330:
060874,000331: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
060875,000332: # TC BANKCALL
060876,000333: # CADR MARKBRAN
060877,000334: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
060878,000335: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
060879,000336: # LAST FLASHING MARK R ROUTINE)
060880,000337:
060881,000338: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
060882,000339: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
060883,000340: # TC POSTJUMP
060884,000341: # CADR PINBRNCH
060885,000342:
060886,000343: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
060887,000344: # THE ASTRONAUT (SEE NO. 7 ABOVE).
060888,000345:
060889,000346: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
060890,000347: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
060891,000348: # IS RESPONDED TO BY THE ASTRONAUT.
060892,000349:
060893,000350: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
060894,000351: # PRIO DISPLAY.
060895,000352: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
060896,000353: # TC BANKCALL
060897,000354: # CADR PRIODSP
060898,000355: # ... ... TERMINATE RETURN
060899,000356: # ... ... PROCEED RETURN
060900,000357: # ... ... ENTER OR RECYCLE RETURN
060901,000358:
060902,000359: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060903,000360: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
060904,000361: # TC BANKCALL
060905,000362: # CADR PRIODSPR
060906,000363: # ... ... TERMINATE RETURN
060907,000364: # ... ... PROCEED RETURN
060908,000365: # ... ... ENTER OR RECYCLE RETURN
060909,000366: # ... ... IMMEDIATE RETURN
060910,000367:
060911,000368: # PRIOLARM DOES A V05N09 PRIODSPR.
060912,000369:
060913,000370: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
060914,000371: # DISPLAYS ARE CLEANED OUT.
060915,000372: # TC BANKCALL
060916,000373: # CADR CLEANDSP
060917,000374: # ... ... RETURN TO USER
060918,000375:
060919,000376: # GENERAL INFORMATION
060920,000377: # ------- -----------
060921,000378:
060922,000379: # ALARM OR ABORT EXIT MODES--
060923,000380: # PRIOBORT TC ABORT
060924,000381: # OCT 1502
060925,000382:
060926,000383: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
060927,000384: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
060928,000385: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
060929,000386:
060930,000387: # ERASABLE INITIALIZATION REQUIRED--
060931,000388: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
060932,000389: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
060933,000390: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
060934,000391: # 5. R1SAVE = MARKBRAN CONTROL WORD
060935,000392: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
060936,000393:
060937,000394: # OUTPUT--
060938,000395: # NVWORD = PRIO VERB AND NOUN
060939,000396: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
060940,000397: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
060941,000398:
060942,000399: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
060943,000400: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
060944,000401: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
060945,000402:
060946,000403: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
060947,000404: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
060948,000405: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
060949,000406:
060950,000407: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
060951,000408: # OPTION1 = DESIRED OPTION FROM GOPERF4
060952,000409: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
060953,000410: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
060954,000411:
060955,000412: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
060956,000413: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
060957,000414:
060958,000415: # DEBRIS-- (STORED INTO)
060959,000416: # TEMPORARY TEMPORARIES - A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
060960,000417: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
060961,000418: # ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
060962,000419: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
060963,000420: # R1SAVE, MARK2PAC,
060964,000421:
060965,000422: # DEBRIS-- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
060966,000423:
060967,000424: # FLAGWORD DESCRIPTIONS--
060968,000425: # FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
060969,000426:
060970,000427: # DSPFLG, DSPFLG+1, DSPFLG +2-
060971,000428: # ----------------------------
060972,000429: # BITS 1 BLANK R1
060973,000430: # 2 BLANK R2
060974,000431: # 3 BLANK R3
060975,000432: # 4 FLASHING DISPLAY REQUESTED
060976,000433: # 5 PERFORM DISPLAY REQUESTED
060977,000434: # 6 ----- EXDSPRET GODSPRET
060978,000435: # 7 PRIO DISPLAY ----- -----
060979,000436: # 8 ----- DEC MARK PERFORM -----
060980,000437: # 9 EBANK
060981,000438: # 10 EBANK
060982,000439: # 11 EBANK
060983,000440: # 12 ----- ----- V99PASTE
060984,000441: # 13 2ND PART OF PERFORM
060985,000442: # 15 REFLASH OR REDO ----- REFLASH OR REDO
060986,000443: # 15 ----- MARK REQUEST -----
060987,000444:
060988,000445: # RESTARTING DISPLAYS--
060989,000446:
060990,000447: # RULES FOR THE DSKY OPERATOR --
060991,000448: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
060992,000449: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
060993,000450: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
060994,000451: # WITH PROCEED AND TERMINATE FOR THIS REASON.
060995,000452: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
060996,000453: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
060997,000454: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
060998,000455: # IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
060999,000456: # OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
061000,000457: # CONSIDERATION.
061001,000458: # 3. KEY RELEASE BUTTON -
061002,000459: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
061003,000460: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
061004,000461: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
061005,000462: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
061006,000463: # KEY RELEASE BUTTON MAY BE NECESSARY.
061007,000464: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
061008,000465: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
061009,000466: # OVER AGAIN.
061010,000467:
061011,000468: # SPECIAL CONSIDERATIONS--
061012,000469: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
061013,000470: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
061014,000471: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
061015,000472: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
061016,000473: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
061017,000474: # BY A .1 RESTART PHASE CHANGE.
061018,000475: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
061019,000476: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
061020,000477: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
061021,000478:
061022,000479: # CALLING SEQUENCE FOR BLANKING
061023,000480: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
061024,000481: # TC BLANKET
061025,000482: # ... ... RETURN TO USER HERE
061026,000483: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
061027,000484: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
061028,000485: 5542 BLOCK 02
061029,000486: 4000 SETLOC FFTAG4
061030,000487: 4000 BANK
061031,000488:
061032,000489: 5542 COUNT 02/DSPLA
061033,000490:
061034,000491: 5542 54162 BLANKET TS MPAC +6
061035,000492: 5543 40160 CS PLAYTEM4
061036,000493: 5544 70162 MASK MPAC +6
061037,000494: 5545 50161 INDEX MPAC +5
061038,000495: 5546 26160 ADS PLAYTEM4
061039,000496:
061040,000497: 5547 00002 TC Q
061041,000498:
061042,000499: 5550 04715 ENDMARK TC POSTJUMP
061043,000500: 5551 20553 CADR MARKEND
061044,000501:
061045,000502: 5552 35035 CLEARMRK CAF ZERO
061046,000503: 5553 55044 TS EXTVBACT
061047,000504:
061048,000505: 5554 00004 INHINT
061049,000506: 5555 45033 CS BIT1
061050,000507: 5556 70100 MASK FLAGWRD4
061051,000508: 5557 54100 TS FLAGWRD4
061052,000509:
061053,000510: 5560 00003 RELINT
061054,000511: 5561 00002 TC Q
061055,000512:
061056,000513: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
061057,000514: # FINISHED.
061058,000515:
061059,000516: 10,2553 BANK 10
061060,000517: 10,2000 SETLOC DISPLAYS
061061,000518: 10,2000 BANK
061062,000519:
061063,000520: 10,2553 COUNT 10/DSPLA
061064,000521:
061065,000522: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
061066,000523: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
061067,000524:
061068,000525: 10,2553 05552 MARKEND TC CLEARMRK
061069,000526: 10,2554 13643 TCF MARKOVER
061070,000527:
061071,000528: 10,2555 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
061072,000529:
061073,000530: 10,2556 35015 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
061074,000531: 10,2557 12722 TCF GOFLASH2
061075,000532:
061076,000533: 10,2560 35035 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
061077,000534: 10,2561 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
061078,000535:
061079,000536: 10,2562 33253 CAF MARKFMSK # MARK, FLASH
061080,000537: 10,2563 12722 TCF GOFLASH2
061081,000538:
061082,000539: 10,2564 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
061083,000540: 10,2565 33742 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
061084,000541: 10,2566 12722 TCF GOFLASH2
061085,000542:
061086,000543: 10,2567 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
061087,000544: 10,2570 33727 CAF MARK3MSK
061088,000545: 10,2571 12722 TCF GOFLASH2
061089,000546:
061090,000547: 10,2572 54155 GOMARK4 TS PLAYTEM1
061091,000548: 10,2573 33730 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
061092,000549: 10,2574 12722 TCF GOFLASH2
061093,000550:
061094,000551: 10,2575 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
061095,000552:
061096,000553: 10,2576 35015 CAF BIT15
061097,000554: 10,2577 12700 TCF GODSPR2
061098,000555:
061099,000556: 10,2600 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
061100,000557:
061101,000558: 10,2601 33253 CAF MARKFMSK
061102,000559: 10,2602 13061 TCF GODSPRS
061103,000560:
061104,000561: 10,2603 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
061105,000562: 10,2604 33742 CAF MPERFMSK # MARK, PERFORM, FLASH
061106,000563: 10,2605 13061 TCF GODSPRS
061107,000564:
061108,000565: 10,2606 54155 GOMARK3R TS PLAYTEM1
061109,000566: 10,2607 33727 CAF MARK3MSK
061110,000567: 10,2610 13061 TCF GODSPRS
061111,000568:
061112,000569: 10,2611 35033 MAKEMARK CAF ONE
061113,000570: 10,2612 03157 TC COPIES
061114,000571:
061115,000572: 10,2613 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
061116,000573: 10,2614 73743 MASK OCT34300
061117,000574: 10,2615 10000 CCS A
061118,000575: 10,2616 12654 TCF CHKPRIO
061119,000576:
061120,000577: 10,2617 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
061121,000578: 10,2620 75023 MASK BIT9
061122,000579:
061123,000580: 10,2621 00006 EXTEND
061124,000581: 10,2622 12624 BZF MARKPLAY # NO
061125,000582:
061126,000583: 10,2623 15233 TCF ENDOFJOB
061127,000584:
061128,000585: 10,2624 00004 MARKPLAY INHINT
061129,000586: 10,2625 45036 CS FIVE # RESET MARK OVER NORM, SET MARK
061130,000587: 10,2626 70100 MASK FLAGWRD4
061131,000588: 10,2627 65033 AD ONE
061132,000589: 10,2630 54100 TS FLAGWRD4
061133,000590: 10,2631 00003 RELINT
061134,000591:
061135,000592: 10,2632 41070 GOGOMARK CS MARKFLAG # PERFORM
061136,000593: 10,2633 75027 MASK BIT5
061137,000594: 10,2634 10000 CCS A
061138,000595: 10,2635 12640 TCF MARKCOP
061139,000596: 10,2636 40367 CS MARKNV
061140,000597: 10,2637 54367 TS MARKNV
061141,000598:
061142,000599: 10,2640 35033 MARKCOP CAF ONE # MARK INDEX
061143,000600: 10,2641 13040 TCF PRIOPLAY
061144,000601:
061145,000602: 10,2642 30165 COPYTOGO CA MPAC2SAV
061146,000603: 10,2643 54156 TS MPAC +2
061147,000604:
061148,000605: 10,2644 50164 COPYPACS INDEX COPINDEX
061149,000606: 10,2645 33753 CAF PRIOOCT
061150,000607: 10,2646 54162 TS GENMASK
061151,000608:
061152,000609: 10,2647 50164 INDEX COPINDEX
061153,000610: 10,2650 31067 CA EBANKSAV
061154,000611: 10,2651 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
061155,000612:
061156,000613: 10,2652 54003 TS EBANK
061157,000614:
061158,000615: 10,2653 00002 TC Q
061159,000616:
061160,000617: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
061161,000618: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
061162,000619: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
061163,000620: # UNTIL ALL MARKING IS FINISHED.
061164,000621:
061165,000622: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
061166,000623: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
061167,000624:
061168,000625: 10,2654 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
061169,000626: 10,2655 73476 MASK OCT24100
061170,000627: 10,2656 10000 CCS A
061171,000628: 10,2657 13676 TCF MARSLEEP
061172,000629:
061173,000630: 10,2660 40100 CS FLAGWRD4
061174,000631: 10,2661 75031 MASK BIT3 # SET MARK OVER NORM
061175,000632: 10,2662 00004 INHINT
061176,000633: 10,2663 26100 ADS FLAGWRD4
061177,000634:
061178,000635: 10,2664 12756 TCF SETNORM
061179,000636:
061180,000637: 10,2665 30367 MARKPERF CA MARKNV
061181,000638: 10,2666 74160 MASK VERBMASK
061182,000639: 10,2667 13342 TCF NV50DSP
061183,000640:
061184,000641: 10,2670 54155 GODSP TS PLAYTEM1
061185,000642:
061186,000643: 10,2671 35035 GODSP2 CAF ZERO
061187,000644: 10,2672 12722 TCF GOFLASH2
061188,000645:
061189,000646: 10,2673 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
061190,000647:
061191,000648: 10,2674 35026 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
061192,000649: 10,2675 12722 TCF GOFLASH2
061193,000650:
061194,000651: 10,2676 54155 GODSPR TS PLAYTEM1
061195,000652:
061196,000653: 10,2677 35035 GODSPR1 CAF ZERO
061197,000654: 10,2700 54160 GODSPR2 TS PLAYTEM4
061198,000655:
061199,000656: 10,2701 35035 CAF ZERO # * DONT MOVE
061200,000657: 10,2702 13063 TCF GODSPRS1
061201,000658:
061202,000659: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
061203,000660: # SET UP TO BE STARTED OR RESTARTED.
061204,000661:
061205,000662: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
061206,000663: # OLD DISPLAY.
061207,000664:
061208,000665: # CALLING SEQUENCE FOR CLEANDSP -
061209,000666:
061210,000667: # TC BANKCALL
061211,000668: # CADR CLEANDSP
061212,000669:
061213,000670: 10,2703 35035 CLEANDSP CAF ZERO
061214,000671: 10,2704 54155 REFLASH TS PLAYTEM1
061215,000672:
061216,000673: 10,2705 33726 CAF REDOMASK # FLASH AND PERMIT
061217,000674: 10,2706 12722 TCF GOFLASH2
061218,000675:
061219,000676: 10,2707 54155 REGODSP TS PLAYTEM1
061220,000677:
061221,000678: 10,2710 35016 CAF BIT14
061222,000679: 10,2711 12722 TCF GOFLASH2
061223,000680:
061224,000681:
061225,000682: 10,2712 54155 REGODSPR TS PLAYTEM1
061226,000683: 10,2713 35016 CAF BIT14
061227,000684: 10,2714 12700 TCF GODSPR2
061228,000685:
061229,000686: 10,2715 54155 CLOCPLAY TS PLAYTEM1
061230,000687: 10,2716 33765 CAF CLOCKCON
061231,000688: 10,2717 12722 TCF GOFLASH2
061232,000689: 10,2720 54155 GOFLASH TS PLAYTEM1
061233,000690:
061234,000691: 10,2721 35030 CAF BIT4 # LEAVE ONLY FLASH BIT SET
061235,000692: 10,2722 54160 GOFLASH2 TS PLAYTEM4
061236,000693:
061237,000694: 10,2723 03144 TC SAVELOCS
061238,000695:
061239,000696: 10,2724 00003 RELINT
061240,000697:
061241,000698: 10,2725 12770 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
061242,000699:
061243,000700: 10,2726 54155 PRIODSPR TS PLAYTEM1
061244,000701:
061245,000702: 10,2727 33745 CAF BITS7+4
061246,000703: 10,2730 13061 TCF GODSPRS
061247,000704:
061248,000705: 10,2731 54155 PRIODSP TS PLAYTEM1
061249,000706:
061250,000707: 10,2732 33745 SETPRIO CAF BITS7+4
061251,000708: 10,2733 12722 TCF GOFLASH2
061252,000709:
061253,000710: 10,2734 35035 MAKEPRIO CAF ZERO
061254,000711: 10,2735 54164 TS COPINDEX
061255,000712:
061256,000713: 10,2736 03616 TC LINUSCHR
061257,000714: 10,2737 12744 TCF HIPRIO # LINUS RETURN
061258,000715: 10,2740 30100 CA FLAGWRD4
061259,000716: 10,2741 73764 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
061260,000717: 10,2742 10000 CCS A
061261,000718: 10,2743 13017 TCF PRIOBORT # YES, ABORT
061262,000719:
061263,000720: 10,2744 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
061264,000721: 10,2745 77765 MASK OCT40400
061265,000722: 10,2746 00006 EXTEND
061266,000723: 10,2747 12752 BZF ASKIFNRM # NO
061267,000724:
061268,000725: 10,2750 35035 SETMARK CAF ZERO
061269,000726: 10,2751 13216 TCF JOBXCHS
061270,000727:
061271,000728: 10,2752 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
061272,000729: 10,2753 73762 MASK OCT10200 # BITS 13+8
061273,000730: 10,2754 00006 EXTEND
061274,000731: 10,2755 12760 BZF OKTOCOPY # NO
061275,000732:
061276,000733: 10,2756 35033 SETNORM CAF ONE
061277,000734: 10,2757 13216 TCF JOBXCHS
061278,000735:
061279,000736: 10,2760 03156 OKTOCOPY TC COPYNORM
061280,000737: 10,2761 03427 TC WITCHONE
061281,000738:
061282,000739: 10,2762 05215 TC JOBWAKE
061283,000740:
061284,000741: 10,2763 03444 TC XCHTOEND
061285,000742:
061286,000743: 10,2764 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
061287,000744: 10,2765 55147 TS PRIOTIME
061288,000745:
061289,000746: 10,2766 35035 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
061290,000747: 10,2767 13040 TCF PRIOPLAY
061291,000748:
061292,000749: 10,2770 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
061293,000750: 10,2771 77674 MASK PRIO37
061294,000751: 10,2772 54163 TS USERPRIO
061295,000752:
061296,000753: 10,2773 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
061297,000754: 10,2774 05224 TC PRIOCHNG
061298,000755:
061299,000756: 10,2775 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
061300,000757: 10,2776 73744 MASK BITS15+7
061301,000758: 10,2777 10000 CCS A
061302,000759: 10,3000 12734 TCF MAKEPRIO # ITS PRIO
061303,000760: 10,3001 13003 TCF IFLEGAL
061304,000761: 10,3002 12611 TCF MAKEMARK # ITS MARK
061305,000762:
061306,000763: 10,3003 35032 IFLEGAL CAF TWO
061307,000764: 10,3004 54164 TS COPINDEX
061308,000765:
061309,000766: 10,3005 03616 TC LINUSCHR
061310,000767:
061311,000768: 10,3006 13021 TCF OKTOPLAY # LINUS RETURN
061312,000769: 10,3007 41071 CS EBANKTEM
061313,000770: 10,3010 75030 MASK BIT4
061314,000771: 10,3011 10000 CCS A
061315,000772: 10,3012 13021 TCF OKTOPLAY # NO
061316,000773:
061317,000774: 10,3013 30100 CA FLAGWRD4 # WAS NORM ASLEEP
061318,000775: 10,3014 73735 MASK NBUSMASK # ARE ANY NORMS ASLEEP
061319,000776: 10,3015 00006 EXTEND
061320,000777: 10,3016 13021 BZF OKTOPLAY # NO
061321,000778:
061322,000779: 10,3017 05725 PRIOBORT TC POODOO
061323,000780: 10,3020 21502 OCT 21502 # ILLEGAL FLASHING DISPLAY
061324,000781:
061325,000782: 10,3021 03160 OKTOPLAY TC COPIES2
061326,000783:
061327,000784: 10,3022 30163 CA USERPRIO
061328,000785: 10,3023 00006 EXTEND
061329,000786: 10,3024 04007 ROR SUPERBNK
061330,000787: 10,3025 54365 TS RESTREG
061331,000788:
061332,000789: 10,3026 30100 CA FLAGWRD4 # PRIO OR MARK GOING
061333,000790: 10,3027 73736 MASK PMMASK
061334,000791: 10,3030 10000 CCS A
061335,000792: 10,3031 13176 TCF GOSLEEPS # YES
061336,000793:
061337,000794: 10,3032 13034 TCF +2
061338,000795: 10,3033 13176 TCF GOSLEEPS # MARK GOING
061339,000796:
061340,000797: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
061341,000798:
061342,000799: 10,3034 03427 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
061343,000800: 10,3035 05215 TC JOBWAKE
061344,000801:
061345,000802: 10,3036 03444 TC XCHTOEND
061346,000803:
061347,000804: 10,3037 35032 PLAYJUM1 CAF TWO
061348,000805: 10,3040 54164 PRIOPLAY TS COPINDEX
061349,000806:
061350,000807: 10,3041 13312 TCF GOPLAY
061351,000808:
061352,000809: 10,3042 54155 EXDSPRET TS PLAYTEM1
061353,000810:
061354,000811: 10,3043 37703 CAF BIT15+6
061355,000812: 10,3044 12722 TCF GOFLASH2
061356,000813:
061357,000814: 10,3045 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
061358,000815: 10,3046 33720 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
061359,000816:
061360,000817: 10,3047 54155 GOPERFS TS PLAYTEM1
061361,000818:
061362,000819: 10,3050 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
061363,000820: 10,3051 12722 TCF GOFLASH2
061364,000821:
061365,000822: 10,3052 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
061366,000823:
061367,000824: 10,3053 33723 CAF PERF2MSK
061368,000825: 10,3054 12722 TCF GOFLASH2
061369,000826:
061370,000827: 10,3055 03137 GOPERF4 TC PURRS4
061371,000828:
061372,000829: 10,3056 12722 TCF GOFLASH2
061373,000830:
061374,000831: 10,3057 54155 GOFLASHR TS PLAYTEM1
061375,000832: 10,3060 35030 CAF BIT4 # LEAVE ONLY FLASH BIT SET
061376,000833: 10,3061 54160 GODSPRS TS PLAYTEM4
061377,000834:
061378,000835: 10,3062 36214 CAF THREE
061379,000836:
061380,000837: 10,3063 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
061381,000838: 10,3064 54072 TS RUPTREG3
061382,000839:
061383,000840: 10,3065 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
061384,000841: 10,3066 77674 MASK PRIO37
061385,000842: 10,3067 54063 TS NEWPRIO
061386,000843:
061387,000844: 10,3070 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
061388,000845: 10,3071 75030 MASK BIT4
061389,000846: 10,3072 10000 CCS A
061390,000847: 10,3073 13101 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
061391,000848: 10,3074 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
061392,000849: 10,3075 05150 TC NOVAC
061393,000850: 10,3076 E7,1777 EBANK= WHOCARES
061394,000851: 10,3076 02770 20067 2CADR MAKEPLAY
061395,000852:
061396,000853: 10,3100 13107 TCF BOTHJOBS
061397,000854:
061398,000855: 10,3101 30006 VACDSP CA BBANK
061399,000856: 10,3102 00006 EXTEND
061400,000857: 10,3103 04007 ROR SUPERBNK
061401,000858: 10,3104 54001 TS L
061402,000859: 10,3105 33761 CAF MAKEGEN
061403,000860: 10,3106 05174 TC SPVAC
061404,000861:
061405,000862: 10,3107 03144 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
061406,000863:
061407,000864: 10,3110 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
061408,000865: 10,3111 30156 DCA MPAC +1
061409,000866: 10,3112 50064 INDEX LOCCTR
061410,000867: 10,3113 52156 DXCH MPAC +1
061411,000868:
061412,000869: 10,3114 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
061413,000870: 10,3115 30160 DCA MPAC +3
061414,000871: 10,3116 50064 INDEX LOCCTR
061415,000872: 10,3117 52160 DXCH MPAC +3
061416,000873:
061417,000874: 10,3120 30064 CA LOCCTR
061418,000875: 10,3121 54161 TS MPAC +5
061419,000876: 10,3122 03151 TC SAVELOCR
061420,000877: 10,3123 00003 RELINT
061421,000878: 10,3124 14720 TCF BANKJUMP # CALL CADR +4
061422,000879:
061423,000880: 10,3125 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
061424,000881:
061425,000882: 10,3126 33720 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
061426,000883:
061427,000884: 10,3127 54155 GOPERFRS TS PLAYTEM1
061428,000885:
061429,000886: 10,3130 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
061430,000887: 10,3131 13061 TCF GODSPRS
061431,000888:
061432,000889: 10,3132 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
061433,000890:
061434,000891: 10,3133 33723 CAF PERF2MSK
061435,000892: 10,3134 13061 TCF GODSPRS
061436,000893:
061437,000894: 10,3135 03137 GOPERF4R TC PURRS4
061438,000895:
061439,000896: 10,3136 13061 TCF GODSPRS
061440,000897:
061441,000898: 10,3137 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE
061442,000899:
061443,000900: 10,3140 33724 CAF V04N06
061444,000901: 10,3141 54155 TS PLAYTEM1
061445,000902:
061446,000903: 10,3142 33725 CAF PERF4MSK # FLASH, PERFORM AND BLANK R3
061447,000904: 10,3143 00002 TC Q
061448,000905:
061449,000906: 10,3144 00004 SAVELOCS INHINT
061450,000907:
061451,000908: 10,3145 43734 CS OCT3400 # EBANK BITS
061452,000909: 10,3146 70160 MASK PLAYTEM4
061453,000910: 10,3147 60003 AD EBANK
061454,000911: 10,3150 54160 TS PLAYTEM4
061455,000912:
061456,000913: 10,3151 22002 SAVELOCR LXCH Q
061457,000914:
061458,000915: 10,3152 04725 TC MAKECADR
061459,000916: 10,3153 54157 TS PLAYTEM3
061460,000917:
061461,000918: 10,3154 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
061462,000919: 10,3155 00001 TC L
061463,000920:
061464,000921: 10,3156 35035 COPYNORM CAF ZERO
061465,000922: 10,3157 54164 COPIES TS COPINDEX
061466,000923: 10,3160 00004 COPIES2 INHINT
061467,000924: 10,3161 30160 CA PLAYTEM4 # FLAGWORD
061468,000925:
061469,000926: 10,3162 50164 INDEX COPINDEX
061470,000927: 10,3163 55067 TS EBANKSAV # EQUIV TO DSPFLG
061471,000928: 10,3164 73752 MASK CADRMASK # FLASH AND GODSPRET
061472,000929: 10,3165 00006 EXTEND
061473,000930: 10,3166 13172 BZF SKIPADD
061474,000931:
061475,000932: 10,3167 30157 CA PLAYTEM3
061476,000933: 10,3170 50164 INDEX COPINDEX
061477,000934: 10,3171 54371 TS CADRFLSH
061478,000935:
061479,000936: 10,3172 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
061480,000937: 10,3173 50164 INDEX COPINDEX
061481,000938: 10,3174 54366 TS NVWORD
061482,000939:
061483,000940: 10,3175 13453 TCF RELINTQ
061484,000941:
061485,000942: 10,3176 50164 GOSLEEPS INDEX COPINDEX
061486,000943: 10,3177 33753 CA PRIOOCT
061487,000944: 10,3200 73202 MASK WAITMASK
061488,000945: 10,3201 07722 TC UPENT2
061489,000946: 10,3202 03004 WAITMASK OCT 3004
061490,000947: 10,3203 45033 CS ONE
061491,000948: 10,3204 60164 AD COPINDEX
061492,000949: 10,3205 54154 TS FACEREG
061493,000950:
061494,000951: 10,3206 50154 XCHSLEEP INDEX FACEREG
061495,000952: 10,3207 33732 CAF WAKECADR
061496,000953: 10,3210 00004 INHINT
061497,000954: 10,3211 05215 TC JOBWAKE # FIND CADR IN JOB AREA
061498,000955:
061499,000956: 10,3212 03444 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
061500,000957:
061501,000958: 10,3213 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
061502,000959: 10,3214 33732 CAF WAKECADR
061503,000960: 10,3215 15211 TCF JOBSLEEP
061504,000961:
061505,000962: 10,3216 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
061506,000963: 10,3217 03427 TC WITCHONE
061507,000964: 10,3220 05215 TC JOBWAKE
061508,000965: 10,3221 30154 CA FACEREG
061509,000966: 10,3222 50064 INDEX LOCCTR
061510,000967: 10,3223 54154 TS FACEREG
061511,000968:
061512,000969: 10,3224 33237 CAF XCHQADD
061513,000970: 10,3225 03445 TC XCHNYLOC
061514,000971:
061515,000972: 10,3226 50154 INDEX FACEREG
061516,000973: 10,3227 33754 CA MARKOCT
061517,000974: 10,3230 73756 MASK IDLESLEP
061518,000975:
061519,000976: 10,3231 07740 TC DOWNENT2
061520,000977: 10,3232 74004 IDLEMASK OCT 74004 # * DONT MOVE
061521,000978: 10,3233 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
061522,000979: 10,3234 35027 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
061523,000980: 10,3235 65031 AD FOUR
061524,000981: 10,3236 07722 TC UPENT2 # FLAG ROUTINE DOES RELINT
061525,000982: 10,3237 03206 XCHQADD GENADR XCHSLEEP # * DONT MOVE
061526,000983: 10,3240 30100 CA FLAGWRD4
061527,000984: 10,3241 75031 MASK BIT3 # IF BIT3 THEN MARK OVER NORM
061528,000985: 10,3242 10000 CCS A
061529,000986: 10,3243 02624 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
061530,000987: 10,3244 12760 TCF OKTOCOPY
061531,000988:
061532,000989: 10,3245 35035 MARKWAKE CAF ZERO
061533,000990: 10,3246 54160 WAKEPLAY TS TEMPOR2
061534,000991:
061535,000992: 10,3247 50160 INDEX TEMPOR2
061536,000993: 10,3250 33746 CA BITS5+11
061537,000994: 10,3251 65031 AD FOUR
061538,000995: 10,3252 07740 TC DOWNENT2
061539,000996: 10,3253 40010 MARKFMSK OCT 40010 # *** DONT MOVE
061540,000997:
061541,000998: 10,3254 50160 INDEX TEMPOR2
061542,000999: 10,3255 33732 CAF WAKECADR
061543,001000: 10,3256 00004 INHINT
061544,001001: 10,3257 05215 TC JOBWAKE
061545,001002:
061546,001003: 10,3260 13557 TCF ENDRET
061547,001004:
061548,001005: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
061549,001006: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
061550,001007:
061551,001008: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
061552,001009: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
061553,001010:
061554,001011: 10,3261 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
061555,001012: 10,3262 54003 TS EBANK
061556,001013:
061557,001014: 10,3263 30365 CA RESTREG # SUPERBANK AND JOB PRIORITY
061558,001015: 10,3264 05007 TC SUPERSW # RESTORE SUPERBANK
061559,001016:
061560,001017: 10,3265 77674 MASK PRIO37
061561,001018: 10,3266 05224 TC PRIOCHNG
061562,001019:
061563,001020: 10,3267 46214 CS THREE
061564,001021: 10,3270 60373 AD TEMPFLSH
061565,001022: 10,3271 14720 TCF BANKJUMP
061566,001023:
061567,001024: 10,3272 00003 PINBRNCH RELINT # FOR GOPIN USERS
061568,001025: 10,3273 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
061569,001026: 10,3274 54156 TS MPAC +2 # ONLY
061570,001027:
061571,001028: 10,3275 30100 CA FLAGWRD4 # PINBRANCH CONDITION
061572,001029: 10,3276 77707 MASK PINMASK
061573,001030: 10,3277 10000 CCS A
061574,001031: 10,3300 13303 TCF +3
061575,001032: 10,3301 13713 TCF ERASER # ** NOTHING IN ENDIDLE
061576,001033: 10,3302 12624 TCF MARKPLAY
061577,001034:
061578,001035: 10,3303 05562 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
061579,001036: 10,3304 00105 ADRES PINBRFLG
061580,001037:
061581,001038: 10,3305 35016 CAF BIT14 # PRIO INTERRUPTED
061582,001039: 10,3306 70100 MASK FLAGWRD4
061583,001040: 10,3307 10000 CCS A
061584,001041: 10,3310 12766 TCF KEEPPRIO
061585,001042:
061586,001043: 10,3311 13037 TCF PLAYJUM1
061587,001044:
061588,001045: 10,3312 02644 NVDSP TC COPYPACS
061589,001046:
061590,001047: 10,3313 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
061591,001048: 10,3314 75037 MASK SEVEN # USER REQUESTS BLANKING MONITOR
061592,001049: 10,3315 54001 TS L
061593,001050:
061594,001051: 10,3316 45017 CS BIT13
061595,001052: 10,3317 50164 INDEX COPINDEX
061596,001053: 10,3320 71067 MASK DSPFLG
061597,001054: 10,3321 50164 INDEX COPINDEX
061598,001055: 10,3322 55067 TS DSPFLG
061599,001056:
061600,001057: 10,3323 75024 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
061601,001058: 10,3324 54141 TS TEM1
061602,001059:
061603,001060: 10,3325 30156 CA MPAC +2
061604,001061: 10,3326 54165 TS MPAC2SAV
061605,001062:
061606,001063: 10,3327 55072 TS MARK2PAC # * FOR DISK ONLY *
061607,001064: 10,3330 50164 INDEX COPINDEX
061608,001065: 10,3331 10366 CCS NVWORD
061609,001066: 10,3332 13341 TCF NVDSP1
061610,001067: 10,3333 13455 TCF CLEANEND
061611,001068: 10,3334 40367 CS MARKNV
061612,001069: 10,3335 54367 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
061613,001070: 10,3336 76043 MASK LOW7
061614,001071: 10,3337 63737 AD V05N00M1
061615,001072: 10,3340 60141 AD TEM1
061616,001073: 10,3341 65033 NVDSP1 AD ONE
061617,001074: 10,3342 04171 NV50DSP TC NVMONOPT
061618,001075: 10,3343 13467 TCF REST # IF BUSY
061619,001076:
061620,001077: 10,3344 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
061621,001078:
061622,001079: 10,3345 02642 TC COPYTOGO # MPACS DESTROYED BY NVSUB
061623,001080: 10,3346 05574 TC DOWNFLAG # UNSET SLEEPING BITS
061624,001081: 10,3347 00102 ADRES MRKNVFLG
061625,001082: 10,3350 05574 TC DOWNFLAG
061626,001083: 10,3351 00103 ADRES NRMNVFLG
061627,001084: 10,3352 05574 TC DOWNFLAG
061628,001085: 10,3353 00104 ADRES PRONVFLG
061629,001086: 10,3354 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
061630,001087: 10,3355 04271 TC BLANKSUB
061631,001088: 10,3356 13312 TCF NVDSP
061632,001089: 10,3357 35027 PERFCHEK CAF BIT5 # BIT 5 FOR PERFORM
061633,001090: 10,3360 70160 MASK TEMPOR2
061634,001091: 10,3361 10000 CCS A # IS THIS A GOPERF DISPLAY
061635,001092: 10,3362 13405 TCF 1STOR2ND # YES
061636,001093:
061637,001094: 10,3363 35030 GOANIDLE CAF BIT4
061638,001095: 10,3364 70160 MASK TEMPOR2
061639,001096: 10,3365 10000 CCS A
061640,001097: 10,3366 13502 TCF FLASHSUB # IT IS
061641,001098:
061642,001099: 10,3367 40160 CS TEMPOR2 # IS THIS A GODSPRET
061643,001100: 10,3370 75026 MASK BIT6
061644,001101: 10,3371 10000 CCS A
061645,001102: 10,3372 13377 TCF ISITN00
061646,001103:
061647,001104: 10,3373 50164 INDEX COPINDEX
061648,001105: 10,3374 30371 CA CADRFLSH
061649,001106: 10,3375 54157 TS MPAC +3
061650,001107: 10,3376 13575 TCF ENDIT
061651,001108:
061652,001109: 10,3377 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
061653,001110: 10,3400 30366 CA NVWORD
061654,001111: 10,3401 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
061655,001112: 10,3402 00006 EXTEND
061656,001113: 10,3403 13502 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
061657,001114:
061658,001115: 10,3404 15233 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
061659,001116:
061660,001117: 10,3405 30160 1STOR2ND CA TEMPOR2
061661,001118: 10,3406 75017 MASK BIT13
061662,001119: 10,3407 10000 CCS A
061663,001120: 10,3410 13363 TCF GOANIDLE # SECOND
061664,001121:
061665,001122: 10,3411 35017 CA BIT13
061666,001123: 10,3412 50164 INDEX COPINDEX
061667,001124: 10,3413 27067 ADS DSPFLG
061668,001125:
061669,001126: 10,3414 22007 ZL
061670,001127: 10,3415 00006 EXTEND # IS IT MARK
061671,001128: 10,3416 62665 BZMF MARKPERF # YES
061672,001129: 10,3417 75020 MASK BIT12
061673,001130: 10,3420 00006 EXTEND
061674,001131: 10,3421 13425 BZF V50PASTE
061675,001132: 10,3422 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
061676,001133: 10,3423 63763 AD V97N00
061677,001134: 10,3424 13342 TCF NV50DSP
061678,001135: 10,3425 33722 V50PASTE CAF V50N00
061679,001136: 10,3426 13342 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
061680,001137:
061681,001138: 10,3427 45027 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
061682,001139: 10,3430 00006 EXTEND
061683,001140: 10,3431 03011 WAND DSALMOUT
061684,001141:
061685,001142: 10,3432 30100 CA FLAGWRD4
061686,001143: 10,3433 73740 MASK NVBUSMSK # IS IT NVSUB ASLEEP
061687,001144: 10,3434 10000 CCS A
061688,001145: 10,3435 35033 CAF ONE
061689,001146: 10,3436 54001 TS L
061690,001147: 10,3437 35035 CAF ZERO
061691,001148: 10,3440 50001 INDEX L
061692,001149: 10,3441 57042 XCH CADRSTOR
061693,001150:
061694,001151: 10,3442 00004 INHINT
061695,001152: 10,3443 00002 TC Q
061696,001153:
061697,001154: 10,3444 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
061698,001155: 10,3445 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
061699,001156: 10,3446 00006 EXTEND
061700,001157: 10,3447 63453 BZMF RELINTQ # NO
061701,001158: 10,3450 56064 XCH LOCCTR # YES
061702,001159: 10,3451 50064 INDEX LOCCTR
061703,001160: 10,3452 54164 TS LOC
061704,001161:
061705,001162: 10,3453 00003 RELINTQ RELINT
061706,001163: 10,3454 00002 TC Q # BACK TO USER
061707,001164:
061708,001165: 10,3455 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
061709,001166: 10,3456 05163 TC FINDVAC
061710,001167: 10,3457 0370 EBANK= NVSAVE
061711,001168: 10,3457 04245 04060 2CADR JAMTERM
061712,001169:
061713,001170: 10,3461 13503 TCF FLASHSUB +1
061714,001171:
061715,001172: 10,3462 30100 ISITPRIO CA FLAGWRD4
061716,001173: 10,3463 73510 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
061717,001174: 10,3464 00006 EXTEND
061718,001175: 10,3465 13017 BZF PRIOBORT
061719,001176: 10,3466 15233 TCF ENDOFJOB
061720,001177: 10,3467 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
061721,001178: 10,3470 15233 TCF ENDOFJOB # YES
061722,001179: 10,3471 13473 TCF RESTSLEP
061723,001180:
061724,001181: 10,3472 15233 TCF ENDOFJOB
061725,001182:
061726,001183: 10,3473 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
061727,001184: 10,3474 73741 MASK ASTROMSK
061728,001185: 10,3475 07722 TC UPENT2
061729,001186: 10,3476 24100 OCT24100 OCT 24100 # *** DONT MOVE
061730,001187:
061731,001188: 10,3477 50164 INDEX COPINDEX
061732,001189: 10,3500 33731 CAF NVCADR
061733,001190: 10,3501 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
061734,001191:
061735,001192: 10,3502 04443 FLASHSUB TC FLASHON
061736,001193:
061737,001194: 10,3503 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
061738,001195: 10,3504 54157 TS COPMPAC
061739,001196:
061740,001197: 10,3505 30162 CA GENMASK
061741,001198: 10,3506 73232 MASK IDLEMASK
061742,001199: 10,3507 07722 TC UPENT2
061743,001200: 10,3510 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
061744,001201:
061745,001202: 10,3511 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
061746,001203: 10,3512 50164 INDEX COPINDEX
061747,001204: 10,3513 75031 MASK BIT3
061748,001205: 10,3514 10000 CCS A
061749,001206: 10,3515 13602 TCF UNSETR1 # YES
061750,001207:
061751,001208: 10,3516 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
061752,001209: 10,3517 13462 TCF ISITPRIO
061753,001210: 10,3520 13522 TCF +2
061754,001211: 10,3521 13462 TCF ISITPRIO
061755,001212:
061756,001213: 10,3522 04223 TC ENDIDLE
061757,001214: 10,3523 13614 IDLERET1 TCF TERMATE
061758,001215:
061759,001216: 10,3524 13633 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
061760,001217:
061761,001218: 10,3525 43750 CS LOWLOAD
061762,001219: 10,3526 60154 AD MPAC # VERBREG
061763,001220: 10,3527 00006 EXTEND
061764,001221: 10,3530 26000 DIM A
061765,001222: 10,3531 00006 EXTEND
061766,001223: 10,3532 13703 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
061767,001224:
061768,001225: 10,3533 35032 OKTOENT CAF TWO
061769,001226: 10,3534 54161 ENDOUT TS OUTHERE
061770,001227: 10,3535 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
061771,001228: 10,3536 74105 MASK OCT60000
061772,001229: 10,3537 10000 CCS A
061773,001230: 10,3540 13543 TCF TIMECHEK # PRIO ENDIDLE RETURN
061774,001231: 10,3541 13651 TCF NORMRET # NORMAL ENDIDLE RETURN
061775,001232: 10,3542 13635 TCF MARKRET # MARK ENDIDLE RETURN
061776,001233:
061777,001234: 10,3543 40025 TIMECHEK CS TIME1
061778,001235: 10,3544 61147 AD PRIOTIME
061779,001236: 10,3545 10000 CCS A
061780,001237: 10,3546 40000 COM
061781,001238: 10,3547 67700 AD OCT37776
061782,001239: 10,3550 65033 AD ONE
061783,001240: 10,3551 63774 AD -2SEC
061784,001241: 10,3552 00006 EXTEND
061785,001242: 10,3553 62766 BZMF KEEPPRIO
061786,001243:
061787,001244: 10,3554 13651 TCF NORMRET
061788,001245:
061789,001246: 10,3555 35033 NORMWAKE CAF ONE
061790,001247: 10,3556 13246 TCF WAKEPLAY
061791,001248:
061792,001249: 10,3557 10161 ENDRET CCS OUTHERE
061793,001250: 10,3560 65033 AD ONE
061794,001251: 10,3561 13563 TCF +2 # NORMAL ENDIDLE EXIT
061795,001252: 10,3562 15233 TCF ENDOFJOB
061796,001253: 10,3563 50157 INDEX COPMPAC
061797,001254: 10,3564 60371 AD CADRFLSH
061798,001255: 10,3565 54157 TS MPAC +3
061799,001256:
061800,001257: 10,3566 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
061801,001258: 10,3567 73571 MASK PINIDMSK
061802,001259: 10,3570 07740 TC DOWNENT2
061803,001260: 10,3571 74044 PINIDMSK OCT 74044 # *** DONT MOVE
061804,001261:
061805,001262: 10,3572 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
061806,001263: 10,3573 04170 TC NVSUB
061807,001264: 10,3574 13575 TCF +1
061808,001265:
061809,001266: 10,3575 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
061810,001267: 10,3576 77674 MASK PRIO37
061811,001268: 10,3577 05224 TC PRIOCHNG
061812,001269: 10,3600 30157 CA MPAC +3
061813,001270: 10,3601 14720 TCF BANKJUMP
061814,001271:
061815,001272: 10,3602 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
061816,001273: 10,3603 45031 CS BIT3
061817,001274: 10,3604 71073 MASK R1SAVE
061818,001275: 10,3605 55073 TS R1SAVE
061819,001276: 10,3606 35035 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
061820,001277: 10,3607 05007 TC SUPERSW # SUPERBANK 0
061821,001278:
061822,001279: 10,3610 36214 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
061823,001280: 10,3611 50164 IMMEDRET INDEX COPINDEX
061824,001281: 10,3612 60371 AD CADRFLSH
061825,001282: 10,3613 14720 TCF BANKJUMP
061826,001283:
061827,001284: 10,3614 35035 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
061828,001285: 10,3615 13534 TCF ENDOUT
061829,001286:
061830,001287: 10,3616 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
061831,001288: 10,3617 75016 MASK BIT14
061832,001289: 10,3620 10000 CCS A
061833,001290: 10,3621 16706 TCF Q+1 # NO
061834,001291: 10,3622 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
061835,001292: 10,3623 50164 INDEX COPINDEX
061836,001293: 10,3624 60371 AD CADRFLSH
061837,001294: 10,3625 00006 EXTEND
061838,001295: 10,3626 13630 BZF +2 # YES
061839,001296:
061840,001297: 10,3627 00002 TC Q # NO
061841,001298: 10,3630 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
061842,001299: 10,3631 05233 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
061843,001300: 10,3632 00002 TC Q
061844,001301:
061845,001302: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
061846,001303:
061847,001304: 10,3633 35033 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
061848,001305: 10,3634 13534 TCF ENDOUT
061849,001306:
061850,001307: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
061851,001308: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
061852,001309: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
061853,001310:
061854,001311: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
061855,001312: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
061856,001313: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
061857,001314: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
061858,001315:
061859,001316: 10,3635 46211 MARKRET CS SIX
061860,001317: 10,3636 70100 MASK FLAGWRD4
061861,001318: 10,3637 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
061862,001319: 10,3640 54100 TS FLAGWRD4
061863,001320:
061864,001321: 10,3641 00003 RELINT # INHINT REALM
061865,001322: 10,3642 13557 TCF ENDRET
061866,001323:
061867,001324: 10,3643 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
061868,001325: 10,3644 54161 TS OUTHERE
061869,001326: 10,3645 30100 CA FLAGWRD4 # IS ENDIDFLG SET
061870,001327: 10,3646 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
061871,001328: 10,3647 10000 CCS A
061872,001329: 10,3650 13303 TCF NORMBNCH
061873,001330:
061874,001331: 10,3651 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
061875,001332: 10,3652 73746 MASK BITS5+11 # OR WAITING
061876,001333: 10,3653 10000 CCS A
061877,001334: 10,3654 13245 TCF MARKWAKE
061878,001335:
061879,001336: 10,3655 30100 CA FLAGWRD4 # NO
061880,001337: 10,3656 73747 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
061881,001338: 10,3657 10000 CCS A
061882,001339: 10,3660 13555 TCF NORMWAKE # YES
061883,001340:
061884,001341: 10,3661 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
061885,001342: 10,3662 75047 MASK OCT50 # OR A GODSPRET
061886,001343: 10,3663 10000 CCS A
061887,001344: 10,3664 13557 TCF ENDRET # YES
061888,001345: 10,3665 30370 CA NVSAVE
061889,001346: 10,3666 00006 EXTEND
061890,001347: 10,3667 13557 BZF ENDRET
061891,001348:
061892,001349: 10,3670 35103 CAF PRIO15
061893,001350: 10,3671 00004 INHINT
061894,001351: 10,3672 05150 TC NOVAC
061895,001352: 10,3673 0366 EBANK= NVWORD
061896,001353: 10,3673 03037 20060 2CADR PLAYJUM1
061897,001354:
061898,001355: 10,3675 13557 TCF ENDRET
061899,001356:
061900,001357: 10,3676 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
061901,001358: 10,3677 73746 MASK BITS5+11
061902,001359: 10,3700 10000 CCS A
061903,001360: 10,3701 15233 TCF ENDOFJOB # YES
061904,001361: 10,3702 13176 TCF GOSLEEPS
061905,001362:
061906,001363: 10,3703 50157 LOADITIS INDEX COPMPAC
061907,001364: 10,3704 30366 CA NVWORD
061908,001365: 10,3705 76043 MASK LOW7
061909,001366: 10,3706 40000 COM
061910,001367: 10,3707 60155 AD MPAC +1 # NOUNREG
061911,001368: 10,3710 00006 EXTEND
061912,001369: 10,3711 13533 BZF OKTOENT # NO, THEN LOAD IS VALID
061913,001370: 10,3712 13272 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
061914,001371:
061915,001372: 10,3713 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
061916,001373: 10,3714 04170 TC NVSUB
061917,001374: 10,3715 15233 TCF ENDOFJOB
061918,001375: 10,3716 15233 TCF ENDOFJOB
061919,001376:
061920,001377: 10,3717 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
061921,001378: 10,3720 00231 V01N25 VN 00125
061922,001379: 10,3721 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
061923,001380: 10,3722 14400 V50N00 VN 5000
061924,001381: 10,3723 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
061925,001382: 10,3724 01006 V04N06 VN 00406
061926,001383: 10,3725 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
061927,001384: 10,3726 10,3272 GOAGIN EQUALS PINBRNCH
061928,001385: 10,3726 20010 REDOMASK OCT 20010 # BITS 4 AND 14
061929,001386: 10,3727 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
061930,001387: 10,3730 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
061931,001388: 10,3731 20764 NVCADR CADR REDOPRIO
061932,001389: 10,3732 20624 WAKECADR CADR MARKPLAY
061933,001390: 10,3733 21037 CADR PLAYJUM1
061934,001391:
061935,001392: 10,3734 03400 OCT3400 OCT 3400 # EBANK MASK
061936,001393: 10,3735 11210 NBUSMASK OCT 11210
061937,001394: 10,3736 66521 PMMASK OCT 66521
061938,001395: 10,3737 4160 VERBMASK = MID7 # (OCT 37600)
061939,001396: 10,3737 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
061940,001397: 10,3740 10,2555 GOXDSP EQUALS GOMARK
061941,001398: 10,3740 10,2575 GOXDSPR EQUALS GOMARKR
061942,001399: 10,3740 10,2561 GOXDSPF EQUALS GOMARKF
061943,001400: 10,3740 10,2600 GOXDSPFR EQUALS GOMARKFR
061944,001401: 10,3740 5550 ENDEXT EQUALS ENDMARK
061945,001402: 10,3740 0165 MPAC2SAV EQUALS BANKSET
061946,001403: 10,3740 00700 NVBUSMSK OCT 700
061947,001404: 10,3741 00704 ASTROMSK OCT 704
061948,001405: 10,3742 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
061949,001406: 10,3743 34300 OCT34300 OCT 34300
061950,001407: 10,3744 40100 BITS15+7 OCT 40100
061951,001408: 10,3745 00110 BITS7+4 OCT 110
061952,001409: 10,3746 1067 DSPFLG EQUALS EBANKSAV
061953,001410: 10,3746 1070 MARKFLAG EQUALS MARKEBAN
061954,001411: 10,3746 1071 SAVEFLAG EQUALS EBANKTEM
061955,001412: 10,3746 02020 BITS5+11 OCT 2020 # * DONT MOVE
061956,001413: 10,3747 01010 BITS4+10 OCT 1010 # * DONT MOVE
061957,001414: 10,3750 00026 LOWLOAD DEC 22 B-14
061958,001415: 10,3751 77730 BUSYMASK OCT 77730
061959,001416: 10,3752 00050 CADRMASK OCT 50
061960,001417: 10,3753 7707 PINMASK EQUALS 13,14,15
061961,001418: 10,3753 10,3312 GOPLAY EQUALS NVDSP
061962,001419: # PRIOSAVE EQUALS R1SAVE
061963,001420: 10,3753 0157 COPMPAC EQUALS MPAC +3
061964,001421: 10,3753 0160 TEMPOR2 EQUALS MPAC +4
061965,001422: 10,3753 0161 OUTHERE EQUALS MPAC +5
061966,001423: 10,3753 0164 COPINDEX EQUALS LOC
061967,001424: 10,3753 0163 USERPRIO EQUALS MODE
061968,001425: 10,3753 0162 GENMASK EQUALS MPAC +6
061969,001426: 10,3753 20144 PRIOOCT OCT 20144 # PRIO
061970,001427: 10,3754 42424 MARKOCT OCT 42424 # MARK
061971,001428: 10,3755 11254 OCT 11254 # NORM
061972,001429:
061973,001430: 10,3756 74704 IDLESLEP OCT 74704
061974,001431: 10,3757 67777 OCT67777 OCT 67777
061975,001432: 10,3760 5542 LINUS EQUALS BLANKET
061976,001433: 10,3760 0154 FACEREG EQUALS MPAC
061977,001434: 10,3760 0155 PLAYTEM1 EQUALS MPAC +1
061978,001435: 10,3760 0157 PLAYTEM3 EQUALS MPAC +3
061979,001436: 10,3760 0160 PLAYTEM4 EQUALS MPAC +4
061980,001437: 10,3760 40420 OCT40420 OCT 40420
061981,001438: 10,3761 02770 MAKEGEN GENADR MAKEPLAY
061982,001439: 10,3762 10200 OCT10200 OCT 10200
061983,001440: 10,3763 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
061984,001441: 10,3764 20100 OCT20100 OCT 20100
061985,001442: 10,3765 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc