DEFINITION MODULE OptRexxL{"rexxsyslib.library",-36};
(* 16-May-1992/cn *)

FROM SYSTEM IMPORT ADDRESS,BITSET;

FROM ExecD IMPORT
 MsgPortPtr;

IMPORT d:RexxD,R;

VAR
 rexxVersion:INTEGER;
 rexxBase:d.RxsLibPtr;

CONST
 rexxMinVersion=36;
 rexxName='rexxsyslib.library';

TYPE
 StrPtr=ADDRESS;

PROCEDURE ClearRexxMsg(
           msgptr{R.A0}:d.RexxMsgPtr;
           count{R.D0}:LONGCARD); CODE -156;

PROCEDURE CreateArgstring(
           string{R.A0}:StrPtr;
           length{R.D0}:LONGCARD):d.Argstring; CODE -126;

PROCEDURE CreateRexxMsg(
           replyPort{R.A0}:MsgPortPtr;
           extension{R.A1}:StrPtr;
           host{R.D0}:StrPtr):d.RexxMsgPtr; CODE -144;

PROCEDURE DeleteArgstring(argstring{R.A0}:d.Argstring); CODE -132;

PROCEDURE DeleteRexxMsg(packet{R.A0}:d.RexxMsgPtr); CODE -150;

PROCEDURE FillRexxMsg(
           msgptr{R.A0}:d.RexxMsgPtr;
           count{R.D0}:LONGCARD;
           mask{R.D1}:BITSET):BOOLEAN; CODE -162;

PROCEDURE IsRexxMsg(msgptr{R.A0}:ADDRESS):BOOLEAN; CODE -168;

PROCEDURE LengthArgstring(
           argstring{R.A0}:d.Argstring):LONGCARD; CODE -138;

PROCEDURE LockRexxBase(resource{R.D0}:LONGCARD); CODE -450;

PROCEDURE UnlockRexxBase(resource{R.D0}:LONGCARD); CODE -456;

END OptRexxL.lib-36
