DEFINITION MODULE dignetL {"dignet.library",4};

(*$ Implementation- *)

(* Generated with FDToM2 by M. Timmermans *)

(*
 * Cyclone Modula-2 include by Ernest J Gainey III (wavy@cyberservices.com)
 *)

FROM SYSTEM IMPORT ADDRESS;
IMPORT ed:ExecD,Reg;


VAR
 DignetBase : ed.LibraryPtr;


CONST

 dignetMinVersion=4;
 dignetName="dignet.library";


PROCEDURE AllocNet(device{Reg.A0}:ADDRESS;unit{Reg.D0}:LONGINT):LONGINT; CODE -30;

PROCEDURE FreeNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -36;

PROCEDURE ReadNet(net{Reg.A0},buffer{Reg.A1}:ADDRESS;size{Reg.D0}:LONGINT):LONGINT; CODE -42;

PROCEDURE WriteNet(net{Reg.A0},buffer{Reg.A1}:ADDRESS;size{Reg.D0}:LONGINT):LONGINT; CODE -48;

PROCEDURE QueryNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -54;

PROCEDURE AbortNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -60;

PROCEDURE InitIOEXT(net{Reg.A0},newioext{Reg.A1}:ADDRESS;length{Reg.D0}:LONGINT):LONGINT; CODE -66;

PROCEDURE ReadIOEXT(net{Reg.A0},buffer{Reg.A1}:ADDRESS;length{Reg.D0}:LONGINT):LONGINT; CODE -72;

PROCEDURE SendNet(net{Reg.A0},pathAndFilename{Reg.A1}:ADDRESS):LONGINT; CODE -78;

PROCEDURE ReceiveNet(net{Reg.A0},path{Reg.A1}:ADDRESS):LONGINT; CODE -84;

PROCEDURE Timeout(net{Reg.A0}:ADDRESS;seconds{Reg.D0}:LONGINT):LONGINT; CODE -90;

PROCEDURE ReadString(net{Reg.A0},buffer{Reg.A1}:ADDRESS;max{Reg.D0}:LONGINT):LONGINT; CODE -96;

PROCEDURE WriteString(net{Reg.A0},string{Reg.A1}:ADDRESS):LONGINT; CODE -102;

PROCEDURE GetNetport(net{Reg.A0}:ADDRESS):LONGINT; CODE -108;

PROCEDURE InitModem(net{Reg.A0},initstring{Reg.A1},buffer{Reg.A2}:ADDRESS):LONGINT; CODE -114;

PROCEDURE CallModemDT(net{Reg.A0},number{Reg.A1},buffer{Reg.A2}:ADDRESS):LONGINT; CODE -120;

PROCEDURE CallModemDP(net{Reg.A0},number{Reg.A1},buffer{Reg.A2}:ADDRESS):LONGINT; CODE -126;

PROCEDURE WaitModem(net{Reg.A0},buffer{Reg.A1}:ADDRESS):LONGINT; CODE -132;

PROCEDURE HangupModem(net{Reg.A0}:ADDRESS):LONGINT; CODE -138;

PROCEDURE StopWaiting(net{Reg.A0}:ADDRESS):LONGINT; CODE -144;

PROCEDURE FlushNet(net{Reg.A0}:ADDRESS):LONGINT; CODE -150;

PROCEDURE SetBaud(net{Reg.A0}:ADDRESS;baud{Reg.D0}:LONGINT):LONGINT; CODE -156;

PROCEDURE ConvertModemString(string{Reg.A0}:ADDRESS):LONGINT; CODE -162;

PROCEDURE GetIOmsg(net{Reg.A0}:ADDRESS):LONGINT; CODE -168;

PROCEDURE GetModemStatus(net{Reg.A0}:ADDRESS):LONGINT; CODE -174;

PROCEDURE GetCurrentDevice(net{Reg.A0}:ADDRESS):LONGINT; CODE -180;

PROCEDURE GetCurrentUnit(net{Reg.A0}:ADDRESS):LONGINT; CODE -186;

PROCEDURE GetBaudrate(net{Reg.A0}:ADDRESS):LONGINT; CODE -192;

PROCEDURE ParseConnect(buffer{Reg.A0}:ADDRESS):LONGINT; CODE -198;

PROCEDURE SetDefault(net{Reg.A0}:ADDRESS):LONGINT; CODE -204;

PROCEDURE ConvertToPC(text{Reg.A0}:ADDRESS):LONGINT; CODE -210;

PROCEDURE ConvertToAmiga(text{Reg.A0}:ADDRESS):LONGINT; CODE -216;

PROCEDURE FreeConvert(convertedtext{Reg.A0}:ADDRESS):LONGINT; CODE -222;

PROCEDURE ObtainNet(taskname{Reg.A0}:ADDRESS):LONGINT; CODE -228;

PROCEDURE RTNumberofNets():LONGINT; CODE -234;

PROCEDURE RTNetInfo(buffer{Reg.A0}:ADDRESS;ID{Reg.D0}:LONGINT):LONGINT; CODE -240;

PROCEDURE RTKillNet(ID{Reg.D0}:LONGINT):LONGINT; CODE -246;

PROCEDURE RTAbort(ID{Reg.D0}:LONGINT):LONGINT; CODE -252;

PROCEDURE RTFlush(ID{Reg.D0}:LONGINT):LONGINT; CODE -258;

PROCEDURE RTCheck():LONGINT; CODE -264;

PROCEDURE RTHighestID():LONGINT; CODE -270;

PROCEDURE WaitText(net{Reg.A0},waitstring{Reg.A1}:ADDRESS):LONGINT; CODE -276;

PROCEDURE ConverseText(net{Reg.A0},waitstring{Reg.A1},sendstring{Reg.A2}:ADDRESS):LONGINT; CODE -282;

PROCEDURE CaptureTextStart(net{Reg.A0},filename{Reg.A1}:ADDRESS;mode{Reg.D0}:LONGINT):LONGINT; CODE -288;

PROCEDURE CaptureTextEnd(net{Reg.A0}:ADDRESS):LONGINT; CODE -294;

PROCEDURE SetParity(net{Reg.A0}:ADDRESS;parity{Reg.D0}:LONGINT):LONGINT; CODE -300;

PROCEDURE SetHandshake(net{Reg.A0}:ADDRESS;handshake{Reg.D0}:LONGINT):LONGINT; CODE -306;

PROCEDURE SetStopbits(net{Reg.A0}:ADDRESS;stopbits{Reg.D0}:LONGINT):LONGINT; CODE -312;

PROCEDURE SetBitwidth(net{Reg.A0}:ADDRESS;bitwidth{Reg.D0}:LONGINT):LONGINT; CODE -318;

PROCEDURE GetParity(net{Reg.A0}:ADDRESS):LONGINT; CODE -324;

PROCEDURE GetHandshake(net{Reg.A0}:ADDRESS):LONGINT; CODE -330;

PROCEDURE GetStopbits(net{Reg.A0}:ADDRESS):LONGINT; CODE -336;

PROCEDURE GetBitwidth(net{Reg.A0}:ADDRESS):LONGINT; CODE -342;


END dignetL.