*COMDECK  SWTESS
#     SWTESS - STATUS WORKLIST MONITOR ARRAY.  #
      CONTROL    NOLIST;
  
# 
**    SWTESS - STATUS WORKLIST MONITOR ARRAY. 
* 
*     SWTESS IS AN ARRAY THAT MUST BE LOCALLY DEFINED WITHIN ALL MONITOR
*     TYPE ROUTINES (ROUTINES CALLED BY THE STATUS WORKLIST ENTRY 
*     PROCESSOR) AND MUST BE USED AS THE FORMAL PARAMETER FOR EACH OF 
*     THESE ROUTINES. SETTING ITEMS IN THIS ARRAY CAUSES THE ACTUAL 
*     FIELDS IN THE CORRECT ENTRY OF THE STATUS WORKLIST TABLE TO BE
*     SET. THUS, A MONITOR ROUTINE DECLARES UNDER WHAT CONDITIONS IT OR 
*     ANOTHER MONITOR ROUTINE WILL NEXT BE CALLED.
* 
# 
  
      BEGIN # SWTESS #
      DEF STES1Z$     #3#;
  
      ARRAY SWTESS [00:00] S(STES1Z$);
        BEGIN 
        ITEM STE$ADDR1  U(00,06,18);  #ADDR OF 1ST CELL TO BE WATCHED  #
        ITEM STE$ADDR2  U(00,24,18);  #ADDR OF 2ND CELL TO BE WATCHED  #
        ITEM STE$RTN    U(00,42,18);  #ADDR OF ROUTINE TO CALL         #
        ITEM STE$INIT1  U(01,00,60);  #INITIAL VALUE OF CELL ONE       #
        ITEM STE$CBIT1  B(01,59,01);  #VALUE ONE COMPLETE BIT          #
        ITEM STE$SBIT1  B(01,00,01);  #VALUE ONE SIGN BIT              #
        ITEM STE$INIT2  U(02,00,60);  #INITIAL VALUE OF CELL TWO       #
        ITEM STE$CBIT2  B(02,59,01);  #VALUE TWO COMPLETE BIT          #
        ITEM STE$SBIT2  B(02,00,01);  #VALUE TWO SIGN BIT              #
        END 
      END # SWTESS #
  
CONTROL   LIST; 
