          CTEXT  COMSMLI - MEMORY LINK INTERFACE SYMBOL EQUIVALENCES.
COMSMLI   SPACE  4
          BASE   D
*         COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
COMSMLI   SPACE  4
***       COMSMLI - MEMORY LINK INTERFACE SYMBOL EQUIVALENCES.
*         D. A. HENSELER. 79/04/25.
COMSMLI   SPACE  4
***       COMSMLI CONTAINS DEFINITIONS FOR ALL MEMORY LINK INTERFACE SYMBOLS.
*
*         MLP**** SYMBOLS ARE OFFSETS INTO THE MLI PARAMETER BLOCK MLIPAR.
*         MLF**** SYMBOLS ARE MLI FUNCTION CODES.
*         MLS**** SYMBOLS ARE MLI STATUS RETURN CODE EQUIVALENCES.
*         MLE**** SYMBOLS ARE MISC. MLI SYMBOLS
          SPACE  2
*         MLP**** -  MEMORY LINK PARAMETER POSITIONS WITHIN MLIPAR BLOCK.
          SPACE  2
MLPAN     EQU    0           APPLICATION NAME.
MLPSN     EQU    1           SENDER APPLICATION NAME.
MLPST     EQU    2           STATUS RETURN ADDRESS.
MLPFN     EQU    3           MLI FUNCTION NUMBER.
MLPCN     EQU    4           COUNT OF MESSAGES FOR FETCHRL.
MLPMM     EQU    4           MAX MESSAGES.
MLPRI     EQU    4           RECEIVE INDEX.
MLPFA     EQU    5           FIRST WORD ADDRESS OF BUFFER.
MLPJS     EQU    5           JSN FOR SIGNON/SIGNOFF.
MLPBL     EQU    6           MESSAGE BUFFER LENGTH.
MLPSG     EQU    7           VALUE OF SIGNAL FLAG.
MLPAR     EQU    8           ARBITRARY INFORMATION.
MLPLN     EQU    9           MESSAGE LENGTH RETURNED.
MLPSV     EQU    10          RETURNED STATUS VALUE
MLPV1     EQU    11          RETURNED VALUE 1
MLPV2     EQU    12          RETURNED VALUE 2
MLPV3     EQU    13          RETURNED VALUE 3
          SPACE  2
*         MLF**** -  MEMORY LINK FUNCTION NUMBERS.
*         THESE VALUES MAY BE CHANGED TO CONFORM TO PASCAL-X
*         CONVENTIONS AT A LATER TIME.
          SPACE  2
MLFON     EQU    0           SIGNON.
MLFOF     EQU    1           SIGNOFF.
MLFAD     EQU    2           ADDSPL.
MLFDE     EQU    3           DELSPL.
MLFSE     EQU    4           SEND.
MLFRE     EQU    5           RECEIVE.
MLFFE     EQU    6           FETCHRL.
MLFCO     EQU    7           CONFIRM.
MLFKI     EQU    8           KILL 170 JOB.
MLFKA     EQU    9           KILL ALL 170 JOBS.
MLFSW     EQU    10          SWAPOUT 170 UCP. (NOS/BE)
          SPACE  2
*         MLFS*** - MEMORY LINK SUB-FUNCTION CODES.
          SPACE  2
MLFSIN    EQU    0           INITIAL CALL TO NTH.
MLFSPL    EQU    1           POLLING CALL TO NTH.
          SPACE  2
*         MLS**** - MLI STATUS RETURN CODES.
          SPACE  2
MLSSB     EQU    0           STATUS BASE VALUE.
MLSAE     EQU    MLSSB+27D   C170 ADDRESS ERROR.
MLSAF     EQU    MLSSB+23D   ANT FULL.
MLSBA     EQU    MLSSB+18D   POOL BUFFER NOT AVAILABLE.
MLSBI     EQU    MLSSB+5D    BUSY INTERLOCK.
MLSCI     EQU    MLSSB+9D    C170 TO C170 ILLEGAL.
MLSDI     EQU    MLSSB+6D    DUPLICATE PERMITS IGNORED.
MLSIE     EQU    MLSSB+25D   MLI INTERNAL ERROR
MLSIF     EQU    MLSSB+26D   ILLEGAL FUNCTION.
MLSII     EQU    MLSSB+14D   RECEIVE LIST INDEX INVALID.
MLSML     EQU    MLSSB+22D   MAX MESSAGES TOO LARGE.
MLSMQ     EQU    MLSSB+13D   MESSAGES FROM SENDER QUEUED.
MLSMT     EQU    MLSSB+15D   MESSAGE TRUNCATED.
MLSND     EQU    MLSSB+28D   NOS/VE IS NOT UP.
MLSOK     EQU    MLSSB+0D    OK.
MLSPF     EQU    MLSSB+7D    PERMIT LIST FULL.
MLSPN     EQU    MLSSB+11D   PRIOR MESSAGE NOT RECEIVED.
MLSQL     EQU    MLSSB+20D   QUEUED MESSAGES LOST.
MLSRF     EQU    MLSSB+12D   RECEIVE LIST FULL.
MLSRN     EQU    MLSSB+3D    RECEIVER NOT SIGNED ON.
MLSRS     EQU    MLSSB+1D    RECEIVER NAME SYNTAX ERROR.
MLSSA     EQU    MLSSB+21D   MAX SIGNONS THIS APPLICATION.
MLSSC     EQU    MLSSB+16D   SIGNAL TO C170 IGNORED.
MLSSF     EQU    MLSSB+19D   SIGNAL FAILED, IGNORED.
MLSSM     EQU    MLSSB+4D    SYSTEM NAME NO MATCH
MLSSN     EQU    MLSSB+8D    SENDER NOT SIGNED ON.
MLSSP     EQU    MLSSB+10D   SENDER NOT PERMITTED.
MLSSS     EQU    MLSSB+2D    SENDER NAME SYNTAX ERROR.
MLSST     EQU    MLSSB+24D   MAX SIGNONS THIS TASK.
MLSTL     EQU    MLSSB+17D   MESSAGE TOO LONG.
          SPACE  2
*         MLE**** - MLI MISC. SYMBOLS.
          SPACE  2
MLEMXR    EQU    10          MAXIMUM NUMBER OF INTERLOCK RETRYS.
MLEITM    EQU    0           ISSUE TRACE MESSAGES DEFAULT.
MLETDF    EQU    3           TRACE MESSAGES DAYFILE NUMBER.
MLEPBS    EQU    14          MLI PARAMETER BLOCK SIZE.
          SPACE  2
          BASE   *
          ENDX
