Source Code
061309,000001: # Copyright: Public domain.
061310,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc
061311,000003: # Purpose: Part of the source code for Colossus, build 249.
061312,000004: # It is part of the source code for the Command Module's (CM)
061313,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
061314,000006: # Assembler: yaYUL
061315,000007: # Reference: Starts on p. 1442 of 1701.pdf.
061316,000008: # Contact: Ron Burkey <info@sandroid.org>.
061317,000009: # Website: www.ibiblio.org/apollo.
061318,000010: # Mod history: 08/30/04 RSB. Adapted from corresponding Luminary131 file.
061319,000011:
061320,000012: # The contents of the "Colossus249" files, in general, are transcribed
061321,000013: # from a scanned document obtained from MIT's website,
061322,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
061323,000015: # document read, in part:
061324,000016:
061325,000017: # Assemble revision 249 of AGC program Colossus by NASA
061326,000018: # 2021111-041. October 28, 1968.
061327,000019:
061328,000020: # This AGC program shall also be referred to as
061329,000021: # Colossus 1A
061330,000022:
061331,000023: # Prepared by
061332,000024: # Massachussets Institute of Technology
061333,000025: # 75 Cambridge Parkway
061334,000026: # Cambridge, Massachusetts
061335,000027: # under NASA contract NAS 9-4065.
061336,000028:
061337,000029: # Refer directly to the online document mentioned above for further information.
061338,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
061339,000031:
061340,000032: # In some cases, where the source code for Luminary 131 overlaps that of
061341,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
061342,000034: # source file, and then is proofed to incorporate any changes.
061343,000035:
061344,000036: # Page 1442
061345,000037: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --
061346,000038: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
061347,000039: # OUT UNDER CRITICAL ALARM CONDITIONS.
061348,000040: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
061349,000041: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
061350,000042: # SEQUENCE OF EVENTS.
061351,000043: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
061352,000044: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
061353,000045: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY.
061354,000046:
061355,000047: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS --
061356,000048: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
061357,000049: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
061358,000050: # BUT NOT WAITING FOR A RESPONSE.
061359,000051: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
061360,000052: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
061361,000053: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
061362,000054: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
061363,000055: # HAS INFO SAVED FOR RESTART PURPOSES.
061364,000056:
061365,000057: # DISPLAY PRIORITIES WORK AS FOLLOWS --
061366,000058: # INTERRUPTS --
061367,000059: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
061368,000060: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
061369,000061: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
061370,000062: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR TEH LINUS ROUTINE.
061371,000063: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
061372,000064: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
061373,000065:
061374,000066: # ORDER OF WAITING DISPLAYS --
061375,000067: # 1. ASTRONAUT
061376,000068: # 2. PRIORITY
061377,000069: # 3. INTERRUPTED MARK
061378,000070: # 4. INTERRUPTED NORMAL
061379,000071: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
061380,000072: # 6. MARK WAITING
061381,000073: # 7. NORMAL WAITING
061382,000074:
061383,000075: # Page 1443
061384,000076: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
061385,000077: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
061386,000078: # WILL FOLLOW LATER):
061387,000079: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
061388,000080: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
061389,000081: # IS TO THE USER'S CALLING LOC +1.
061390,000082: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
061391,000083: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY.
061392,000084: # 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
061393,000085: # USER'S JOB.
061394,000086: # 5. ALL DISPLAY ROUTIENS ARE CALLED VIA BANKCALL.
061395,000087: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
061396,000088: # DESCRIPTION OF RESTARTS).
061397,000089: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES
061398,000090: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE
061399,000091: # (V32) BRANCHES TO THE USER'S CALL CADR +3.
061400,000092: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
061401,000093:
061402,000094: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
061403,000095: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
061404,000096: # 1. GODSP IS NOT RESTARTABLE
061405,000097: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
061406,000098: # CAF VXXNYY
061407,000099: # TC BANKCALL
061408,000100: # CADR GODSP
061409,000101: # VXXNYY OCT OXXYY
061410,000102: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
061411,000103: # CAF VXXNYY
061412,000104: # TC BANKCALL
061413,000105: # CADR GODSPR
061414,000106: # ... ... # IMMEDIATE RETURN OF GODSPR
061415,000107: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
061416,000108: # THE ASTRONAUT (SEE NO. 7 ABOVE).
061417,000109: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN.
061418,000110: # TC BANKCALL
061419,000111: # CADR GOFLASH
061420,000112: # ... ... # TERMINATE RETURN
061421,000113: # ... ... # PROCEED RETURN
061422,000114: # ... ... # ENTER OR RECYCLE RETURN
061423,000115: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
061424,000116: # Page 1444
061425,000117: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
061426,000118: # USER (SEE NO. 7 ABOVE).
061427,000119: # GOPERF1 BLANKS REGISTERS R2 AND R3
061428,000120: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX
061429,000121: # TC BANKCALL
061430,000122: # CADR GOPERF1
061431,000123: # ... ... # TERMINATE RETURN
061432,000124: # ... ... # PROCEED RETURN
061433,000125: # ... ... # ENTER RETURN
061434,000126: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
061435,000127: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
061436,000128: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
061437,000129: # GOPERF2 DOES NOT BLANK ANY REGISTERS
061438,000130: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01.
061439,000131: # TC BANKCALL
061440,000132: # CADR GOPERF2
061441,000133: # ... ... # TERMINATE RETURN
061442,000134: # ... ... # PROCEED RETURN
061443,000135: # ... ... # ENTER RETURN
061444,000136: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
061445,000137: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
061446,000138: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
061447,000139: # GOPERF3 BLANKS REGISTERS R2 AND R3
061448,000140: # CAF DECXX # REQUEST PERFORM ON PXX
061449,000141: # TC BANKCALL
061450,000142: # CADR GOPERF3
061451,000143: # ... ... # TERMINATE RETURN
061452,000144: # ... ... # PROCEED RETURN
061453,000145: # ... ... # ENTER RETURN
061454,000146: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
061455,000147: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
061456,000148: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
061457,000149: # CAF OCTXX # REQUEST PERFORM ON OPTION XX
061458,000150: # TC BANKCALL
061459,000151: # CADR GOPERF4
061460,000152: # ... ... # TERMINATE RETURN
061461,000153: # ... ... # PROCEED RETURN
061462,000154: # ... ... # ENTER RETURN
061463,000155: # GOPERF4 BLANKS REGISTER R3.
061464,000156:
061465,000157: # Page 1445
061466,000158: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
061467,000159: # OUT.
061468,000160: # CAF VXXXNYY
061469,000161: # TC BANKCALL
061470,000162: # CADR GODSPRET
061471,000163: # ... ... # RETURN TO USER.
061472,000164: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES AND
061473,000165: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061474,000166: # CAF VXXNYY
061475,000167: # TC BANKCALL
061476,000168: # CADR REGODSP
061477,000169: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061478,000170: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
061479,000171: # TC BANKCALL
061480,000172: # CADR REFLASH
061481,000173: # ... ... # TERMINATE RETURN
061482,000174: # ... ... # PROCEED RETURN
061483,000175: # ... ... # ENTER RETURN
061484,000176: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
061485,000177: # CAF VXXNYY
061486,000178: # TC BANKCALL
061487,000179: # CADR GOFLASHR
061488,000180: # ... ... # TERMINATE RETURN
061489,000181: # ... ... # PROCEED RETURN
061490,000182: # ... ... # ENTER OR RECYCLE RETURN
061491,000183: # ... ... # IMMEDIATE RETURN FROM GOFLASHR
061492,000184: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4.
061493,000185: # GOPERF1R BLANKS REGISTERS R2 AND R3
061494,000186: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX.
061495,000187: # TC BANKCALL
061496,000188: # CADR GOPERF1R
061497,000189: # ... ... # TERMINATE RETURN
061498,000190: # ... ... # PROCEED RETURN
061499,000191: # ... ... # ENTER RETURN
061500,000192: # ... ... # IMMEDIATE RETURN FROM GOPERF1R
061501,000193: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
061502,000194: # Page 1446
061503,000195: # GOPERF2R DOES NOT BLANK ANY REGISTERS
061504,000196: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01
061505,000197: # TC BANKCALL
061506,000198: # CADR GOPERF2R
061507,000199: # ... ... # TERMINATE RETURN
061508,000200: # ... ... # PROCEED RETURN
061509,000201: # ... ... # ENTER RETURN
061510,000202: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R
061511,000203: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
061512,000204: # GOPERF3R BLANKS REGISTERS R2 AND R3
061513,000205: # CAF PROGXX # PERFORM PROGRAM XX
061514,000206: # TC BANKCALL
061515,000207: # CADR GOPERF3R
061516,000208: # ... ... # TERMINATE RETURN
061517,000209: # ... ... # PROCEED RETURN
061518,000210: # ... ... # ENTER RETURN
061519,000211: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE
061520,000212: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4.
061521,000213: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX
061522,000214: # TC BANKCALL
061523,000215: # CADR GOPERF4R
061524,000216: # ... ... # TERMINATE RETURN
061525,000217: # ... ... # PROCEED RETURN
061526,000218: # ... ... # ENTER RETURN
061527,000219: # ... ... # IMMEDIATE RETURN TO USER
061528,000220: # GOPERF4R BLANKS REGISTER R3.
061529,000221:
061530,000222: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
061531,000223: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
061532,000224: # TC BANKCALL
061533,000225: # CADR REFLASHR
061534,000226: # ... ... # TERMINATE RETURN
061535,000227: # ... ... # PROCEED RETURN
061536,000228: # ... ... # ENTER RETURN
061537,000229: # ... ... # IMMEDIATE RETURN TO USER
061538,000230: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
061539,000231: # Page 1447
061540,000232: # CAF VXXNYY
061541,000233: # TC BANKCALL
061542,000234: # CADR REGODSPR
061543,000235: # ... ... # IMMEDIATE RETURN TO USER
061544,000236: # Page 1448
061545,000237: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
061546,000238: # GOXDSP = GOMARK
061547,000239: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN
061548,000240: # TC BANKCALL
061549,000241: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP
061550,000242: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
061551,000243: # GOXDSPR = GOMARKR
061552,000244: # CAF VXXNYY
061553,000245: # TC BANKCALL
061554,000246: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR
061555,000247: # ... ... # IMMEDIATE RETURN OF GOMARKR
061556,000248: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
061557,000249: # THE ASTRONAUT (SEE NO. 7 ABOVE).
061558,000250: # GOXDSPF = GOMARKF
061559,000251: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN
061560,000252: # TC BANKCALL
061561,000253: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
061562,000254: # ... ... # TERMINATE RETURN
061563,000255: # ... ... # PROCEED RETURN
061564,000256: # ... ... # ENTER OR RECYCLE RETURN
061565,000257: # ... ... # IMMEDIATE RETURN TO THE USER
061566,000258: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
061567,000259: # GOXDSPFR = GOMARKFR
061568,000260: # CAF VXXNYY # FLASHING MARK VERB NOUN
061569,000261: # TCF BANKCALL
061570,000262: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
061571,000263: # ... ... # TERMINATE RETURN
061572,000264: # ... ... # PROCEED RETURN
061573,000265: # ... ... # ENTER OR RECYCLE RETURN
061574,000266: #
061575,000267: # ... ... # IMMEDIATE RETURN TO THE USER
061576,000268: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
061577,000269: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
061578,000270: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
061579,000271: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
061580,000272: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
061581,000273: # TC BANKCALL
061582,000274: # Page 1449
061583,000275: # CADR GOMARK1
061584,000276: # ... ... # ENTER RETURN
061585,000277: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER.
061586,000278:
061587,000279: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2.
061588,000280: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
061589,000281: # TC BANKCALL
061590,000282: # CADR GOMARK1R
061591,000283: # ... ... # ASTRONAUT ENTER RETURN
061592,000284: # ... ... # IMMEDIATE RETURN TO USER
061593,000285: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
061594,000286: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
061595,000287: # TC BANKCALL
061596,000288: # CADR GOMARK2
061597,000289: # ... ... # TERMINATE RETURN
061598,000290: # ... ... # PROCEED RETURN
061599,000291: # ... ... # ENTER RETURN
061600,000292: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
061601,000293: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN
061602,000294: # TCF BANKCALL
061603,000295: # CADR GOMARK24
061604,000296: # ... ... # TERMINATE RETURN
061605,000297: # ... ... # PROCEED RETURN
061606,000298: # ... ... # ENTER RETURN
061607,000299: # ... ... # IMMEDIATE RETURN TO THE USER.
061608,000300: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
061609,000301: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
061610,000302: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
061611,000303: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
061612,000304: # TC BANKCALL
061613,000305: # CADR GOMARK3
061614,000306: # ... ... # TERMINATE RETURN
061615,000307: # ... ... # PROCEED RETURN
061616,000308: # ... ... # ENTER RETURN
061617,000309: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
061618,000310: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
061619,000311: # TC BANKCALL
061620,000312: # CADR GOMARK4
061621,000313: # ... ... # TERMINATE RETURN
061622,000314: # ... ... # PROCEED RETURN
061623,000315: # Page 1450
061624,000316: # ... ... # ENTER RETURN
061625,000317: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
061626,000318: # SEND OUT.
061627,000319: # CAF VXNYY
061628,000320: # TC BANKCALL
061629,000321: # CADR EXDSPRET
061630,000322: # ... ... # RETURN TO USER
061631,000323: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
061632,000324: # HAVE BEEN CLEANED OUT.
061633,000325: # TC BANKCALL
061634,000326: # CADR KLEENEX
061635,000327: # ... ... # RETURN TO USER
061636,000328: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
061637,000329: # TC BANKCALL
061638,000330: # CADR MARKBRAN
061639,000331: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE
061640,000332: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
061641,000333: # # LAST FLASHING MARK R ROUTINE)
061642,000334: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
061643,000335: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
061644,000336: # TC POSTJUMP
061645,000337: # CADR PINBRNCH
061646,000338: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
061647,000339: # THE ASTRONAUT (SEE NO. 7 ABOVE).
061648,000340:
061649,000341: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
061650,000342: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
061651,000343: # IS RESPONDED TO BY THE ASTRONAUT.
061652,000344:
061653,000345: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
061654,000346: # PRIO DISPLAY
061655,000347: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
061656,000348: # TC BANKCALL
061657,000349: # CADR PRIODSP
061658,000350: # ... ... # TERMINATE RETURN
061659,000351: # ... ... # PROCEED RETURN
061660,000352: # Page 1451
061661,000353: # ... ... # ENTER OR RECYCLE RETURN
061662,000354: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
061663,000355: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
061664,000356: # TC BANKCALL
061665,000357: # CADR PRIODSPR
061666,000358: # ... ... # TERMINATE ACTION
061667,000359: # ... ... # PROCEED RETURN
061668,000360: # ... ... # ENTER OR RECYCLE RETURN
061669,000361: # ... ... # IMMEDIATE RETURN
061670,000362: # PRIOLARM DOES A V05N09 PRIODSPR.
061671,000363:
061672,000364: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
061673,000365: # DISPLAYS ARE CLEANED OUT.
061674,000366: # TC BANKCALL
061675,000367: # CADR CLEANDSP
061676,000368: # ... ... # RETURN TO USER
061677,000369: # Page 1452
061678,000370:
061679,000371: # GENERAL INFORMATION
061680,000372: # -------------------
061681,000373:
061682,000374: # ALARM OR ABORT EXIT MODE --
061683,000375: # PRIOBORT TC ABORT
061684,000376: # OCT 1502
061685,000377:
061686,000378: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
061687,000379: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
061688,000380: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
061689,000381:
061690,000382: # ERASABLE INITIALIZATION REQUIRED --
061691,000383: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
061692,000384: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
061693,000385: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
061694,000386: # 5. R1SAVE = MARKBRAN CONTROL WORD
061695,000387: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
061696,000388:
061697,000389: # OUTPUT --
061698,000390: # NVWORD = PRIO VERB AND NOUN
061699,000391: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
061700,000392: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
061701,000393: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
061702,000394: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
061703,000395: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK)
061704,000396: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
061705,000397: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
061706,000398: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION
061707,000399: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
061708,000400: # OPTION1 = DESIRED OPTION FROM GOPERF4
061709,000401: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
061710,000402: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
061711,000403:
061712,000404: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
061713,000405: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC
061714,000406:
061715,000407: # DEBRIS -- (STORED INTO)
061716,000408: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL,
061717,000409: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG
061718,000410: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTORE, DSPLIST, LOC, DSPTEM1, OPTION1
061719,000411: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
061720,000412: # Page 1453
061721,000413: # R1SAVE, MARK2PAC
061722,000414:
061723,000415: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1
061724,000416:
061725,000417: # FLAGWORD DESCRIPTIONS --
061726,000418: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
061727,000419:
061728,000420: # DSPFLG, DSPFLG+1, DSPFLG+2
061729,000421: # --------------------------
061730,000422: # BITS 1 BLANK R1
061731,000423: # 2 BLANK R2
061732,000424: # 3 BLANK R3
061733,000425: # 4 FLASHING DISPLAY REQUESTED
061734,000426: # 5 PERFORM DISPLAY REQUESTED
061735,000427: # 6 ----- EXDSPRET GODSPRET
061736,000428: # 7 PRIO DISPLAY ----- -----
061737,000429: # 8 ----- DEC MARK PERFORM -----
061738,000430: # 9 EBANK
061739,000431: # 10 EBANK
061740,000432: # 11 EBANK
061741,000433: # 12 ----- ----- V99PASTE
061742,000434: # 13 2ND PART OF PERFORM
061743,000435: # 14 REFLASH OR REDO ----- REFLASH OR REDO
061744,000436: # 15 ----- MARK REQUEST -----
061745,000437:
061746,000438: # RESTARTING DISPLAYS --
061747,000439:
061748,000440: # RULES FOR THE DSKY OPERATOR --
061749,000441: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N). AS LONG
061750,000442: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
061751,000443: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
061752,000444: # WITH PROCEED AND TERMINATE FOR THIS REASON.
061753,000445: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
061754,000446: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
061755,000447: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
061756,000448: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
061757,000449: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
061758,000450: # CONSIDERATION.
061759,000451: # 3. KEY RELEASE BUTTON --
061760,000452: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
061761,000453: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
061762,000454: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
061763,000455: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
061764,000456: # KEY RELEASE BUTTON MAY BE NECESSARY.
061765,000457: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
061766,000458: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
061767,000459: # OVER AGAIN.
061768,000460:
061769,000461: # SPECIAL CONSIDERATONS --
061770,000462: # Page 1454
061771,000463: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
061772,000464: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
061773,000465: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
061774,000466: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
061775,000467: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
061776,000468: # BY A .1 RESTART PHASE CHANGE.
061777,000469: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
061778,000470: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
061779,000471: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
061780,000472:
061781,000473: # Page 1455
061782,000474: # CALLING SEQUENCE FOR BLANKING
061783,000475: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
061784,000476: # TC BLANKET
061785,000477: # ... ... # RETURN TO USER HERE
061786,000478: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
061787,000479: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
061788,000480: 5415 BLOCK 02
061789,000481: 4000 SETLOC FFTAG4
061790,000482: 4000 BANK
061791,000483:
061792,000484: 5415 COUNT 02/DSPLA
061793,000485:
061794,000486: 5415 54162 BLANKET TS MPAC +6
061795,000487: 5416 40160 CS PLAYTEM4
061796,000488: 5417 70162 MASK MPAC +6
061797,000489: 5420 50161 INDEX MPAC +5
061798,000490: 5421 26160 ADS PLAYTEM4
061799,000491:
061800,000492: 5422 00002 TC Q
061801,000493:
061802,000494: 5423 04574 ENDMARK TC POSTJUMP
061803,000495: 5424 20457 CADR MARKEND
061804,000496:
061805,000497: 5425 34714 CLEARMRK CAF ZERO
061806,000498: 5426 55044 TS EXTVBACT
061807,000499:
061808,000500: 5427 00004 INHINT
061809,000501: 5430 44712 CS BIT1
061810,000502: 5431 70100 MASK FLAGWRD4
061811,000503: 5432 54100 TS FLAGWRD4
061812,000504:
061813,000505: 5433 00003 RELINT
061814,000506: 5434 00002 TC Q
061815,000507:
061816,000508: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
061817,000509: # FINISHED.
061818,000510:
061819,000511: 10,2457 BANK 10
061820,000512: 10,2000 SETLOC DISPLAYS
061821,000513: 10,2000 BANK
061822,000514:
061823,000515: 10,2457 COUNT 10/DSPLA
061824,000516:
061825,000517: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH
061826,000518: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
061827,000519:
061828,000520: 10,2457 05425 MARKEND TC CLEARMRK
061829,000521: 10,2460 13547 TCF MARKOVER
061830,000522:
061831,000523: # Page 1456
061832,000524: 10,2461 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
061833,000525:
061834,000526: 10,2462 34674 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
061835,000527: 10,2463 12626 TCF GOFLASH2
061836,000528:
061837,000529: 10,2464 34714 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
061838,000530: 10,2465 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
061839,000531:
061840,000532: 10,2466 33157 CAF MARKFMSK # MARK, FLASH
061841,000533: 10,2467 12626 TCF GOFLASH2
061842,000534:
061843,000535: 10,2470 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
061844,000536: 10,2471 33646 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
061845,000537: 10,2472 12626 TCF GOFLASH2
061846,000538:
061847,000539: 10,2473 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
061848,000540: 10,2474 33633 CAF MARK3MSK
061849,000541: 10,2475 12626 TCF GOFLASH2
061850,000542:
061851,000543: 10,2476 54155 GOMARK4 TS PLAYTEM1
061852,000544: 10,2477 33634 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
061853,000545: 10,2500 12626 TCF GOFLASH2
061854,000546:
061855,000547: 10,2501 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR
061856,000548:
061857,000549: 10,2502 34674 CAF BIT15
061858,000550: 10,2503 12604 TCF GODSPR2
061859,000551:
061860,000552: 10,2504 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
061861,000553:
061862,000554: 10,2505 33157 CAF MARKFMSK
061863,000555: 10,2506 12765 TCF GODSPRS
061864,000556:
061865,000557: 10,2507 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
061866,000558: 10,2510 33646 CAF MPERFMSK # MARK, PERFORM, FLASH
061867,000559: 10,2511 12765 TCF GODSPRS
061868,000560:
061869,000561: 10,2512 54155 GOMARK3R TS PLAYTEM1
061870,000562: 10,2513 33633 CAF MARK3MSK
061871,000563: 10,2514 12765 TCF GODSPRS
061872,000564:
061873,000565: 10,2515 34712 MAKEMARK CAF ONE
061874,000566: 10,2516 03063 TC COPIES
061875,000567:
061876,000568: 10,2517 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
061877,000569: 10,2520 73647 MASK OCT34300
061878,000570: 10,2521 10000 CCS A
061879,000571: 10,2522 12560 TCF CHKPRIO
061880,000572:
061881,000573: 10,2523 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY?
061882,000574: # Page 1457
061883,000575: 10,2524 74702 MASK BIT9
061884,000576:
061885,000577: 10,2525 00006 EXTEND
061886,000578: 10,2526 12530 BZF MARKPLAY # NO
061887,000579:
061888,000580: 10,2527 15112 TCF ENDOFJOB
061889,000581:
061890,000582: 10,2530 00004 MARKPLAY INHINT
061891,000583: 10,2531 44715 CS FIVE # RESET MARK OVER NORM, SET MARK
061892,000584: 10,2532 70100 MASK FLAGWRD4
061893,000585: 10,2533 64712 AD ONE
061894,000586: 10,2534 54100 TS FLAGWRD4
061895,000587: 10,2535 00003 RELINT
061896,000588:
061897,000589: 10,2536 41070 GOGOMARK CS MARKFLAG # PERFORM
061898,000590: 10,2537 74706 MASK BIT5
061899,000591: 10,2540 10000 CCS A
061900,000592: 10,2541 12544 TCF MARKCOP
061901,000593: 10,2542 40370 CS MARKNV
061902,000594: 10,2543 54370 TS MARKNV
061903,000595:
061904,000596: 10,2544 34712 MARKCOP CAF ONE # MARK INDEX
061905,000597: 10,2545 12744 TCF PRIOPLAY
061906,000598:
061907,000599: 10,2546 30165 COPYTOGO CA MPAC2SAV
061908,000600: 10,2547 54156 TS MPAC +2
061909,000601:
061910,000602: 10,2550 50164 COPYPACS INDEX COPINDEX
061911,000603: 10,2551 33657 CAF PRIOOCT
061912,000604: 10,2552 54162 TS GENMASK
061913,000605:
061914,000606: 10,2553 50164 INDEX COPINDEX
061915,000607: 10,2554 31067 CA EBANKSAV # Was CAF --- RSB 2004.
061916,000608: 10,2555 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
061917,000609:
061918,000610: 10,2556 54003 TS EBANK
061919,000611:
061920,000612: 10,2557 00002 TC Q
061921,000613:
061922,000614: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY
061923,000615: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
061924,000616: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
061925,000617: # UNTIL ALL MARKING IS FINISHED.
061926,000618:
061927,000619: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
061928,000620: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
061929,000621:
061930,000622: 10,2560 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
061931,000623: 10,2561 73402 MASK OCT24100
061932,000624: 10,2562 10000 CCS A
061933,000625: 10,2563 13602 TCF MARSLEEP
061934,000626:
061935,000627: # Page 1458
061936,000628: 10,2564 40100 CS FLAGWRD4
061937,000629: 10,2565 74710 MASK BIT3 # SET MARK OVER NORM
061938,000630: 10,2566 00004 INHINT
061939,000631: 10,2567 26100 ADS FLAGWRD4
061940,000632:
061941,000633: 10,2570 12662 TCF SETNORM
061942,000634:
061943,000635: 10,2571 30370 MARKPERF CA MARKNV
061944,000636: 10,2572 74160 MASK VERBMASK
061945,000637: 10,2573 13246 TCF NV50DSP
061946,000638:
061947,000639: 10,2574 54155 GODSP TS PLAYTEM1
061948,000640:
061949,000641: 10,2575 34714 GODSP2 CAF ZERO
061950,000642: 10,2576 12626 TCF GOFLASH2
061951,000643:
061952,000644: 10,2577 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
061953,000645:
061954,000646: 10,2600 34705 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
061955,000647: 10,2601 12626 TCF GOFLASH2
061956,000648:
061957,000649: 10,2602 54155 GODSPR TS PLAYTEM1
061958,000650:
061959,000651: 10,2603 34714 GODSPR1 CAF ZERO
061960,000652: 10,2604 54160 GODSPR2 TS PLAYTEM4
061961,000653:
061962,000654: 10,2605 34714 CAF ZERO # * DON'T MOVE
061963,000655: 10,2606 12767 TCF GODSPRS1
061964,000656:
061965,000657: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
061966,000658: # SET UP TO BE STARTED OR RESTARTED.
061967,000659:
061968,000660: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
061969,000661: # OLD DISPLAY.
061970,000662:
061971,000663: # CALLING SEQUENCE FOR CLEANDSP --
061972,000664:
061973,000665: # TC BANKCALL
061974,000666: # CADR CLEANDSP
061975,000667:
061976,000668: 10,2607 34714 CLEANDSP CAF ZERO
061977,000669: 10,2610 54155 REFLASH TS PLAYTEM1
061978,000670:
061979,000671: 10,2611 33632 CAF REDOMASK # FLASH AND PERMIT
061980,000672: 10,2612 12626 TCF GOFLASH2
061981,000673:
061982,000674: 10,2613 54155 REFLASHR TS PLAYTEM1
061983,000675:
061984,000676: 10,2614 33632 CAF REDOMASK # FLASH AND PERMIT
061985,000677: 10,2615 12765 TCF GODSPRS
061986,000678:
061987,000679: # Page 1459
061988,000680: 10,2616 54155 REGODSP TS PLAYTEM1
061989,000681:
061990,000682: 10,2617 34675 CAF BIT14
061991,000683: 10,2620 12626 TCF GOFLASH2
061992,000684:
061993,000685: 10,2621 54155 REGODSPR TS PLAYTEM1
061994,000686:
061995,000687: 10,2622 34675 CAF BIT14
061996,000688: 10,2623 12604 TCF GODSPR2
061997,000689:
061998,000690: 10,2624 54155 GOFLASH TS PLAYTEM1
061999,000691:
062000,000692: 10,2625 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET
062001,000693: 10,2626 54160 GOFLASH2 TS PLAYTEM4
062002,000694:
062003,000695: 10,2627 03050 TC SAVELOCS
062004,000696:
062005,000697: 10,2630 00003 RELINT
062006,000698:
062007,000699: 10,2631 12674 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
062008,000700:
062009,000701: 10,2632 54155 PRIODSPR TS PLAYTEM1
062010,000702:
062011,000703: 10,2633 33651 CAF BITS7+4
062012,000704: 10,2634 12765 TCF GODSPRS
062013,000705:
062014,000706: 10,2635 54155 PRIODSP TS PLAYTEM1
062015,000707:
062016,000708: 10,2636 33651 SETPRIO CAF BITS7+4
062017,000709: 10,2637 12626 TCF GOFLASH2
062018,000710:
062019,000711: 10,2640 34714 MAKEPRIO CAF ZERO
062020,000712: 10,2641 54164 TS COPINDEX
062021,000713:
062022,000714: 10,2642 03522 TC LINUSCHR
062023,000715: 10,2643 12650 TCF HIPRIO # LINUS RETURN
062024,000716: 10,2644 30100 CA FLAGWRD4
062025,000717: 10,2645 73670 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
062026,000718: 10,2646 10000 CCS A
062027,000719: 10,2647 12723 TCF PRIOBORT # YES, ABORT
062028,000720:
062029,000721: 10,2650 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
062030,000722: 10,2651 75612 MASK OCT40400
062031,000723: 10,2652 00006 EXTEND
062032,000724: 10,2653 12656 BZF ASKIFNRM # NO
062033,000725:
062034,000726: 10,2654 34714 SETMARK CAF ZERO
062035,000727: 10,2655 13122 TCF JOBXCHS
062036,000728:
062037,000729: 10,2656 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
062038,000730: # Page 1460
062039,000731: 10,2657 73666 MASK OCT10200 # BITS 13+8
062040,000732: 10,2660 00006 EXTEND
062041,000733: 10,2661 12664 BZF OKTOCOPY # NO
062042,000734:
062043,000735: 10,2662 34712 SETNORM CAF ONE
062044,000736: 10,2663 13122 TCF JOBXCHS
062045,000737:
062046,000738: 10,2664 03062 OKTOCOPY TC COPYNORM
062047,000739: 10,2665 03333 TC WITCHONE
062048,000740:
062049,000741: 10,2666 05074 TC JOBWAKE
062050,000742:
062051,000743: 10,2667 03350 TC XCHTOEND
062052,000744:
062053,000745: 10,2670 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
062054,000746: 10,2671 55147 TS PRIOTIME
062055,000747:
062056,000748: 10,2672 34714 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
062057,000749: 10,2673 12744 TCF PRIOPLAY
062058,000750:
062059,000751: 10,2674 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY
062060,000752: 10,2675 77674 MASK PRIO37
062061,000753: 10,2676 54163 TS USERPRIO
062062,000754:
062063,000755: 10,2677 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
062064,000756: 10,2700 05103 TC PRIOCHNG
062065,000757:
062066,000758: 10,2701 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
062067,000759: 10,2702 73650 MASK BITS15+7
062068,000760: 10,2703 10000 CCS A
062069,000761: 10,2704 12640 TCF MAKEPRIO # ITS PRIO
062070,000762: 10,2705 12707 TCF IFLEGAL
062071,000763: 10,2706 12515 TCF MAKEMARK # ITS MARK
062072,000764:
062073,000765: 10,2707 34711 IFLEGAL CAF TWO
062074,000766: 10,2710 54164 TS COPINDEX
062075,000767:
062076,000768: 10,2711 03522 TC LINUSCHR
062077,000769:
062078,000770: 10,2712 12725 TCF OKTOPLAY # LINUS RETURN
062079,000771: 10,2713 41071 CS EBANKTEM
062080,000772: 10,2714 74707 MASK BIT4
062081,000773: 10,2715 10000 CCS A
062082,000774: 10,2716 12725 TCF OKTOPLAY # NO
062083,000775:
062084,000776: 10,2717 30100 CA FLAGWRD4 # WAS NORM ASLEEP
062085,000777: 10,2720 73641 MASK NBUSMASK # ARE ANY NORMS ASLEEP
062086,000778: 10,2721 00006 EXTEND
062087,000779: 10,2722 12725 BZF OKTOPLAY # NO
062088,000780:
062089,000781: # Page 1461
062090,000782: 10,2723 05622 PRIOBORT TC P00DOO
062091,000783: 10,2724 01502 OCT 1502
062092,000784:
062093,000785: 10,2725 03064 OKTOPLAY TC COPIES2
062094,000786:
062095,000787: 10,2726 30163 CA USERPRIO
062096,000788: 10,2727 00006 EXTEND
062097,000789: 10,2730 04007 ROR SUPERBNK
062098,000790: 10,2731 54366 TS RESTREG
062099,000791:
062100,000792: 10,2732 30100 CA FLAGWRD4 # PRIO OR MARK GOING
062101,000793: 10,2733 73642 MASK PMMASK
062102,000794: 10,2734 10000 CCS A
062103,000795: 10,2735 13102 TCF GOSLEEPS # MARK GOING
062104,000796:
062105,000797: 10,2736 12740 TCF +2
062106,000798: 10,2737 13102 TCF GOSLEEPS
062107,000799:
062108,000800: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
062109,000801:
062110,000802: 10,2740 03333 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
062111,000803: 10,2741 05074 TC JOBWAKE
062112,000804:
062113,000805: 10,2742 03350 TC XCHTOEND
062114,000806:
062115,000807: 10,2743 34711 PLAYJUM1 CAF TWO
062116,000808: 10,2744 54164 PRIOPLAY TS COPINDEX
062117,000809:
062118,000810: 10,2745 13216 TCF GOPLAY
062119,000811:
062120,000812: 10,2746 54155 EXDSPRET TS PLAYTEM1
062121,000813:
062122,000814: 10,2747 37703 CAF BIT15+6
062123,000815: 10,2750 12626 TCF GOFLASH2
062124,000816:
062125,000817: 10,2751 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
062126,000818: 10,2752 33624 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
062127,000819:
062128,000820: 10,2753 54155 GOPERFS TS PLAYTEM1
062129,000821:
062130,000822: 10,2754 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
062131,000823: 10,2755 12626 TCF GOFLASH2
062132,000824:
062133,000825: 10,2756 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062134,000826:
062135,000827: 10,2757 33627 CAF PERF2MSK
062136,000828: 10,2760 12626 TCF GOFLASH2
062137,000829:
062138,000830: 10,2761 03043 GOPERF4 TC PURRS4
062139,000831:
062140,000832: 10,2762 12626 TCF GOFLASH2
062141,000833:
062142,000834: # Page 1462
062143,000835: 10,2763 54155 GOFLASHR TS PLAYTEM1
062144,000836:
062145,000837: 10,2764 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET
062146,000838: 10,2765 54160 GODSPRS TS PLAYTEM4
062147,000839:
062148,000840: 10,2766 36214 CAF THREE
062149,000841:
062150,000842: 10,2767 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
062151,000843: 10,2770 54072 TS RUPTREG3
062152,000844:
062153,000845: 10,2771 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
062154,000846: 10,2772 77674 MASK PRIO37
062155,000847: 10,2773 54063 TS NEWPRIO
062156,000848:
062157,000849: 10,2774 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
062158,000850: 10,2775 74707 MASK BIT4
062159,000851: 10,2776 10000 CCS A
062160,000852: 10,2777 13005 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
062161,000853: 10,3000 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
062162,000854: 10,3001 05027 TC NOVAC
062163,000855: 10,3002 E7,1777 EBANK= WHOCARES
062164,000856: 10,3002 02674 20107 2CADR MAKEPLAY
062165,000857:
062166,000858: 10,3004 13013 TCF BOTHJOBS
062167,000859:
062168,000860: 10,3005 30006 VACDSP CA BBANK
062169,000861: 10,3006 00006 EXTEND
062170,000862: 10,3007 04007 ROR SUPERBNK
062171,000863: 10,3010 54001 TS L
062172,000864: 10,3011 33665 CAF MAKEGEN
062173,000865: 10,3012 05053 TC SPVAC
062174,000866:
062175,000867: 10,3013 03050 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
062176,000868:
062177,000869: 10,3014 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2
062178,000870: 10,3015 30156 DCA MPAC +1
062179,000871: 10,3016 50064 INDEX LOCCTR
062180,000872: 10,3017 52156 DXCH MPAC +1
062181,000873:
062182,000874: 10,3020 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK
062183,000875: 10,3021 30160 DCA MPAC +3
062184,000876: 10,3022 50064 INDEX LOCCTR
062185,000877: 10,3023 52160 DXCH MPAC +3
062186,000878:
062187,000879: 10,3024 30064 CA LOCCTR
062188,000880: 10,3025 54161 TS MPAC +5
062189,000881: 10,3026 03055 TC SAVELOCR
062190,000882: 10,3027 00003 RELINT
062191,000883: # Page 1463
062192,000884: 10,3030 14577 TCF BANKJUMP # CALL CADR +4
062193,000885:
062194,000886: 10,3031 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
062195,000887:
062196,000888: 10,3032 33624 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
062197,000889:
062198,000890: 10,3033 54155 GOPERFRS TS PLAYTEM1
062199,000891:
062200,000892: 10,3034 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
062201,000893: 10,3035 12765 TCF GODSPRS
062202,000894:
062203,000895: 10,3036 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062204,000896:
062205,000897: 10,3037 33627 CAF PERF2MSK
062206,000898: 10,3040 12765 TCF GODSPRS
062207,000899:
062208,000900: 10,3041 03043 GOPERF4R TC PURRS4
062209,000901:
062210,000902: 10,3042 12765 TCF GODSPRS
062211,000903:
062212,000904: 10,3043 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE
062213,000905:
062214,000906: 10,3044 33630 CAF V04N06
062215,000907: 10,3045 54155 TS PLAYTEM1
062216,000908:
062217,000909: 10,3046 33631 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3
062218,000910: 10,3047 00002 TC Q
062219,000911:
062220,000912: 10,3050 00004 SAVELOCS INHINT
062221,000913:
062222,000914: 10,3051 43640 CS OCT3400 # EBANK BITS
062223,000915: 10,3052 70160 MASK PLAYTEM4
062224,000916: 10,3053 60003 AD EBANK
062225,000917: 10,3054 54160 TS PLAYTEM4
062226,000918:
062227,000919: 10,3055 22002 SAVELOCR LXCH Q
062228,000920:
062229,000921: 10,3056 04604 TC MAKECADR
062230,000922: 10,3057 54157 TS PLAYTEM3
062231,000923:
062232,000924: 10,3060 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
062233,000925: 10,3061 00001 TC L
062234,000926:
062235,000927: 10,3062 34714 COPYNORM CAF ZERO
062236,000928: 10,3063 54164 COPIES TS COPINDEX
062237,000929: 10,3064 00004 COPIES2 INHINT
062238,000930: 10,3065 30160 CA PLAYTEM4 # FLAGWORD
062239,000931:
062240,000932: 10,3066 50164 INDEX COPINDEX
062241,000933: 10,3067 55067 TS EBANKSAV # EQUIV TO DSPFLG
062242,000934: # Page 1464
062243,000935: 10,3070 73656 MASK CADRMASK # FLASH AND GODSPRET
062244,000936: 10,3071 00006 EXTEND
062245,000937: 10,3072 13076 BZF SKIPADD
062246,000938:
062247,000939: 10,3073 30157 CA PLAYTEM3
062248,000940: 10,3074 50164 INDEX COPINDEX
062249,000941: 10,3075 54372 TS CADRFLSH
062250,000942:
062251,000943: 10,3076 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
062252,000944: 10,3077 50164 INDEX COPINDEX
062253,000945: 10,3100 54367 TS NVWORD
062254,000946:
062255,000947: 10,3101 13357 TCF RELINTQ
062256,000948:
062257,000949: 10,3102 50164 GOSLEEPS INDEX COPINDEX
062258,000950: 10,3103 33657 CA PRIOOCT
062259,000951: 10,3104 73106 MASK WAITMASK
062260,000952: 10,3105 07717 TC UPENT2
062261,000953: 10,3106 03004 WAITMASK OCT 3004
062262,000954: 10,3107 44712 CS ONE
062263,000955: 10,3110 60164 AD COPINDEX
062264,000956: 10,3111 54154 TS FACEREG
062265,000957:
062266,000958: 10,3112 50154 XCHSLEEP INDEX FACEREG
062267,000959: 10,3113 33636 CAF WAKECADR
062268,000960: 10,3114 00004 INHINT
062269,000961: 10,3115 05074 TC JOBWAKE # FIND CADR IN JOB AREA
062270,000962:
062271,000963: 10,3116 03350 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
062272,000964:
062273,000965: 10,3117 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
062274,000966: 10,3120 33636 CAF WAKECADR
062275,000967: 10,3121 15070 TCF JOBSLEEP
062276,000968:
062277,000969: 10,3122 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
062278,000970: 10,3123 03333 TC WITCHONE
062279,000971: 10,3124 05074 TC JOBWAKE
062280,000972: 10,3125 30154 CA FACEREG
062281,000973: 10,3126 50064 INDEX LOCCTR
062282,000974: 10,3127 54154 TS FACEREG
062283,000975:
062284,000976: 10,3130 33143 CAF XCHQADD
062285,000977: 10,3131 03351 TC XCHNYLOC
062286,000978:
062287,000979: 10,3132 50154 INDEX FACEREG
062288,000980: 10,3133 33660 CA MARKOCT
062289,000981: 10,3134 73662 MASK IDLESLEP
062290,000982:
062291,000983: 10,3135 07735 TC DOWNENT2
062292,000984: 10,3136 74004 IDLEMASK OCT 74004 # * DON'T MOVE
062293,000985: # Page 1465
062294,000986: 10,3137 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
062295,000987: 10,3140 34706 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
062296,000988: 10,3141 64710 AD FOUR
062297,000989: 10,3142 07717 TC UPENT2 # FLAG ROUTINE DOES RELINT
062298,000990: 10,3143 03112 XCHQADD GENADR XCHSLEEP # * DON'T MOVE
062299,000991: 10,3144 30100 CA FLAGWRD4
062300,000992: 10,3145 74710 MASK BIT3 # MARK OVER NORM?
062301,000993: 10,3146 10000 CCS A
062302,000994: 10,3147 02530 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
062303,000995: 10,3150 12664 TCF OKTOCOPY
062304,000996:
062305,000997: 10,3151 34714 MARKWAKE CAF ZERO
062306,000998: 10,3152 54160 WAKEPLAY TS TEMPOR2
062307,000999:
062308,001000: 10,3153 50160 INDEX TEMPOR2
062309,001001: 10,3154 33652 CA BITS5+11
062310,001002: 10,3155 64710 AD FOUR
062311,001003: 10,3156 07735 TC DOWNENT2
062312,001004: 10,3157 40010 MARKFMSK OCT 40010 # *** DON'T MOVE
062313,001005:
062314,001006: 10,3160 50160 INDEX TEMPOR2
062315,001007: 10,3161 33636 CAF WAKECADR
062316,001008: 10,3162 00004 INHINT
062317,001009: 10,3163 05074 TC JOBWAKE
062318,001010:
062319,001011: 10,3164 13463 TCF ENDRET
062320,001012:
062321,001013: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
062322,001014: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
062323,001015:
062324,001016: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO TEH LAST NORMAL USER.
062325,001017: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
062326,001018:
062327,001019: 10,3165 31071 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK
062328,001020: 10,3166 54003 TS EBANK
062329,001021:
062330,001022: 10,3167 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
062331,001023: 10,3170 04666 TC SUPERSW # RESTORE SUPERBANK
062332,001024:
062333,001025: 10,3171 77674 MASK PRIO37
062334,001026: 10,3172 05103 TC PRIOCHNG
062335,001027:
062336,001028: 10,3173 46214 CS THREE
062337,001029: 10,3174 60374 AD TEMPFLSH
062338,001030: 10,3175 14577 TCF BANKJUMP
062339,001031:
062340,001032: 10,3176 00003 PINBRNCH RELINT # FOR GOPIN USERS
062341,001033: 10,3177 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
062342,001034: 10,3200 54156 TS MPAC +2 # ONLY
062343,001035:
062344,001036: 10,3201 30100 CA FLAGWRD4 # PINBRANCH CONDITION
062345,001037: # Page 1466
062346,001038: 10,3202 77707 MASK PINMASK
062347,001039: 10,3203 10000 CCS A
062348,001040: 10,3204 13207 TCF +3
062349,001041: 10,3205 13617 TCF ERASER # ** NOTHING IN ENDIDLE
062350,001042: 10,3206 12530 TCF MARKPLAY
062351,001043:
062352,001044: 10,3207 05435 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
062353,001045: 10,3210 00105 ADRES PINBRFLG
062354,001046:
062355,001047: 10,3211 34675 CAF BIT14 # PRIO INTERRUPTED
062356,001048: 10,3212 70100 MASK FLAGWRD4
062357,001049: 10,3213 10000 CCS A
062358,001050: 10,3214 12672 TCF KEEPPRIO
062359,001051:
062360,001052: 10,3215 12743 TCF PLAYJUM1
062361,001053:
062362,001054: 10,3216 02550 NVDSP TC COPYPACS
062363,001055:
062364,001056: 10,3217 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
062365,001057: 10,3220 74716 MASK SEVEN # USER REQUESTS BLANKING MONITOR
062366,001058: 10,3221 54001 TS L
062367,001059:
062368,001060: 10,3222 44676 CS BIT13
062369,001061: 10,3223 50164 INDEX COPINDEX
062370,001062: 10,3224 71067 MASK DSPFLG
062371,001063: 10,3225 50164 INDEX COPINDEX
062372,001064: 10,3226 55067 TS DSPFLG
062373,001065:
062374,001066: 10,3227 74703 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
062375,001067: 10,3230 54141 TS TEM1
062376,001068:
062377,001069: 10,3231 30156 CA MPAC +2
062378,001070: 10,3232 54165 TS MPAC2SAV
062379,001071:
062380,001072: 10,3233 55072 TS MARK2PAC # * FOR DISK ONLY *
062381,001073: 10,3234 50164 INDEX COPINDEX
062382,001074: 10,3235 10367 CCS NVWORD
062383,001075: 10,3236 13245 TCF NVDSP1
062384,001076: 10,3237 13361 TCF CLEANEND
062385,001077: 10,3240 40370 CS MARKNV
062386,001078: 10,3241 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
062387,001079: 10,3242 76043 MASK LOW7
062388,001080: 10,3243 63643 AD V05N00M1
062389,001081: 10,3244 60141 AD TEM1
062390,001082: 10,3245 64712 NVDSP1 AD ONE
062391,001083: 10,3246 04171 NV50DSP TC NVMONOPT
062392,001084: 10,3247 13373 TCF REST # IF BUSY
062393,001085:
062394,001086: 10,3250 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH
062395,001087:
062396,001088: 10,3251 02546 TC COPYTOGO # MPACS DESTROYED BY NVSUB
062397,001089: # Page 1467
062398,001090: 10,3252 05447 TC DOWNFLAG # UNSET SLEEPING BITS
062399,001091: 10,3253 00102 ADRES MRKNVFLG
062400,001092: 10,3254 05447 TC DOWNFLAG
062401,001093: 10,3255 00103 ADRES NRMNVFLG
062402,001094: 10,3256 05447 TC DOWNFLAG
062403,001095: 10,3257 00104 ADRES PRONVFLG
062404,001096: 10,3260 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
062405,001097: 10,3261 04271 TC BLANKSUB
062406,001098: 10,3262 13216 TCF NVDSP
062407,001099: 10,3263 34706 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
062408,001100: 10,3264 70160 MASK TEMPOR2
062409,001101: 10,3265 10000 CCS A # IS THIS A GOPERF DISPLAY
062410,001102: 10,3266 13311 TCF 1STOR2ND # YES
062411,001103:
062412,001104: 10,3267 34707 GOANIDLE CAF BIT4
062413,001105: 10,3270 70160 MASK TEMPOR2
062414,001106: 10,3271 10000 CCS A
062415,001107: 10,3272 13406 TCF FLASHSUB # IT IS
062416,001108:
062417,001109: 10,3273 40160 CS TEMPOR2 # IS THIS A GODSPRET
062418,001110: 10,3274 74705 MASK BIT6
062419,001111: 10,3275 10000 CCS A
062420,001112: 10,3276 13303 TCF ISITN00
062421,001113:
062422,001114: 10,3277 50164 INDEX COPINDEX
062423,001115: 10,3300 30372 CA CADRFLSH
062424,001116: 10,3301 54157 TS MPAC +3
062425,001117: 10,3302 13501 TCF ENDIT
062426,001118:
062427,001119: 10,3303 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
062428,001120: 10,3304 30367 CA NVWORD
062429,001121: 10,3305 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
062430,001122: 10,3306 00006 EXTEND
062431,001123: 10,3307 13406 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
062432,001124:
062433,001125: 10,3310 15112 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT
062434,001126:
062435,001127: 10,3311 30160 1STOR2ND CA TEMPOR2
062436,001128: 10,3312 74676 MASK BIT13
062437,001129: 10,3313 10000 CCS A
062438,001130: 10,3314 13267 TCF GOANIDLE # SECOND
062439,001131:
062440,001132: 10,3315 34676 CA BIT13
062441,001133: 10,3316 50164 INDEX COPINDEX
062442,001134: 10,3317 27067 ADS DSPFLG
062443,001135:
062444,001136: 10,3320 22007 ZL
062445,001137: 10,3321 00006 EXTEND # IS IT MARK
062446,001138: 10,3322 62571 BZMF MARKPERF # YES
062447,001139: # Page 1468
062448,001140: 10,3323 74677 MASK BIT12
062449,001141: 10,3324 00006 EXTEND
062450,001142: 10,3325 13331 BZF V50PASTE
062451,001143: 10,3326 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
062452,001144: 10,3327 63667 AD V97N00
062453,001145: 10,3330 13246 TCF NV50DSP
062454,001146: 10,3331 33626 V50PASTE CAF V50N00
062455,001147: 10,3332 13246 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
062456,001148:
062457,001149: 10,3333 44706 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
062458,001150: 10,3334 00006 EXTEND
062459,001151: 10,3335 03011 WAND DSALMOUT
062460,001152:
062461,001153: 10,3336 30100 CA FLAGWRD4
062462,001154: 10,3337 73644 MASK NVBUSMSK # IS IT NVSUB ALEEP
062463,001155: 10,3340 10000 CCS A
062464,001156: 10,3341 34712 CAF ONE
062465,001157: 10,3342 54001 TS L
062466,001158: 10,3343 34714 CAF ZERO
062467,001159: 10,3344 50001 INDEX L
062468,001160: 10,3345 57042 XCH CADRSTOR
062469,001161:
062470,001162: 10,3346 00004 INHINT
062471,001163: 10,3347 00002 TC Q
062472,001164:
062473,001165: 10,3350 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
062474,001166: 10,3351 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
062475,001167: 10,3352 00006 EXTEND
062476,001168: 10,3353 63357 BZMF RELINTQ # NO
062477,001169: 10,3354 56064 XCH LOCCTR # YES
062478,001170: 10,3355 50064 INDEX LOCCTR
062479,001171: 10,3356 54164 TS LOC
062480,001172:
062481,001173: 10,3357 00003 RELINTQ RELINT
062482,001174: 10,3360 00002 TC Q # BACK TO USER
062483,001175:
062484,001176: 10,3361 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
062485,001177: 10,3362 05042 TC FINDVAC
062486,001178: 10,3363 0371 EBANK= NVSAVE
062487,001179: 10,3363 04245 04100 2CADR JAMTERM
062488,001180:
062489,001181: 10,3365 13407 TCF FLASHSUB +1
062490,001182:
062491,001183: 10,3366 30100 ISITPRIO CA FLAGWRD4
062492,001184: 10,3367 73414 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
062493,001185: 10,3370 00006 EXTEND
062494,001186: 10,3371 12723 BZF PRIOBORT
062495,001187: 10,3372 15112 TCF ENDOFJOB
062496,001188: # Page 1469
062497,001189: 10,3373 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
062498,001190: 10,3374 15112 TCF ENDOFJOB # YES
062499,001191: 10,3375 13377 TCF RESTSLEP
062500,001192:
062501,001193: 10,3376 15112 TCF ENDOFJOB
062502,001194:
062503,001195: 10,3377 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
062504,001196: 10,3400 73645 MASK ASTROMSK
062505,001197: 10,3401 07717 TC UPENT2
062506,001198: 10,3402 24100 OCT24100 OCT 24100 # *** DON'T MOVE
062507,001199:
062508,001200: 10,3403 50164 INDEX COPINDEX
062509,001201: 10,3404 33635 CAF NVCADR
062510,001202: 10,3405 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
062511,001203:
062512,001204: 10,3406 04443 FLASHSUB TC FLASHON
062513,001205:
062514,001206: 10,3407 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
062515,001207: 10,3410 54157 TS COPMPAC
062516,001208:
062517,001209: 10,3411 30162 CA GENMASK
062518,001210: 10,3412 73136 MASK IDLEMASK
062519,001211: 10,3413 07717 TC UPENT2
062520,001212: 10,3414 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE
062521,001213:
062522,001214: 10,3415 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
062523,001215: 10,3416 50164 INDEX COPINDEX
062524,001216: 10,3417 74710 MASK BIT3
062525,001217: 10,3420 10000 CCS A
062526,001218: 10,3421 13506 TCF UNSETR1 # YES
062527,001219:
062528,001220: 10,3422 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
062529,001221: 10,3423 13366 TCF ISITPRIO
062530,001222: 10,3424 13426 TCF +2
062531,001223: 10,3425 13366 TCF ISITPRIO
062532,001224:
062533,001225: 10,3426 04223 TC ENDIDLE
062534,001226: 10,3427 13520 IDLERET1 TCF TERMATE
062535,001227:
062536,001228: 10,3430 13537 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
062537,001229:
062538,001230: 10,3431 43654 CS LOWLOAD
062539,001231: 10,3432 60154 AD MPAC # VERBREG
062540,001232: 10,3433 00006 EXTEND
062541,001233: 10,3434 26000 DIM A
062542,001234: 10,3435 00006 EXTEND
062543,001235: 10,3436 13607 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
062544,001236:
062545,001237: 10,3437 34711 OKTOENT CAF TWO
062546,001238: 10,3440 54161 ENDOUT TS OUTHERE
062547,001239: # Page 1470
062548,001240: 10,3441 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
062549,001241: 10,3442 74105 MASK OCT60000
062550,001242: 10,3443 10000 CCS A
062551,001243: 10,3444 13447 TCF TIMECHEK # PRIO ENDIDLE RETURN
062552,001244: 10,3445 13555 TCF NORMRET # NORMAL ENDIDLE RETURN
062553,001245: 10,3446 13541 TCF MARKRET # MARK ENDIDLE RETURN
062554,001246:
062555,001247: 10,3447 40025 TIMECHEK CS TIME1
062556,001248: 10,3450 61147 AD PRIOTIME
062557,001249: 10,3451 10000 CCS A
062558,001250: 10,3452 40000 COM
062559,001251: 10,3453 67700 AD OCT37776
062560,001252: 10,3454 64712 AD ONE
062561,001253: 10,3455 63677 AD -2SEC
062562,001254: 10,3456 00006 EXTEND
062563,001255: 10,3457 62672 BZMF KEEPPRIO
062564,001256:
062565,001257: 10,3460 13555 TCF NORMRET
062566,001258:
062567,001259: 10,3461 34712 NORMWAKE CAF ONE
062568,001260: 10,3462 13152 TCF WAKEPLAY
062569,001261:
062570,001262: 10,3463 10161 ENDRET CCS OUTHERE
062571,001263: 10,3464 64712 AD ONE
062572,001264: 10,3465 13467 TCF +2 # NORMAL ENDIDLE EXIT
062573,001265: 10,3466 15112 TCF ENDOFJOB
062574,001266: 10,3467 50157 INDEX COPMPAC
062575,001267: 10,3470 60372 AD CADRFLSH
062576,001268: 10,3471 54157 TS MPAC +3
062577,001269:
062578,001270: 10,3472 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
062579,001271: 10,3473 73475 MASK PINIDMSK
062580,001272: 10,3474 07735 TC DOWNENT2
062581,001273: 10,3475 74044 PINIDMSK OCT 74044 # *** DON'T MOVE
062582,001274:
062583,001275: 10,3476 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
062584,001276: 10,3477 04170 TC NVSUB
062585,001277: 10,3500 13501 TCF +1
062586,001278:
062587,001279: 10,3501 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY
062588,001280: 10,3502 77674 MASK PRIO37
062589,001281: 10,3503 05103 TC PRIOCHNG
062590,001282: 10,3504 30157 CA MPAC +3
062591,001283: 10,3505 14577 TCF BANKJUMP
062592,001284:
062593,001285: 10,3506 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
062594,001286: 10,3507 44710 CS BIT3
062595,001287: 10,3510 71073 MASK R1SAVE
062596,001288: 10,3511 55073 TS R1SAVE
062597,001289: # Page 1471
062598,001290: 10,3512 34714 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
062599,001291: 10,3513 04666 TC SUPERSW # SUPERBANK 0
062600,001292:
062601,001293: 10,3514 36214 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC
062602,001294: 10,3515 50164 IMMEDRET INDEX COPINDEX
062603,001295: 10,3516 60372 AD CADRFLSH
062604,001296: 10,3517 14577 TCF BANKJUMP
062605,001297:
062606,001298: 10,3520 34714 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
062607,001299: 10,3521 13440 TCF ENDOUT
062608,001300:
062609,001301: 10,3522 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
062610,001302: 10,3523 74675 MASK BIT14
062611,001303: 10,3524 10000 CCS A
062612,001304: 10,3525 16706 TCF Q+1 # NO
062613,001305: 10,3526 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
062614,001306: 10,3527 50164 INDEX COPINDEX
062615,001307: 10,3530 60372 AD CADRFLSH
062616,001308: 10,3531 00006 EXTEND
062617,001309: 10,3532 13534 BZF +2 # YES
062618,001310:
062619,001311: 10,3533 00002 TC Q # NO
062620,001312: 10,3534 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
062621,001313: 10,3535 05112 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE
062622,001314: 10,3536 00002 TC Q
062623,001315:
062624,001316: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD
062625,001317:
062626,001318: 10,3537 34712 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
062627,001319: 10,3540 13440 TCF ENDOUT
062628,001320:
062629,001321: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
062630,001322: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
062631,001323: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP.
062632,001324:
062633,001325: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
062634,001326: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
062635,001327: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A
062636,001328: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
062637,001329:
062638,001330: 10,3541 46211 MARKRET CS SIX
062639,001331: 10,3542 70100 MASK FLAGWRD4
062640,001332: 10,3543 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
062641,001333: 10,3544 54100 TS FLAGWRD4
062642,001334:
062643,001335: 10,3545 00003 RELINT # INHINT REALM
062644,001336: 10,3546 13463 TCF ENDRET
062645,001337:
062646,001338: 10,3547 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
062647,001339: 10,3550 54161 TS OUTHERE
062648,001340: # Page 1472
062649,001341: 10,3551 30100 CA FLAGWRD4 # IS ENDIDFLG SET
062650,001342: 10,3552 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
062651,001343: 10,3553 10000 CCS A
062652,001344: 10,3554 13207 TCF NORMBNCH
062653,001345:
062654,001346: 10,3555 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
062655,001347: 10,3556 73652 MASK BITS5+11 # OR WAITING
062656,001348: 10,3557 10000 CCS A
062657,001349: 10,3560 13151 TCF MARKWAKE
062658,001350:
062659,001351: 10,3561 30100 CA FLAGWRD4 # NO
062660,001352: 10,3562 73653 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
062661,001353: 10,3563 10000 CCS A
062662,001354: 10,3564 13461 TCF NORMWAKE # YES
062663,001355:
062664,001356: 10,3565 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
062665,001357: 10,3566 74726 MASK OCT50 # OR A GODSPRET
062666,001358: 10,3567 10000 CCS A
062667,001359: 10,3570 13463 TCF ENDRET # YES
062668,001360: 10,3571 30371 CA NVSAVE
062669,001361: 10,3572 00006 EXTEND
062670,001362: 10,3573 13463 BZF ENDRET
062671,001363:
062672,001364: 10,3574 34762 CAF PRIO15
062673,001365: 10,3575 00004 INHINT
062674,001366: 10,3576 05027 TC NOVAC
062675,001367: 10,3577 0367 EBANK= NVWORD
062676,001368: 10,3577 02743 20100 2CADR PLAYJUM1
062677,001369:
062678,001370: 10,3601 13463 TCF ENDRET
062679,001371:
062680,001372: 10,3602 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY ON
062681,001373: 10,3603 73652 MASK BITS5+11
062682,001374: 10,3604 10000 CCS A
062683,001375: 10,3605 15112 TCF ENDOFJOB # YES
062684,001376: 10,3606 13102 TCF GOSLEEPS
062685,001377:
062686,001378: 10,3607 50157 LOADITIS INDEX COPMPAC
062687,001379: 10,3610 30367 CA NVWORD
062688,001380: 10,3611 76043 MASK LOW7
062689,001381: 10,3612 40000 COM
062690,001382: 10,3613 60155 AD MPAC +1 # NOUNREG
062691,001383: 10,3614 00006 EXTEND
062692,001384: 10,3615 13437 BZF OKTOENT # NO, THEN LOAD IS VALID
062693,001385: 10,3616 13176 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
062694,001386:
062695,001387: 10,3617 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
062696,001388: 10,3620 04170 TC NVSUB
062697,001389: 10,3621 15112 TCF ENDOFJOB
062698,001390: # Page 1473
062699,001391: 10,3622 15112 TCF ENDOFJOB
062700,001392:
062701,001393: 10,3623 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
062702,001394: 10,3624 00231 V01N25 VN 00125
062703,001395: 10,3625 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
062704,001396: 10,3626 14400 V50N00 VN 5000
062705,001397: 10,3627 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
062706,001398: 10,3630 01006 V04N06 VN 00406
062707,001399: 10,3631 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
062708,001400: 10,3632 10,3176 GOAGIN EQUALS PINBRNCH
062709,001401: 10,3632 20010 REDOMASK OCT 20010 # BITS 4 AND 14
062710,001402: 10,3633 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
062711,001403: 10,3634 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
062712,001404: 10,3635 20670 NVCADR CADR REDOPRIO
062713,001405: 10,3636 20530 WAKECADR CADR MARKPLAY
062714,001406: 10,3637 20743 CADR PLAYJUM1
062715,001407:
062716,001408: 10,3640 03400 OCT3400 OCT 3400 # EBANK MASK
062717,001409: 10,3641 11210 NBUSMASK OCT 11210
062718,001410: 10,3642 66521 PMMASK OCT 66521
062719,001411: 10,3643 4160 VERBMASK = MID7 # (OCT 37600)
062720,001412: 10,3643 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
062721,001413: 10,3644 10,2461 GOXDSP EQUALS GOMARK
062722,001414: 10,3644 10,2501 GOXDSPR EQUALS GOMARKR
062723,001415: 10,3644 10,2465 GOXDSPF EQUALS GOMARKF
062724,001416: 10,3644 10,2504 GOXDSPFR EQUALS GOMARKFR
062725,001417: 10,3644 5423 ENDEXT EQUALS ENDMARK
062726,001418: 10,3644 0165 MPAC2SAV EQUALS BANKSET
062727,001419: 10,3644 00700 NVBUSMSK OCT 700
062728,001420: 10,3645 00704 ASTROMSK OCT 704
062729,001421: 10,3646 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
062730,001422: 10,3647 34300 OCT34300 OCT 34300
062731,001423: 10,3650 40100 BITS15+7 OCT 40100
062732,001424: 10,3651 00110 BITS7+4 OCT 110
062733,001425: 10,3652 1067 DSPFLG EQUALS EBANKSAV
062734,001426: 10,3652 1070 MARKFLAG EQUALS MARKEBAN
062735,001427: 10,3652 1071 SAVEFLAG EQUALS EBANKTEM
062736,001428: 10,3652 02020 BITS5+11 OCT 2020 # * DON'T MOVE
062737,001429: 10,3653 01010 BITS4+10 OCT 1010 # * DON'T MOVE
062738,001430: 10,3654 00026 LOWLOAD DEC 22 B-14
062739,001431: 10,3655 77730 BUSYMASK OCT 77730
062740,001432: 10,3656 00050 CADRMASK OCT 50
062741,001433: 10,3657 7707 PINMASK EQUALS 13,14,15
062742,001434: 10,3657 10,3216 GOPLAY EQUALS NVDSP
062743,001435: 10,3657 1073 PRIOSAVE EQUALS R1SAVE
062744,001436: 10,3657 0157 COPMPAC EQUALS MPAC +3
062745,001437: 10,3657 0160 TEMPOR2 EQUALS MPAC +4
062746,001438: 10,3657 0161 OUTHERE EQUALS MPAC +5
062747,001439: 10,3657 0164 COPINDEX EQUALS LOC
062748,001440: 10,3657 0163 USERPRIO EQUALS MODE
062749,001441: # Page 1474
062750,001442: 10,3657 0162 GENMASK EQUALS MPAC +6
062751,001443: 10,3657 20144 PRIOOCT OCT 20144 # PRIO
062752,001444: 10,3660 42424 MARKOCT OCT 42424 # MARK
062753,001445: 10,3661 11254 OCT 11254 # NORM
062754,001446:
062755,001447: 10,3662 74704 IDLESLEP OCT 74704
062756,001448: 10,3663 67777 OCT67777 OCT 67777
062757,001449: 10,3664 5415 LINUS EQUALS BLANKET
062758,001450: 10,3664 0154 FACEREG EQUALS MPAC
062759,001451: 10,3664 0155 PLAYTEM1 EQUALS MPAC +1
062760,001452: 10,3664 0157 PLAYTEM3 EQUALS MPAC +3
062761,001453: 10,3664 0160 PLAYTEM4 EQUALS MPAC +4
062762,001454: 10,3664 40420 OCT40420 OCT 40420
062763,001455: 10,3665 02674 MAKEGEN GENADR MAKEPLAY
062764,001456: 10,3666 10200 OCT10200 OCT 10200
062765,001457: 10,3667 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
062766,001458: 10,3670 20100 OCT20100 OCT 20100
062767,001459:
062768,001460:
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc