Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance 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. |
052449,000002: ## Copyright: Public domain.
052450,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
052451,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
052452,000005: ## It is part of the reconstructed source code for the Lunar
052453,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
052454,000007: ## No original listings of this program are available;
052455,000008: ## instead, this file was created via disassembly of dumps
052456,000009: ## of various revisions of Sundance core rope modules.
052457,000010: ## Assembler: yaYUL
052458,000011: ## Contact: Ron Burkey <info@sandroid.org>.
052459,000012: ## Website: www.ibiblio.org/apollo/index.html
052460,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
052461,000014:
052462,000015: ## Sundance 292
052463,000016:
052464,000017: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
052465,000018:
052466,000019: # 1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
052467,000020: # OUT UNDER CRITICAL ALARM CONDITIONS.
052468,000021: # 2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
052469,000022: # 3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
052470,000023: # SEQUENCE OF EVENTS.
052471,000024: # 4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
052472,000025: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
052473,000026:
052474,000027:
052475,000028: # 5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
052476,000029: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
052477,000030:
052478,000031: # 1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
052479,000032: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
052480,000033: # BUT NOT WAITING FOR A RESPONSE.
052481,000034: # 2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
052482,000035: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
052483,000036: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
052484,000037: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
052485,000038: # HAS INFO SAVED FOR RESTART PURPOSES.
052486,000039:
052487,000040:
052488,000041: # DISPLAY PRIORITIES WORK AS FOLLOWS-
052489,000042:
052490,000043: # INTERRUPTS-
052491,000044: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
052492,000045: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
052493,000046: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
052494,000047: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
052495,000048: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
052496,000049: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
052497,000050:
052498,000051: # ORDER OF WAITING DISPLAYS-
052499,000052: # 1. ASTRONAUT EXTERNAL USE
052500,000053: # 2. PRIORITY
052501,000054: # 3. INTERRUPTED MARK
052502,000055: # 4. INTERRUPTED NORMAL
052503,000056:
052504,000057: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
052505,000058: # 6. MARK WAITING
052506,000059: # 7. NORMAL WAITING
052507,000060:
052508,000061: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
052509,000062: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
052510,000063: # WILL FOLLOW LATER):
052511,000064:
052512,000065: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
052513,000066: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
052514,000067: # IS TO THE USERS CALLING LOC +1.
052515,000068: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
052516,000069: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
052517,000070: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
052518,000071: # USERS JOB.
052519,000072: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
052520,000073: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
052521,000074: # DESCRIPTION OF RESTARTS).
052522,000075: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
052523,000076: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
052524,000077: # (V32) BRANCHES TO THE USERS CALL CADR +3.
052525,000078: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
052526,000079:
052527,000080: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
052528,000081:
052529,000082: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
052530,000083:
052531,000084: # 1. GODSP IS NOT RESTARTABLE
052532,000085: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
052533,000086: # CAF VXXNYY
052534,000087: # TC BANKCALL
052535,000088: # CADR GODSP
052536,000089:
052537,000090: # VXXNYY OCT 0XXYY
052538,000091:
052539,000092: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
052540,000093:
052541,000094: # CAF VXXNYY
052542,000095: # TC BANKCALL
052543,000096: # CADR GODSPR
052544,000097:
052545,000098: # ... ... IMMEDIATE RETURN OF GODSPR
052546,000099:
052547,000100: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
052548,000101: # THE ASTRONAUT (SEE NO. 7 ABOVE).
052549,000102:
052550,000103: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
052551,000104: # TC BANKCALL
052552,000105: # CADR GOFLASH
052553,000106: # ... ... TERMINATE RETURN
052554,000107: # ... ... PROCEED RETURN
052555,000108: # ... ... ENTER OR RECYCLE RETURN
052556,000109:
052557,000110: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
052558,000111: # V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
052559,000112: # USER (SEE NO. 7 ABOVE).
052560,000113:
052561,000114: # GOPERF1 BLANKS REGISTERS R2 AND R3
052562,000115: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
052563,000116: # TC BANKCALL
052564,000117: # CADR GOPERF1
052565,000118: # ... ... TERMINATE RETURN
052566,000119: # ... ... PROCEED RETURN
052567,000120: # ... ... ENTER RETURN
052568,000121:
052569,000122: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
052570,000123: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
052571,000124: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
052572,000125:
052573,000126: # GOPERF2 DOES NOT BLANK ANY REGISTERS
052574,000127:
052575,000128: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
052576,000129: # TC BANKCALL
052577,000130: # CADR GOPERF2
052578,000131: # ... ... TERMINATE RETURN
052579,000132: # ... ... PROCEED RETURN
052580,000133: # ... ... ENTER RETURN
052581,000134:
052582,000135: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
052583,000136: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
052584,000137: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
052585,000138:
052586,000139: # GOPERF3 BLANKS REGISTERS R2 AND R3
052587,000140:
052588,000141: # CAF DECXX REQUEST PERFORM ON PXX
052589,000142: # TC BANKCALL
052590,000143: # CADR GOPERF3
052591,000144: # ... ... TERMINATE RETURN
052592,000145: # ... ... PROCEED RETURN
052593,000146: # ... ... ENTER RETURN
052594,000147:
052595,000148: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
052596,000149: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
052597,000150: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
052598,000151:
052599,000152: # CAF OCTXX REQUEST PERFORM ON OPTION XX
052600,000153: # TC BANKCALL
052601,000154: # CADR GOPERF4
052602,000155: # ... ... TERMINATE RETURN
052603,000156: # ... ... PROCEED RETURN
052604,000157: # ... ... ENTER RETURN
052605,000158:
052606,000159: # GOPERF4 BLANKS REGISTER R3
052607,000160:
052608,000161: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
052609,000162: # OUT.
052610,000163:
052611,000164: # CAF VXXNYY
052612,000165: # TC BANKCALL
052613,000166: # CADR GODSPRET
052614,000167: # ... ... RETURN TO USER
052615,000168:
052616,000169: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
052617,000170: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
052618,000171:
052619,000172: # CAF VXXNYY
052620,000173: # TC BANKCALL
052621,000174: # CADR REGODSP
052622,000175:
052623,000176: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
052624,000177:
052625,000178: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
052626,000179: # TC BANKCALL
052627,000180: # CADR REFLASH
052628,000181: # ... ... TERMINATE RETURN
052629,000182: # ... ... PROCEED RETURN
052630,000183: # ... ... ENTER RETURN
052631,000184:
052632,000185: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
052633,000186:
052634,000187: # CAF VXXNYY
052635,000188: # TC BANKCALL
052636,000189: # CADR GOFLASHR
052637,000190: # ... ... TERMINATE RETURN
052638,000191: # ... ... PROCEED RETURN
052639,000192: # ... ... ENTER OR RECYCLE RETURN
052640,000193:
052641,000194: # ... ... IMMEDIATE RETURN FROM GOFLASHR
052642,000195:
052643,000196: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
052644,000197:
052645,000198: # GOPERF1R BLANKS REGISTERS R2 AND R3
052646,000199:
052647,000200: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
052648,000201: # TC BANKCALL
052649,000202: # CADR GOPERF1R
052650,000203: # ... ... TERMINATE RETURN
052651,000204: # ... ... PROCEED RETURN
052652,000205: # ... ... ENTER RETURN
052653,000206:
052654,000207: # ... ... IMMEDIATE RETURN FROM GOPERF1R
052655,000208:
052656,000209: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
052657,000210:
052658,000211: # GOPERF2R DOES NOT BLANK ANY REGISTERS
052659,000212:
052660,000213: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
052661,000214: # TC BANKCALL
052662,000215: # CADR GOPERF2R
052663,000216: # ... ... TERMINATE RETURN
052664,000217: # ... ... PROCEED RETURN
052665,000218: # ... ... ENTER RETURN
052666,000219:
052667,000220: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
052668,000221:
052669,000222: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
052670,000223:
052671,000224: # GOPERF3R BLANKS REGISTERS R2 AND R3
052672,000225:
052673,000226: # CAF PROGXX PERFORM PROGRAM XX
052674,000227: # TC BANKCALL
052675,000228: # CADR GOPERF3R
052676,000229: # ... ... TERMINATE RETURN
052677,000230: # ... ... PROCEED RETURN
052678,000231: # ... ... ENTER RETURN
052679,000232:
052680,000233: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
052681,000234:
052682,000235: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
052683,000236:
052684,000237: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
052685,000238: # TC BANKCALL
052686,000239: # CADR GOPERF4R
052687,000240: # ... ... TERMINATE RETURN
052688,000241: # ... ... PROCEED RETURN
052689,000242: # ... ... ENTER RETURN
052690,000243:
052691,000244: # ... ... IMMEDIATE RETURN TO USER
052692,000245:
052693,000246: # GOPERF4R BLANKS REGISTER R3
052694,000247:
052695,000248: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
052696,000249:
052697,000250: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
052698,000251: # TC BANKCALL
052699,000252: # CADR REFLASHR
052700,000253: # ... ... TERMINATE RETURN
052701,000254: # ... ... PROCEED RETURN
052702,000255: # ... ... ENTER RETURN
052703,000256:
052704,000257: # ... ... IMMEDIATE RETURN TO USER
052705,000258:
052706,000259: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
052707,000260:
052708,000261: # CAF VXXNYY
052709,000262: # TC BANKCALL
052710,000263: # CADR REGODSPR
052711,000264: # ... ... IMMEDIATE RETURN TO USER
052712,000265: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
052713,000266:
052714,000267: # GOXDSP = GOMARK
052715,000268:
052716,000269: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
052717,000270: # TC BANKCALL
052718,000271: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
052719,000272:
052720,000273: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
052721,000274:
052722,000275: # GOXDSPR = GOMARKR
052723,000276:
052724,000277: # CAF VXXNYY
052725,000278: # TC BANKCALL
052726,000279: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
052727,000280:
052728,000281: # ... ... IMMEDIATE RETURN OF GOMARKR
052729,000282:
052730,000283: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
052731,000284: # THE ASTRONAUT (SEE NO. 7 ABOVE ).
052732,000285:
052733,000286: # GOXDSPF = GOMARKF
052734,000287:
052735,000288: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
052736,000289: # TC BANKCALL
052737,000290: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
052738,000291: # ... ... TERMINATE RETURN
052739,000292: # ... ... PROCEED RETURN
052740,000293: # ... ... ENTER OR RECYCLE RETURN
052741,000294:
052742,000295: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
052743,000296:
052744,000297: # GOXDSPFR = GOMARKFR
052745,000298:
052746,000299: # CAF VXXNYY FLASHING MARK VERB NOUN
052747,000300: # TC BANKCALL
052748,000301: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
052749,000302: # ... ... TERMINATE RETURN
052750,000303: # ... ... PROCEED RETURN
052751,000304: # ... ... ENTER OR RECYCLE RETURN
052752,000305:
052753,000306: # ... ... IMMEDIATE RETURN TO THE USER
052754,000307:
052755,000308: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
052756,000309: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
052757,000310: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
052758,000311: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
052759,000312:
052760,000313: # CAF V5XNYY X=1,2,3,4 Y=NOUN
052761,000314: # TC BANKCALL
052762,000315: # CADR GOMARK1
052763,000316:
052764,000317: # ... ... ENTER RETURN
052765,000318:
052766,000319: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
052767,000320:
052768,000321: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
052769,000322: # CAF V5XNYY X=1,2,3,4 YY = NOUN
052770,000323: # TC BANKCALL
052771,000324: # CADR GOMARK1R
052772,000325:
052773,000326: # ... ... ASTRONAUT ENTER RETURN
052774,000327: # ... ... IMMEDIATE RETURN TO USER
052775,000328:
052776,000329: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
052777,000330: # CAF V5XNYY X=1,2,3,4 YY=NOUN
052778,000331: # TC BANKCALL
052779,000332: # CADR GOMARK2
052780,000333: # ... ... TERMINATE RETURN
052781,000334: # ... ... PROCEED RETURN
052782,000335: # ... ... ENTER RETURN
052783,000336: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
052784,000337:
052785,000338: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
052786,000339: # TC BANKCALL
052787,000340: # CADR GOMARK2R
052788,000341: # ... ... TERMINATE RETURN
052789,000342: # ... ... PROCEED RETURN
052790,000343: # ... ... ENTER RETURN
052791,000344:
052792,000345: # ... ... IMMEDIATE RETURN TO THE USER
052793,000346:
052794,000347: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
052795,000348: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
052796,000349: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
052797,000350:
052798,000351: # CAF V5XNYY X=1, 2,3,4 YY=NOUN
052799,000352: # TC BANKCALL
052800,000353: # CADR GOMARK3
052801,000354: # ... ... TERMINATE RETURN
052802,000355: # ... ... PROCEED RETURN
052803,000356: # ... ... ENTER RETURN
052804,000357:
052805,000358: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
052806,000359:
052807,000360: # CAF V5XNYY X=1,2,3,4 YY=NOUN
052808,000361: # TC BANKCALL
052809,000362: # CADR GOMARK4
052810,000363: # ... ... TERMINATE RETURN
052811,000364: # ... ... PROCEED RETURN
052812,000365: # ... ... ENTER RETURN
052813,000366:
052814,000367: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
052815,000368: # SENT OUT.
052816,000369: # CAF VXXNYY
052817,000370: # TC BANKCALL
052818,000371: # CADR EXDSPRET
052819,000372:
052820,000373: # ... ... RETURN TO USER
052821,000374:
052822,000375: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
052823,000376: # HAVE BEEN CLEANED OUT.
052824,000377:
052825,000378: # TC BANKCALL
052826,000379: # CADR KLEENEX
052827,000380:
052828,000381: # ... ... RETURN TO USER
052829,000382:
052830,000383: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
052831,000384:
052832,000385: # TC BANKCALL
052833,000386: # CADR MARKBRAN
052834,000387:
052835,000388: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
052836,000389:
052837,000390: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
052838,000391: # LAST FLASHING MARK R ROUTINE)
052839,000392:
052840,000393: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
052841,000394: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
052842,000395:
052843,000396: # TC POSTJUMP
052844,000397: # CADR PINBRNCH
052845,000398:
052846,000399: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
052847,000400: # THE ASTRONAUT(SEE NO.7 ABOVE).
052848,000401:
052849,000402: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
052850,000403: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
052851,000404: # IS RESPONDED TO BY THE ASTRONAUT.
052852,000405:
052853,000406: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
052854,000407: # PRIO DISPLAY.
052855,000408:
052856,000409: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
052857,000410: # TC BANKCALL
052858,000411: # CADR PRIODSP
052859,000412: # ... ... TERMINATE RETURN
052860,000413: # ... ... PROCEED RETURN
052861,000414: # ... ... ENTER OR RECYCLE RETURN
052862,000415:
052863,000416: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
052864,000417:
052865,000418: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
052866,000419: # TC BANKCALL
052867,000420: # CADR PRIODSPR
052868,000421: # ... ... TERMINATE RETURN
052869,000422: # ... ... PROCEED RETURN
052870,000423: # ... ... ENTER OR RECYCLE RETURN
052871,000424:
052872,000425: # ... ... IMMEDIATE RETURN
052873,000426:
052874,000427: # PRIOLARM DOES A V05N09 PRIODSPR.
052875,000428: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
052876,000429: # DISPLAYS ARE CLEANED OUT.
052877,000430: # TC BANKCALL
052878,000431: # CADR CLEANDSP
052879,000432:
052880,000433: # ... ... RETURN TO USER
052881,000434:
052882,000435:
052883,000436: # GENERAL INFORMATION
052884,000437: # ------- -----------
052885,000438:
052886,000439:
052887,000440: # ALARM OR ABORT EXIT MODES--
052888,000441:
052889,000442: # PRIOBORT TC ABORT
052890,000443: # OCT 1502
052891,000444:
052892,000445: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
052893,000446: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
052894,000447: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
052895,000448:
052896,000449:
052897,000450: # ERASABLE INITIALIZATION REQUIRED--
052898,000451:
052899,000452: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
052900,000453: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
052901,000454: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
052902,000455:
052903,000456:
052904,000457: # 5. R1SAVE = MARKBRAN CONTROL WORD
052905,000458: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
052906,000459:
052907,000460: # OUTPUT --
052908,000461:
052909,000462: # NVWORD = PRIO VERB AND NOUN
052910,000463: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
052911,000464: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
052912,000465:
052913,000466: # DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
052914,000467: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
052915,000468: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
052916,000469:
052917,000470: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
052918,000471: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
052919,000472: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
052920,000473:
052921,000474: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
052922,000475: # OPTION1 = DESIRED OPTION FROM GOPERF4
052923,000476: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
052924,000477: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
052925,000478: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
052926,000479: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
052927,000480: # DEBRIS-- (STORED INTO)
052928,000481:
052929,000482: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
052930,000483: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
052931,000484: # ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
052932,000485:
052933,000486: # ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
052934,000487: # R1SAVE, MARK2PAC,
052935,000488:
052936,000489:
052937,000490: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
052938,000491: # FLAGWORD DESCRIPTIONS--
052939,000492: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
052940,000493:
052941,000494: # DSPFLG, DSPFLG+1, DSPFLG +2-
052942,000495: # ----------------------------
052943,000496: # BITS 1 BLANK R1
052944,000497: # 2 BLANK R2
052945,000498: # 3 BLANK R3
052946,000499: # 4 FLASHING DISPLAY REQUESTED
052947,000500: # 5 PERFORM DISPLAY REQUESTED
052948,000501: # 6 ----- EXDSPRET GODSPRET
052949,000502: # 7 PRIO DISPLAY ----- -----
052950,000503: # 8 ----- DEC MARK PERFORM -----
052951,000504: # 9 EBANK
052952,000505: # 10 EBANK
052953,000506: # 11 EBANK
052954,000507: # 12 ----- ----- V99PASTE
052955,000508: # 13 2ND PART OF PERFORM
052956,000509: # 15 REFLASH OR REDO ----- REFLASH OR REDO
052957,000510: # 15 ----- MARK REQUEST -----
052958,000511: # RESTARTING DISPLAYS--
052959,000512:
052960,000513: # RULES FOR THE DSKY OPERATOR--
052961,000514:
052962,000515: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
052963,000516: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
052964,000517: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
052965,000518: # WITH PROCEED AND TERMINATE FOR THIS REASON.
052966,000519: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
052967,000520: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
052968,000521: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
052969,000522: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
052970,000523: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
052971,000524: # CONSIDERATION.
052972,000525: # 3. KEY RELEASE BUTTON-
052973,000526: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
052974,000527: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
052975,000528: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
052976,000529: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
052977,000530: # KEY RELEASE BUTTON MAY BE NECESSARY.
052978,000531: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
052979,000532: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
052980,000533: # OVER AGAIN.
052981,000534:
052982,000535:
052983,000536: # SPECIAL CONSIDERATIONS--
052984,000537: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
052985,000538: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
052986,000539: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
052987,000540: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
052988,000541: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
052989,000542: # BY A .1 RESTART PHASE CHANGE.
052990,000543: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
052991,000544: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
052992,000545: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
052993,000546:
052994,000547: # CALLING SEQUENCE FOR BLANKING
052995,000548: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
052996,000549: # TC BLANKET
052997,000550: # ... ... RETURN TO USER HERE
052998,000551:
052999,000552: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
053000,000553: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
053001,000554:
053002,000555: 5553 BLOCK 02
053003,000556: 4000 SETLOC FFTAG4
053004,000557: 4000 BANK
053005,000558:
053006,000559: 5553 COUNT* $$/DSPLA
053007,000560: 5553 54162 BLANKET TS MPAC +6
053008,000561: 5554 40160 CS PLAYTEM4
053009,000562: 5555 70162 MASK MPAC +6
053010,000563: 5556 50161 INDEX MPAC +5
053011,000564: 5557 26160 ADS PLAYTEM4
053012,000565:
053013,000566: 5560 00002 TC Q
053014,000567:
053015,000568: 5561 04674 ENDMARK TC POSTJUMP
053016,000569: 5562 20213 CADR MARKEND
053017,000570:
|
|
Sundance 302 |
053019,000572:
053020,000573: # ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
053021,000574: # FINISHED.
053022,000575:
053023,000576: 10,2213 BANK 10
053024,000577: 10,2000 SETLOC DISPLAYS
053025,000578: 10,2000 BANK
053026,000579:
053027,000580: 10,2213 COUNT* $$/DSPLA
053028,000581: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
053029,000582: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
053030,000583:
053031,000584: 10,2213 35030 MARKEND CAF ZERO
053032,000585: 10,2214 55045 TS EXTVBACT
053033,000586:
053034,000587: 10,2215 00004 INHINT
053035,000588: 10,2216 45026 CS BIT1
053036,000589: 10,2217 70100 MASK FLAGWRD4
053037,000590: 10,2220 54100 TS FLAGWRD4
053038,000591: 10,2221 13322 TCF MARKOVER
053039,000592:
053040,000593: 10,2222 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
053041,000594: 10,2223 35010 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
053042,000595: 10,2224 12410 TCF GOFLASH2
053043,000596:
053044,000597: 10,2225 35030 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
053045,000598: 10,2226 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
053046,000599:
053047,000600: 10,2227 32727 CAF MARKFMSK # MARK,FLASH
053048,000601: 10,2230 12410 TCF GOFLASH2
053049,000602:
053050,000603: 10,2231 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
053051,000604: 10,2232 33421 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
053052,000605: 10,2233 12410 TCF GOFLASH2
053053,000606:
053054,000607: 10,2234 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
053055,000608: 10,2235 33406 CAF MARK3MSK
053056,000609: 10,2236 12410 TCF GOFLASH2
053057,000610:
053058,000611: 10,2237 54155 GOMARK4 TS PLAYTEM1
053059,000612: 10,2240 33407 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
053060,000613: 10,2241 12410 TCF GOFLASH2
053061,000614:
053062,000615: 10,2242 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
053063,000616:
053064,000617: 10,2243 35010 CAF BIT15
053065,000618: 10,2244 12366 TCF GODSPR2
053066,000619:
053067,000620: 10,2245 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
053068,000621:
053069,000622: 10,2246 32727 CAF MARKFMSK
053070,000623: 10,2247 12546 TCF GODSPRS
053071,000624:
053072,000625: 10,2250 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
053073,000626: 10,2251 33421 CAF MPERFMSK # MARK, PERFORM, FLASH
053074,000627: 10,2252 12546 TCF GODSPRS
053075,000628:
053076,000629: 10,2253 54155 GOMARK3R TS PLAYTEM1
053077,000630: 10,2254 33406 CAF MARK3MSK
053078,000631: 10,2255 12546 TCF GODSPRS
053079,000632:
053080,000633: 10,2256 35026 MAKEMARK CAF ONE
053081,000634: 10,2257 02633 TC COPIES
053082,000635:
053083,000636: 10,2260 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
053084,000637: 10,2261 73422 MASK OCT34300
053085,000638: 10,2262 10000 CCS A
053086,000639: 10,2263 12342 TCF CHKPRIO
053087,000640:
053088,000641: 10,2264 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
053089,000642: 10,2265 75016 MASK MRKNVBIT
053090,000643:
053091,000644: 10,2266 00006 EXTEND
053092,000645: 10,2267 12313 BZF MARKPLAY # NO
053093,000646:
053094,000647: 10,2270 15225 TCF ENDOFJOB
053095,000648:
053096,000649: 10,2271 30100 MARKBRAN CA FLAGWRD4
053097,000650: 10,2272 73437 MASK OCT40420
053098,000651: 10,2273 10000 CCS A
053099,000652: 10,2274 12276 TCF +2
053100,000653: 10,2275 00002 TC Q
053101,000654:
053102,000655: 10,2276 35026 CAF ONE
053103,000656: 10,2277 54164 TS COPINDEX
053104,000657:
053105,000658: 10,2300 31022 CA MONSAVE1
053106,000659: 10,2301 75011 MASK BIT14
053107,000660: 10,2302 61013 AD DSPLOCK
053108,000661: 10,2303 10000 CCS A
053109,000662: 10,2304 13267 TCF IMMEDRET -1
053110,000663:
053111,000664: 10,2305 30100 CA FLAGWRD4
053112,000665: 10,2306 75022 MASK MRUPTBIT
053113,000666: 10,2307 10000 CCS A
053114,000667: 10,2310 13267 TCF IMMEDRET -1
053115,000668:
053116,000669: 10,2311 35025 CAF TWO
053117,000670: 10,2312 27074 ADS R1SAVE
053118,000671:
053119,000672: 10,2313 00004 MARKPLAY INHINT
053120,000673: 10,2314 45024 CS MKOVBIT # RESET MARK OVER NORM
053121,000674: 10,2315 70100 MASK FLAGWRD4
053122,000675: 10,2316 54100 TS FLAGWRD4
053123,000676: 10,2317 00003 RELINT
053124,000677:
053125,000678: 10,2320 41071 GOGOMARK CS MARKFLAG # PERFORM
053126,000679: 10,2321 75022 MASK BIT5
053127,000680: 10,2322 10000 CCS A
053128,000681: 10,2323 12326 TCF MARKCOP
053129,000682: 10,2324 40370 CS MARKNV
053130,000683: 10,2325 54370 TS MARKNV
053131,000684:
053132,000685: 10,2326 35026 MARKCOP CAF ONE # MARK INDEX
053133,000686: 10,2327 12525 TCF PRIOPLAY
053134,000687:
053135,000688: 10,2330 30165 COPYTOGO CA MPAC2SAV
053136,000689: 10,2331 54156 TS MPAC +2
053137,000690:
053138,000691: 10,2332 50164 COPYPACS INDEX COPINDEX
053139,000692: 10,2333 33432 CAF PRIOOCT
053140,000693: 10,2334 54162 TS GENMASK
053141,000694:
053142,000695: 10,2335 50164 INDEX COPINDEX
053143,000696: 10,2336 31070 CAF EBANKSAV
053144,000697: 10,2337 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
053145,000698:
053146,000699: 10,2340 54003 TS EBANK
053147,000700:
053148,000701: 10,2341 00002 TC Q
053149,000702:
053150,000703: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
053151,000704: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
053152,000705: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
053153,000706: # UNTIL ALL MARKING IS FINISHED.
053154,000707:
053155,000708: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
053156,000709: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
053157,000710:
053158,000711: 10,2342 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
053159,000712: 10,2343 73155 MASK OCT24100
053160,000713: 10,2344 10000 CCS A
053161,000714: 10,2345 13355 TCF MARSLEEP
053162,000715:
053163,000716: 10,2346 40100 CS FLAGWRD4
053164,000717: 10,2347 75024 MASK MKOVBIT # SET MARK OVER NORM
053165,000718: 10,2350 00004 INHINT
053166,000719: 10,2351 26100 ADS FLAGWRD4
053167,000720:
053168,000721: 10,2352 12444 TCF SETNORM
053169,000722:
053170,000723: 10,2353 30370 MARKPERF CA MARKNV
053171,000724: 10,2354 74156 MASK VERBMASK
053172,000725: 10,2355 13016 TCF NV50DSP
053173,000726:
053174,000727: 10,2356 54155 GODSP TS PLAYTEM1
053175,000728:
053176,000729: 10,2357 35030 GODSP2 CAF ZERO
053177,000730: 10,2360 12410 TCF GOFLASH2
053178,000731:
053179,000732: 10,2361 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
053180,000733:
053181,000734: 10,2362 35021 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
053182,000735: 10,2363 12410 TCF GOFLASH2
053183,000736:
053184,000737: 10,2364 54155 GODSPR TS PLAYTEM1
053185,000738:
053186,000739: 10,2365 35030 GODSPR1 CAF ZERO
053187,000740: 10,2366 54160 GODSPR2 TS PLAYTEM4
053188,000741:
053189,000742: 10,2367 35030 CAF ZERO # * DONT MOVE
053190,000743: 10,2370 12550 TCF GODSPRS1
053191,000744:
053192,000745: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
053193,000746: # SET UP TO BE STARTED OR RESTARTED.
053194,000747:
053195,000748: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
053196,000749: # OLD DISPLAY.
053197,000750:
053198,000751: # CALLING SEQUENCE FOR CLEANDSP-
053199,000752:
053200,000753: # TC BANKCALL
053201,000754: # CADR CLEANDSP
053202,000755:
053203,000756: 10,2371 35030 CLEANDSP CAF ZERO
053204,000757: 10,2372 54155 REFLASH TS PLAYTEM1
053205,000758:
053206,000759: 10,2373 33405 CAF REDOMASK # FLASH AND PERMIT
053207,000760: 10,2374 12410 TCF GOFLASH2
053208,000761:
053209,000762: 10,2375 54155 REFLASHR TS PLAYTEM1
053210,000763:
053211,000764: 10,2376 33405 CAF REDOMASK # FLASH AND PERMIT
053212,000765: 10,2377 12546 TCF GODSPRS
053213,000766:
053214,000767: 10,2400 54155 REGODSP TS PLAYTEM1
053215,000768:
053216,000769: 10,2401 35011 CAF BIT14
053217,000770: 10,2402 12410 TCF GOFLASH2
053218,000771:
053219,000772: 10,2403 54155 REGODSPR TS PLAYTEM1
053220,000773:
053221,000774: 10,2404 35011 CAF BIT14
053222,000775: 10,2405 12366 TCF GODSPR2
053223,000776:
053224,000777: 10,2406 54155 GOFLASH TS PLAYTEM1
053225,000778:
053226,000779: 10,2407 35023 CAF BIT4 # LEAVE ONLY FLASH BIT SET
053227,000780: 10,2410 54160 GOFLASH2 TS PLAYTEM4
053228,000781:
053229,000782: 10,2411 02620 TC SAVELOCS
053230,000783:
053231,000784: 10,2412 00003 RELINT
053232,000785:
053233,000786: 10,2413 12456 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
053234,000787:
053235,000788: 10,2414 54155 PRIODSPR TS PLAYTEM1
053236,000789:
053237,000790: 10,2415 33424 CAF BITS7+4
053238,000791: 10,2416 12546 TCF GODSPRS
053239,000792:
053240,000793: 10,2417 54155 PRIODSP TS PLAYTEM1
053241,000794:
053242,000795: 10,2420 33424 SETPRIO CAF BITS7+4
053243,000796: 10,2421 12410 TCF GOFLASH2
053244,000797:
053245,000798: 10,2422 35030 MAKEPRIO CAF ZERO
053246,000799: 10,2423 54164 TS COPINDEX
053247,000800:
053248,000801: 10,2424 03275 TC LINUSCHR
053249,000802: 10,2425 12432 TCF HIPRIO # LINUS RETURN
053250,000803: 10,2426 30100 CA FLAGWRD4
053251,000804: 10,2427 73155 MASK OCT24100 # IS PRIO IN ENDIDLE OR BUSY
053252,000805: 10,2430 10000 CCS A
053253,000806: 10,2431 12510 TCF PRIOBORT # YES, ABORT
053254,000807:
053255,000808: 10,2432 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
053256,000809: 10,2433 75721 MASK OCT40400
053257,000810: 10,2434 00006 EXTEND
053258,000811: 10,2435 12440 BZF ASKIFNRM # NO
053259,000812:
053260,000813: 10,2436 35030 SETMARK CAF ZERO
053261,000814: 10,2437 12672 TCF JOBXCHS
053262,000815:
053263,000816: 10,2440 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
053264,000817: 10,2441 73441 MASK OCT10200 # BITS 13+8
053265,000818: 10,2442 00006 EXTEND
053266,000819: 10,2443 12446 BZF OKTOCOPY # NO
053267,000820:
053268,000821: 10,2444 35026 SETNORM CAF ONE
053269,000822: 10,2445 12672 TCF JOBXCHS
053270,000823:
053271,000824: 10,2446 02632 OKTOCOPY TC COPYNORM
053272,000825: 10,2447 03106 TC WITCHONE
053273,000826:
053274,000827: 10,2450 05207 TC JOBWAKE
053275,000828:
053276,000829: 10,2451 03123 TC XCHTOEND
053277,000830:
053278,000831: 10,2452 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
053279,000832: 10,2453 55177 TS PRIOTIME
053280,000833:
053281,000834: 10,2454 35030 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
053282,000835: 10,2455 12525 TCF PRIOPLAY
053283,000836:
053284,000837: 10,2456 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
053285,000838: 10,2457 77677 MASK PRIO37
053286,000839: 10,2460 54163 TS USERPRIO
053287,000840: 10,2461 00006 EXTEND
053288,000841: 10,2462 04007 ROR SUPERBNK
053289,000842: 10,2463 54366 TS RESTREG
053290,000843:
053291,000844: 10,2464 37673 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
053292,000845: 10,2465 05216 TC PRIOCHNG
053293,000846:
053294,000847: 10,2466 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
053295,000848: 10,2467 73423 MASK BITS15+7
053296,000849: 10,2470 10000 CCS A
053297,000850: 10,2471 12422 TCF MAKEPRIO # ITS PRIO
053298,000851: 10,2472 12474 TCF IFLEGAL
053299,000852: 10,2473 12256 TCF MAKEMARK # ITS MARK
053300,000853:
053301,000854: 10,2474 35025 IFLEGAL CAF TWO
053302,000855: 10,2475 54164 TS COPINDEX
053303,000856:
053304,000857: 10,2476 03275 TC LINUSCHR
053305,000858:
053306,000859: 10,2477 12512 TCF OKTOPLAY # LINUS RETURN
053307,000860: 10,2500 41072 CS EBANKTEM
053308,000861: 10,2501 75023 MASK BIT4
053309,000862: 10,2502 10000 CCS A
053310,000863: 10,2503 12512 TCF OKTOPLAY # NO
053311,000864:
053312,000865: 10,2504 30100 CA FLAGWRD4 # WAS NORM ASLEEP
053313,000866: 10,2505 73414 MASK NBUSMASK # ARE ANY NORMS ASLEEP
053314,000867: 10,2506 00006 EXTEND
053315,000868: 10,2507 12512 BZF OKTOPLAY # NO
053316,000869:
053317,000870: 10,2510 05713 PRIOBORT TC ABORT
053318,000871: 10,2511 01502 OCT 1502
053319,000872:
053320,000873: 10,2512 02634 OKTOPLAY TC COPIES2
053321,000874:
053322,000875: 10,2513 30100 CA FLAGWRD4 # PRIO OR MARK GOING
053323,000876: 10,2514 73415 MASK PMMASK
053324,000877: 10,2515 10000 CCS A
053325,000878: 10,2516 12652 TCF GOSLEEPS # YES
053326,000879:
053327,000880: 10,2517 12521 TCF +2
053328,000881: 10,2520 12652 TCF GOSLEEPS # MARK GOING
053329,000882:
053330,000883: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
053331,000884: 10,2521 03106 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
053332,000885: 10,2522 05207 TC JOBWAKE
053333,000886:
053334,000887: 10,2523 03123 TC XCHTOEND
053335,000888:
053336,000889: 10,2524 35025 PLAYJUM1 CAF TWO
053337,000890: 10,2525 54164 PRIOPLAY TS COPINDEX
053338,000891:
053339,000892: 10,2526 12766 TCF GOPLAY
053340,000893:
053341,000894: 10,2527 54155 EXDSPRET TS PLAYTEM1
053342,000895:
053343,000896: 10,2530 37706 CAF BIT15+6
053344,000897: 10,2531 12410 TCF GOFLASH2
053345,000898:
053346,000899: 10,2532 55046 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
053347,000900: 10,2533 33377 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
053348,000901:
053349,000902: 10,2534 54155 GOPERFS TS PLAYTEM1
053350,000903:
053351,000904: 10,2535 33376 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
053352,000905: 10,2536 12410 TCF GOFLASH2
053353,000906:
053354,000907: 10,2537 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
053355,000908:
053356,000909: 10,2540 33402 CAF PERF2MSK
053357,000910: 10,2541 12410 TCF GOFLASH2
053358,000911:
053359,000912: 10,2542 02613 GOPERF4 TC PURRS4
053360,000913:
053361,000914: 10,2543 12410 TCF GOFLASH2
053362,000915:
053363,000916: 10,2544 54155 GOFLASHR TS PLAYTEM1
053364,000917:
053365,000918: 10,2545 35023 CAF BIT4 # LEAVE ONLY FLASH BIT SET
053366,000919: 10,2546 54160 GODSPRS TS PLAYTEM4
053367,000920:
053368,000921: 10,2547 36221 CAF THREE
053369,000922:
053370,000923: 10,2550 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
053371,000924: 10,2551 54072 TS RUPTREG3
053372,000925:
053373,000926: 10,2552 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
053374,000927: 10,2553 77677 MASK PRIO37
053375,000928: 10,2554 54063 TS NEWPRIO
053376,000929:
053377,000930: 10,2555 30006 CA BBANK
053378,000931: 10,2556 00006 EXTEND
053379,000932: 10,2557 04007 ROR SUPERBNK
053380,000933: 10,2560 54001 TS L
053381,000934: 10,2561 33440 CAF MAKEGEN
053382,000935: 10,2562 05166 TC SPVAC
053383,000936:
053384,000937: 10,2563 02620 TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
053385,000938:
053386,000939: 10,2564 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
053387,000940: 10,2565 30156 DCA MPAC +1
053388,000941: 10,2566 50064 INDEX LOCCTR
053389,000942: 10,2567 52156 DXCH MPAC +1
053390,000943:
053391,000944: 10,2570 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
053392,000945: 10,2571 30160 DCA MPAC +3
053393,000946: 10,2572 50064 INDEX LOCCTR
053394,000947: 10,2573 52160 DXCH MPAC +3
053395,000948:
053396,000949: 10,2574 30064 CA LOCCTR
053397,000950: 10,2575 54161 TS MPAC +5
053398,000951:
053399,000952: 10,2576 02625 TC SAVELOCR
053400,000953: 10,2577 00003 RELINT
053401,000954:
053402,000955: 10,2600 14677 TCF BANKJUMP # CALL CADR +4
053403,000956:
053404,000957: 10,2601 55046 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
053405,000958:
053406,000959: 10,2602 33377 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
053407,000960:
053408,000961: 10,2603 54155 GOPERFRS TS PLAYTEM1
053409,000962:
053410,000963: 10,2604 33376 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
053411,000964: 10,2605 12546 TCF GODSPRS
053412,000965:
053413,000966: 10,2606 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
053414,000967:
053415,000968: 10,2607 33402 CAF PERF2MSK
053416,000969: 10,2610 12546 TCF GODSPRS
053417,000970:
053418,000971: 10,2611 02613 GOPERF4R TC PURRS4
053419,000972:
053420,000973: 10,2612 12546 TCF GODSPRS
053421,000974:
053422,000975: 10,2613 55155 PURRS4 TS OPTION1 # DESIRED OPTION CODE
053423,000976:
053424,000977: 10,2614 33403 CAF V04N06
053425,000978: 10,2615 54155 TS PLAYTEM1
053426,000979:
053427,000980: 10,2616 33404 CAF PERF4MSK # FLASH,PERFORM AND BLANK R3
053428,000981: 10,2617 00002 TC Q
053429,000982:
053430,000983: 10,2620 00004 SAVELOCS INHINT
053431,000984:
053432,000985: 10,2621 43413 CS OCT3400 # EBANK BITS
053433,000986: 10,2622 70160 MASK PLAYTEM4
053434,000987: 10,2623 60003 AD EBANK
053435,000988: 10,2624 54160 TS PLAYTEM4
053436,000989:
053437,000990: 10,2625 22002 SAVELOCR LXCH Q
053438,000991:
053439,000992: 10,2626 04704 TC MAKECADR
053440,000993: 10,2627 54157 TS PLAYTEM3
053441,000994:
053442,000995: 10,2630 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
053443,000996: 10,2631 00001 TC L
053444,000997:
053445,000998: 10,2632 35030 COPYNORM CAF ZERO
053446,000999: 10,2633 54164 COPIES TS COPINDEX
053447,001000: 10,2634 00004 COPIES2 INHINT
053448,001001: 10,2635 30160 CA PLAYTEM4 # FLAGWORD
053449,001002: 10,2636 50164 INDEX COPINDEX
053450,001003: 10,2637 55070 TS EBANKSAV # EQUIV TO DSPFLG
053451,001004:
053452,001005: 10,2640 73431 MASK CADRMASK # FLASH AND GODSPRET
053453,001006: 10,2641 00006 EXTEND
053454,001007: 10,2642 12646 BZF SKIPADD
053455,001008:
053456,001009: 10,2643 30157 CA PLAYTEM3
053457,001010: 10,2644 50164 INDEX COPINDEX
053458,001011: 10,2645 54372 TS CADRFLSH
053459,001012:
053460,001013: 10,2646 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
053461,001014: 10,2647 50164 INDEX COPINDEX
053462,001015: 10,2650 54367 TS NVWORD
053463,001016:
053464,001017: 10,2651 13132 TCF RELINTQ
053465,001018:
053466,001019: 10,2652 50164 GOSLEEPS INDEX COPINDEX
053467,001020: 10,2653 33432 CA PRIOOCT
053468,001021: 10,2654 72656 MASK WAITMASK
053469,001022: 10,2655 07724 TC UPENT2
053470,001023: 10,2656 03004 WAITMASK OCT 3004
053471,001024: 10,2657 45026 CS ONE
053472,001025: 10,2660 60164 AD COPINDEX
053473,001026: 10,2661 54154 TS FACEREG
053474,001027:
053475,001028: 10,2662 50154 XCHSLEEP INDEX FACEREG
053476,001029: 10,2663 33411 CAF WAKECADR
053477,001030: 10,2664 00004 INHINT
053478,001031: 10,2665 05207 TC JOBWAKE # FIND CADR IN JOB AREA
053479,001032:
053480,001033: 10,2666 03123 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
053481,001034:
053482,001035: 10,2667 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
053483,001036: 10,2670 33411 CAF WAKECADR
053484,001037: 10,2671 15203 TCF JOBSLEEP
053485,001038:
053486,001039: 10,2672 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
053487,001040: 10,2673 03106 TC WITCHONE
053488,001041: 10,2674 05207 TC JOBWAKE
053489,001042: 10,2675 30154 CA FACEREG
053490,001043: 10,2676 50064 INDEX LOCCTR
053491,001044: 10,2677 54154 TS FACEREG
053492,001045:
053493,001046: 10,2700 32713 CAF XCHQADD
053494,001047: 10,2701 03124 TC XCHNYLOC
053495,001048:
053496,001049: 10,2702 50154 INDEX FACEREG
053497,001050: 10,2703 33433 CA MARKOCT
053498,001051: 10,2704 73435 MASK IDLESLEP
053499,001052: 10,2705 07744 TC DOWNENT2
053500,001053: 10,2706 74004 IDLEMASK OCT 74004 # * DONT MOVE
053501,001054:
053502,001055: 10,2707 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
053503,001056: 10,2710 35022 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
053504,001057: 10,2711 65024 AD FOUR
053505,001058: 10,2712 07724 TC UPENT2 # FLAG ROUTINE DOES RELINT
053506,001059: 10,2713 02662 XCHQADD GENADR XCHSLEEP # * DONT MOVE
053507,001060: 10,2714 30100 CA FLAGWRD4
053508,001061: 10,2715 75024 MASK MKOVBIT # MARK OVER NORM ?
053509,001062: 10,2716 10000 CCS A
053510,001063: 10,2717 02313 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
053511,001064: 10,2720 12446 TCF OKTOCOPY
053512,001065:
053513,001066: 10,2721 35030 MARKWAKE CAF ZERO
053514,001067: 10,2722 54160 WAKEPLAY TS TEMPOR2
053515,001068:
053516,001069: 10,2723 50160 INDEX TEMPOR2
053517,001070: 10,2724 33425 CA BITS5+11
053518,001071: 10,2725 65024 AD FOUR
053519,001072: 10,2726 07744 TC DOWNENT2
053520,001073: 10,2727 40010 MARKFMSK OCT 40010 # ***DONT MOVE
053521,001074:
053522,001075: 10,2730 50160 INDEX TEMPOR2
053523,001076: 10,2731 33411 CAF WAKECADR
053524,001077: 10,2732 00004 INHINT
053525,001078: 10,2733 05207 TC JOBWAKE
053526,001079:
053527,001080: 10,2734 13236 TCF ENDRET
053528,001081:
053529,001082: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
053530,001083: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
053531,001084: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
053532,001085: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
053533,001086:
053534,001087: 10,2735 31072 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
053535,001088: 10,2736 54003 TS EBANK
053536,001089:
053537,001090: 10,2737 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
|
|
These two instructions are in the wrong order for Sundance 292. They may have been fixed for 306. |
053539,001092: 10,2740 77677 MASK PRIO37
053540,001093: 10,2741 05002 TC SUPERSW # RESTORE SUPERBANK
053541,001094: 10,2742 05216 TC PRIOCHNG
053542,001095:
053543,001096: 10,2743 46221 CS THREE
053544,001097: 10,2744 60374 AD TEMPFLSH
053545,001098: 10,2745 14677 TCF BANKJUMP
053546,001099:
053547,001100: 10,2746 00003 PINBRNCH RELINT # FOR GOPIN USERS
053548,001101: 10,2747 31073 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
053549,001102: 10,2750 54156 TS MPAC +2 # ONLY
053550,001103:
053551,001104: 10,2751 30100 CA FLAGWRD4 # PINBRANCH CONDITION
053552,001105: 10,2752 77711 MASK PINMASK
053553,001106: 10,2753 10000 CCS A
053554,001107: 10,2754 12757 TCF +3
053555,001108: 10,2755 13372 TCF ERASER # ** NOTHING IN ENDIDLE
053556,001109: 10,2756 12313 TCF MARKPLAY
053557,001110:
053558,001111: 10,2757 05563 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
053559,001112: 10,2760 00105 ADRES PINBRFLG
053560,001113:
053561,001114: 10,2761 35011 CAF PRIODBIT # PRIO INTERRUPTED
053562,001115: 10,2762 70100 MASK FLAGWRD4
053563,001116: 10,2763 10000 CCS A
053564,001117: 10,2764 12454 TCF KEEPPRIO
053565,001118:
053566,001119: 10,2765 12524 TCF PLAYJUM1
053567,001120:
053568,001121: 10,2766 02332 NVDSP TC COPYPACS
053569,001122:
053570,001123: 10,2767 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
053571,001124: 10,2770 75032 MASK SEVEN # USER REQUESTS BLANKING MONITOR
053572,001125: 10,2771 54001 TS L
053573,001126:
053574,001127: 10,2772 45012 CS BIT13
053575,001128: 10,2773 50164 INDEX COPINDEX
053576,001129: 10,2774 71070 MASK DSPFLG
053577,001130: 10,2775 50164 INDEX COPINDEX
053578,001131: 10,2776 55070 TS DSPFLG
053579,001132:
053580,001133: 10,2777 75017 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
053581,001134: 10,3000 54141 TS TEM1
053582,001135:
053583,001136: 10,3001 30156 CA MPAC +2
053584,001137: 10,3002 54165 TS MPAC2SAV
053585,001138:
053586,001139: 10,3003 55073 TS MARK2PAC # * FOR DISK ONLY *
053587,001140: 10,3004 50164 INDEX COPINDEX
053588,001141: 10,3005 10367 CCS NVWORD
053589,001142: 10,3006 13015 TCF NVDSP1
053590,001143: 10,3007 13134 TCF CLEANEND
053591,001144: 10,3010 40370 CS MARKNV
053592,001145: 10,3011 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
053593,001146: 10,3012 76050 MASK LOW7
053594,001147: 10,3013 63416 AD V05N00M1
053595,001148: 10,3014 60141 AD TEM1
053596,001149: 10,3015 65026 NVDSP1 AD ONE
053597,001150: 10,3016 04167 NV50DSP TC NVMONOPT
053598,001151: 10,3017 13146 TCF REST # IF BUSY
053599,001152: 10,3020 04445 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
053600,001153:
053601,001154: 10,3021 02330 TC COPYTOGO # MPACS DESTROYED BY NVSUB
053602,001155: 10,3022 05575 TC DOWNFLAG # UNSET SLEEPING BITS
053603,001156: 10,3023 00102 ADRES MRKNVFLG
053604,001157: 10,3024 05575 TC DOWNFLAG
053605,001158: 10,3025 00103 ADRES NRMNVFLG
053606,001159: 10,3026 05575 TC DOWNFLAG
053607,001160: 10,3027 00104 ADRES PRONVFLG
053608,001161: 10,3030 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
053609,001162: 10,3031 04267 TC BLANKSUB
053610,001163: 10,3032 12766 TCF NVDSP
053611,001164: 10,3033 35022 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
053612,001165: 10,3034 70160 MASK TEMPOR2
053613,001166: 10,3035 10000 CCS A # IS THIS A GOPERF DISPLAY
053614,001167: 10,3036 13065 TCF 1STOR2ND # YES
053615,001168:
053616,001169: 10,3037 35023 GOANIDLE CAF BIT4
053617,001170: 10,3040 70160 MASK TEMPOR2
053618,001171: 10,3041 10000 CCS A
053619,001172: 10,3042 13161 TCF FLASHSUB # IT IS
053620,001173:
053621,001174: 10,3043 40160 CS TEMPOR2 # IS THIS A GODSPRET
053622,001175: 10,3044 75021 MASK BIT6
053623,001176: 10,3045 10000 CCS A
053624,001177: 10,3046 13057 TCF ISITN00
053625,001178:
053626,001179: 10,3047 30164 CA COPINDEX
053627,001180: 10,3050 54157 TS PLAYTEM3
053628,001181: 10,3051 30163 CA USERPRIO
053629,001182: 10,3052 77677 MASK PRIO37
053630,001183: 10,3053 05216 TC PRIOCHNG
053631,001184:
053632,001185: 10,3054 50157 INDEX PLAYTEM3
053633,001186: 10,3055 30372 CA CADRFLSH
053634,001187: 10,3056 14677 TCF BANKJUMP
053635,001188:
053636,001189: 10,3057 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
053637,001190: 10,3060 30367 CA NVWORD
053638,001191: 10,3061 76050 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
053639,001192: 10,3062 00006 EXTEND
053640,001193: 10,3063 13161 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
053641,001194:
053642,001195: 10,3064 15225 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
053643,001196:
053644,001197: 10,3065 30160 1STOR2ND CA TEMPOR2
053645,001198: 10,3066 75012 MASK BIT13
053646,001199: 10,3067 10000 CCS A
053647,001200: 10,3070 13037 TCF GOANIDLE # SECOND
053648,001201:
053649,001202: 10,3071 35012 CA BIT13
053650,001203: 10,3072 50164 INDEX COPINDEX
053651,001204: 10,3073 27070 ADS DSPFLG
053652,001205:
053653,001206: 10,3074 22007 ZL
053654,001207: 10,3075 00006 EXTEND # IS IT MARK
053655,001208: 10,3076 62353 BZMF MARKPERF # YES
053656,001209:
053657,001210: 10,3077 75013 MASK BIT12
053658,001211: 10,3100 00006 EXTEND
053659,001212: 10,3101 13104 BZF V50PASTE
053660,001213: 10,3102 33442 CAF V99N00
053661,001214: 10,3103 13016 TCF NV50DSP
053662,001215: 10,3104 33401 V50PASTE CAF V50N00
053663,001216: 10,3105 13016 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
053664,001217:
053665,001218: 10,3106 45022 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
053666,001219: 10,3107 00006 EXTEND
053667,001220: 10,3110 03011 WAND DSALMOUT
053668,001221:
053669,001222: 10,3111 30100 CA FLAGWRD4
053670,001223: 10,3112 73417 MASK NVBUSMSK # IS IT NVSUB ASLEEP
053671,001224: 10,3113 10000 CCS A
053672,001225: 10,3114 35026 CAF ONE
053673,001226: 10,3115 54001 TS L
053674,001227: 10,3116 35030 CAF ZERO
053675,001228: 10,3117 50001 INDEX L
053676,001229: 10,3120 57043 XCH CADRSTOR
053677,001230:
053678,001231: 10,3121 00004 INHINT
053679,001232: 10,3122 00002 TC Q
053680,001233:
053681,001234: 10,3123 34231 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
053682,001235: 10,3124 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
053683,001236: 10,3125 00006 EXTEND
053684,001237: 10,3126 63132 BZMF RELINTQ # NO
053685,001238: 10,3127 56064 XCH LOCCTR # YES
053686,001239: 10,3130 50064 INDEX LOCCTR
053687,001240: 10,3131 54164 TS LOC
053688,001241:
053689,001242: 10,3132 00003 RELINTQ RELINT
053690,001243: 10,3133 00002 TC Q # BACK TO USER
053691,001244:
053692,001245: 10,3134 37672 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
053693,001246: 10,3135 05155 TC FINDVAC
053694,001247: 10,3136 0371 EBANK= NVSAVE
053695,001248: 10,3136 04243 04060 2CADR JAMTERM
053696,001249:
053697,001250:
053698,001251: 10,3140 13162 TCF FLASHSUB +1
053699,001252:
053700,001253: 10,3141 30100 ISITPRIO CA FLAGWRD4
053701,001254: 10,3142 73167 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
053702,001255: 10,3143 00006 EXTEND
053703,001256: 10,3144 12510 BZF PRIOBORT
053704,001257: 10,3145 15225 TCF ENDOFJOB
053705,001258:
053706,001259: 10,3146 11043 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
053707,001260: 10,3147 15225 TCF ENDOFJOB # YES
053708,001261: 10,3150 13152 TCF RESTSLEP
053709,001262:
053710,001263: 10,3151 15225 TCF ENDOFJOB
053711,001264:
053712,001265: 10,3152 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
053713,001266: 10,3153 73420 MASK ASTROMSK
053714,001267: 10,3154 07724 TC UPENT2
053715,001268: 10,3155 24100 OCT24100 OCT 24100 # *** DONT MOVE
053716,001269:
053717,001270: 10,3156 50164 INDEX COPINDEX
053718,001271: 10,3157 33410 CAF NVCADR
053719,001272: 10,3160 04454 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
053720,001273:
053721,001274: 10,3161 04441 FLASHSUB TC FLASHON
053722,001275:
053723,001276: 10,3162 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
053724,001277: 10,3163 54157 TS COPMPAC
053725,001278:
053726,001279: 10,3164 30162 CA GENMASK
053727,001280: 10,3165 72706 MASK IDLEMASK
053728,001281: 10,3166 07724 TC UPENT2
053729,001282: 10,3167 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
053730,001283:
053731,001284: 10,3170 31074 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
053732,001285: 10,3171 50164 INDEX COPINDEX
053733,001286: 10,3172 75024 MASK BIT3
053734,001287: 10,3173 10000 CCS A
053735,001288: 10,3174 13261 TCF UNSETR1 # YES
053736,001289:
053737,001290: 10,3175 11043 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
053738,001291: 10,3176 13141 TCF ISITPRIO
053739,001292: 10,3177 13201 TCF +2
053740,001293: 10,3200 13141 TCF ISITPRIO
053741,001294:
053742,001295: 10,3201 04221 TC ENDIDLE
053743,001296: 10,3202 13273 IDLERET1 TCF TERMATE
053744,001297:
053745,001298: 10,3203 13312 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
053746,001299:
053747,001300: 10,3204 43427 CS LOWLOAD
053748,001301: 10,3205 60154 AD MPAC # VERBREG
053749,001302: 10,3206 00006 EXTEND
053750,001303: 10,3207 26000 DIM A
053751,001304: 10,3210 00006 EXTEND
053752,001305: 10,3211 13362 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
053753,001306: 10,3212 35025 OKTOENT CAF TWO
053754,001307: 10,3213 54161 ENDOUT TS OUTHERE
053755,001308:
053756,001309: 10,3214 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
053757,001310: 10,3215 74105 MASK OCT60000
053758,001311: 10,3216 10000 CCS A
053759,001312: 10,3217 13222 TCF TIMECHEK # PRIO ENDIDLE RETURN
053760,001313: 10,3220 13330 TCF NORMRET # NORMAL ENDIDLE RETURN
053761,001314: 10,3221 13314 TCF MARKRET # MARK ENDIDLE RETURN
053762,001315:
053763,001316: 10,3222 40025 TIMECHEK CS TIME1
053764,001317: 10,3223 61177 AD PRIOTIME
053765,001318: 10,3224 10000 CCS A
053766,001319: 10,3225 40000 COM
053767,001320: 10,3226 67703 AD OCT37776
053768,001321: 10,3227 65026 AD ONE
053769,001322: 10,3230 63451 AD -5SEC
053770,001323: 10,3231 00006 EXTEND
053771,001324: 10,3232 62454 BZMF KEEPPRIO
053772,001325:
053773,001326: 10,3233 13330 TCF NORMRET
053774,001327:
053775,001328: 10,3234 35026 NORMWAKE CAF ONE
053776,001329: 10,3235 12722 TCF WAKEPLAY
053777,001330:
053778,001331: 10,3236 10161 ENDRET CCS OUTHERE
053779,001332: 10,3237 65026 AD ONE
053780,001333: 10,3240 13242 TCF +2 # NORMAL ENDIDLE EXIT
053781,001334: 10,3241 15225 TCF ENDOFJOB
053782,001335: 10,3242 50157 INDEX COPMPAC
053783,001336: 10,3243 60372 AD CADRFLSH
053784,001337: 10,3244 54157 TS MPAC +3
053785,001338:
053786,001339: 10,3245 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
053787,001340: 10,3246 73250 MASK PINIDMSK
053788,001341: 10,3247 07744 TC DOWNENT2
053789,001342: 10,3250 74044 PINIDMSK OCT 74044 # *** DONT MOVE
053790,001343:
053791,001344: 10,3251 46221 CS THREE # BLANK EVERYTHING EXCEPT MM
053792,001345: 10,3252 04166 TC NVSUB
053793,001346: 10,3253 13254 TCF +1
053794,001347:
053795,001348: 10,3254 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
053796,001349: 10,3255 77677 MASK PRIO37
053797,001350: 10,3256 05216 TC PRIOCHNG
053798,001351: 10,3257 30157 CA MPAC +3
053799,001352: 10,3260 14677 TCF BANKJUMP
053800,001353:
053801,001354: 10,3261 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
053802,001355: 10,3262 45024 CS BIT3
053803,001356: 10,3263 71074 MASK R1SAVE
053804,001357: 10,3264 55074 TS R1SAVE
053805,001358:
053806,001359: 10,3265 35030 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
053807,001360: 10,3266 05002 TC SUPERSW # SUPERBANK 0
053808,001361:
053809,001362: 10,3267 36221 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
053810,001363: 10,3270 50164 IMMEDRET INDEX COPINDEX
053811,001364: 10,3271 60372 AD CADRFLSH
053812,001365: 10,3272 14677 TCF BANKJUMP
053813,001366:
053814,001367: 10,3273 35030 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
053815,001368: 10,3274 13213 TCF ENDOUT
053816,001369:
053817,001370: 10,3275 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
053818,001371: 10,3276 75011 MASK BIT14
053819,001372: 10,3277 10000 CCS A
053820,001373: 10,3300 16713 TCF Q+1 # NO
053821,001374: 10,3301 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
053822,001375: 10,3302 50164 INDEX COPINDEX
053823,001376: 10,3303 60372 AD CADRFLSH
053824,001377: 10,3304 00006 EXTEND
053825,001378: 10,3305 13307 BZF +2 # YES
053826,001379:
053827,001380: 10,3306 00002 TC Q # NO
053828,001381: 10,3307 11013 CCS DSPLOCK # IS THE ASTRONAUT BUSY
053829,001382: 10,3310 05225 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
053830,001383: 10,3311 00002 TC Q
053831,001384:
053832,001385: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
053833,001386: 10,3312 35026 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
053834,001387: 10,3313 13213 TCF ENDOUT
053835,001388:
053836,001389: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
053837,001390: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
053838,001391: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
053839,001392:
053840,001393: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
053841,001394: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
053842,001395: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
053843,001396: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
053844,001397:
053845,001398: 10,3314 46216 MARKRET CS SIX
053846,001399: 10,3315 70100 MASK FLAGWRD4
053847,001400: 10,3316 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
053848,001401: 10,3317 54100 TS FLAGWRD4
053849,001402:
053850,001403: 10,3320 00003 RELINT # INHINT REALM
053851,001404: 10,3321 13236 TCF ENDRET
053852,001405:
053853,001406: 10,3322 37721 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
053854,001407: 10,3323 54161 TS OUTHERE
053855,001408:
053856,001409: 10,3324 30100 CA FLAGWRD4 # IS ENDIDFLG SET
053857,001410: 10,3325 74367 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
053858,001411: 10,3326 10000 CCS A
053859,001412: 10,3327 12757 TCF NORMBNCH
053860,001413:
053861,001414: 10,3330 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
053862,001415: 10,3331 73425 MASK BITS5+11 # OR WAITING
053863,001416: 10,3332 10000 CCS A
053864,001417: 10,3333 12721 TCF MARKWAKE
053865,001418:
053866,001419: 10,3334 30100 CA FLAGWRD4 # NO
053867,001420: 10,3335 73426 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
053868,001421: 10,3336 10000 CCS A
053869,001422: 10,3337 13234 TCF NORMWAKE # YES
053870,001423:
053871,001424: 10,3340 31072 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
053872,001425: 10,3341 75041 MASK OCT50 # OR A GODSPRET
053873,001426: 10,3342 10000 CCS A
053874,001427: 10,3343 13236 TCF ENDRET # YES
053875,001428: 10,3344 30371 CA NVSAVE
053876,001429: 10,3345 00006 EXTEND
053877,001430: 10,3346 13236 BZF ENDRET
053878,001431:
053879,001432: 10,3347 35075 CAF PRIO15
053880,001433: 10,3350 00004 INHINT
053881,001434: 10,3351 05142 TC NOVAC
053882,001435: 10,3352 0367 EBANK= NVWORD
053883,001436: 10,3352 02524 20060 2CADR PLAYJUM1
053884,001437:
053885,001438:
053886,001439: 10,3354 13236 TCF ENDRET
053887,001440:
053888,001441: 10,3355 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
053889,001442: 10,3356 73425 MASK BITS5+11
053890,001443: 10,3357 10000 CCS A
053891,001444: 10,3360 15225 TCF ENDOFJOB # YES
053892,001445: 10,3361 12652 TCF GOSLEEPS
053893,001446:
053894,001447: 10,3362 50157 LOADITIS INDEX COPMPAC
053895,001448: 10,3363 30367 CA NVWORD
053896,001449: 10,3364 76050 MASK LOW7
053897,001450: 10,3365 40000 COM
053898,001451: 10,3366 60155 AD MPAC +1 # NOUNREG
053899,001452: 10,3367 00006 EXTEND
053900,001453: 10,3370 13212 BZF OKTOENT # NO, THEN LOAD IS VALID
053901,001454: 10,3371 12746 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
053902,001455:
053903,001456: 10,3372 46221 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
053904,001457: 10,3373 04166 TC NVSUB
053905,001458: 10,3374 15225 TCF ENDOFJOB
053906,001459: 10,3375 15225 TCF ENDOFJOB
053907,001460:
053908,001461: 10,3376 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
053909,001462: 10,3377 00231 V01N25 VN 00125
053910,001463: 10,3400 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
053911,001464: 10,3401 14400 V50N00 VN 5000
053912,001465: 10,3402 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
053913,001466: 10,3403 01006 V04N06 VN 00406
053914,001467: 10,3404 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
053915,001468: 10,3405 10,2746 GOAGIN EQUALS PINBRNCH
053916,001469: 10,3405 20010 REDOMASK OCT 20010 # BITS 4 AND 14
053917,001470: 10,3406 40230 MARK3MSK OCT 40230 # MARK,DECIMAL NOUN, PERFORM,FLASH
053918,001471: 10,3407 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
053919,001472: 10,3410 20452 NVCADR CADR REDOPRIO
053920,001473: 10,3411 20313 WAKECADR CADR MARKPLAY
053921,001474: 10,3412 20524 CADR PLAYJUM1
053922,001475:
053923,001476: 10,3413 03400 OCT3400 OCT 3400 # EBANK MASK
053924,001477: 10,3414 11210 NBUSMASK OCT 11210
053925,001478: 10,3415 66521 PMMASK OCT 66521
053926,001479: 10,3416 4156 VERBMASK = MID7 # (OCT 37600)
053927,001480: 10,3416 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
053928,001481: 10,3417 10,2222 GOXDSP EQUALS GOMARK
053929,001482: 10,3417 10,2242 GOXDSPR EQUALS GOMARKR
053930,001483: 10,3417 10,2226 GOXDSPF EQUALS GOMARKF
053931,001484: 10,3417 10,2245 GOXDSPFR EQUALS GOMARKFR
053932,001485: 10,3417 5561 ENDEXT EQUALS ENDMARK
053933,001486: 10,3417 0165 MPAC2SAV EQUALS BANKSET
053934,001487: 10,3417 00700 NVBUSMSK OCT 700
053935,001488: 10,3420 00704 ASTROMSK OCT 704
053936,001489: 10,3421 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
053937,001490: 10,3422 34300 OCT34300 OCT 34300
053938,001491: 10,3423 40100 BITS15+7 OCT 40100
053939,001492: 10,3424 00110 BITS7+4 OCT 110
053940,001493: 10,3425 1070 DSPFLG EQUALS EBANKSAV
053941,001494: 10,3425 1071 MARKFLAG EQUALS MARKEBAN
053942,001495: 10,3425 1072 SAVEFLAG EQUALS EBANKTEM
053943,001496: 10,3425 02020 BITS5+11 OCT 2020 # * DONT MOVE
053944,001497: 10,3426 01010 BITS4+10 OCT 1010 # * DONT MOVE
053945,001498: 10,3427 00026 LOWLOAD DEC 22 B-14
053946,001499: 10,3430 77730 BUSYMASK OCT 77730
053947,001500: 10,3431 00050 CADRMASK OCT 50
053948,001501: 10,3432 7711 PINMASK EQUALS 13,14,15
053949,001502: 10,3432 10,2766 GOPLAY EQUALS NVDSP
053950,001503: # PRIOSAVE EQUALS R1SAVE
053951,001504: 10,3432 0157 COPMPAC EQUALS MPAC +3
053952,001505: 10,3432 0160 TEMPOR2 EQUALS MPAC +4
053953,001506: 10,3432 0161 OUTHERE EQUALS MPAC +5
053954,001507: 10,3432 0164 COPINDEX EQUALS LOC
053955,001508: 10,3432 0163 USERPRIO EQUALS MODE
053956,001509: 10,3432 0162 GENMASK EQUALS MPAC +6
053957,001510: 10,3432 20144 PRIOOCT OCT 20144 # PRIO
053958,001511: 10,3433 42424 MARKOCT OCT 42424 # MARK
053959,001512: 10,3434 11254 OCT 11254 # NORM
053960,001513:
053961,001514: 10,3435 74704 IDLESLEP OCT 74704
053962,001515: 10,3436 67777 OCT67777 OCT 67777
053963,001516: 10,3437 5553 LINUS EQUALS BLANKET
053964,001517: 10,3437 0154 FACEREG EQUALS MPAC
053965,001518: 10,3437 0155 PLAYTEM1 EQUALS MPAC +1
053966,001519: 10,3437 0157 PLAYTEM3 EQUALS MPAC +3
053967,001520: 10,3437 0160 PLAYTEM4 EQUALS MPAC +4
053968,001521: 10,3437 40420 OCT40420 OCT 40420
053969,001522: 10,3440 02456 MAKEGEN GENADR MAKEPLAY
053970,001523: 10,3441 10200 OCT10200 OCT 10200
053971,001524: 10,3442 30600 V99N00 VN 09900 # PASTE FOR V99
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc