COMKKIM 
COMMON
          CTEXT  COMKKIM - K-DISPLAY INFORMATIVE MESSAGE DEFINITIONS. 
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 KIM      SPACE  4,10 
***       COMKKIM - K-DISPLAY INFORMATIVE MESSAGE DEFINITIONS FOR TAF.
*         B.C. ANTIN.        78/06/15.
*         D. O. HAMNES.      78/06/15.
          SPACE  4
***              COMKKIM CONTAINS EQUIVALENCES AND MICRO DEFINITIONS
*         FOR COMMUNICATION/UNIFORMITY OF K-DISPLAY INFORMATIVE 
*         MESSAGES BETWEEN TAF AND SYSTEM TASKS SUCH AS *SYSMSG*. 
 KDMES    SPACE  4,10 
**        KDMES - K-DISPLAY MESSAGE DEFINITION. 
* 
* L       KDMES  N,S
*         ENTRY  *L* = SYMBOL TO BE EQUATED TO *N*. 
*                *N* = MESSAGE CODE NUMBER. 
*                *S* = MESSAGE OF LENGTH .LE. 15 CHARACTERS.
* 
*         EXIT   *L* IS EQUATED TO *N*. 
*                A MICRO CONTANING *S* IS DEFINED.
  
  
          PURGMAC  KDMES
  
          MACRO  KDMES,L,N,S
 L        EQU    N           DEFINE MESSAGE CODE
 .A       IFC    NE,$S$$     IF MESSAGE TO DEFINE 
 L_M      MICRO  1,15,$_S_$  DEFINE MESSAGE 
 .A       ENDIF 
          ENDM
          SPACE  4
 KDM0     KDMES  0           NO PREDETERMINED MESSAGE 
 KDM1     KDMES  1,(ILLEGAL COMMAND)
 KDM2     KDMES  2,(DROP IGNORED) 
 KDM3     KDMES  3,(FORMAT ERROR) 
 KDM4     KDMES  4,(SYSTEM BUSY)
 KDM5     KDMES  5,(TELEX BUSY) 
 KDM6     KDMES  6,(NOT AVAILABLE)
          ENDX
