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