mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 04:16:18 +00:00
102 lines
2.1 KiB
OpenEdge ABL
102 lines
2.1 KiB
OpenEdge ABL
{
|
|
Created: Sunday, January 6, 1991 at 11:15 PM
|
|
Serial.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-1990
|
|
All rights reserved
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Serial;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingSerial}
|
|
{$SETC UsingSerial := 1}
|
|
|
|
{$I+}
|
|
{$SETC SerialIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := SerialIncludes}
|
|
|
|
CONST
|
|
baud300 = 380;
|
|
baud600 = 189;
|
|
baud1200 = 94;
|
|
baud1800 = 62;
|
|
baud2400 = 46;
|
|
baud3600 = 30;
|
|
baud4800 = 22;
|
|
baud7200 = 14;
|
|
baud9600 = 10;
|
|
baud19200 = 4;
|
|
baud57600 = 0;
|
|
stop10 = 16384;
|
|
stop15 = -32768;
|
|
stop20 = -16384;
|
|
noParity = 0;
|
|
oddParity = 4096;
|
|
evenParity = 12288;
|
|
data5 = 0;
|
|
data6 = 2048;
|
|
data7 = 1024;
|
|
data8 = 3072;
|
|
ctsEvent = 32;
|
|
breakEvent = 128;
|
|
xOffWasSent = 128;
|
|
dtrNegated = 64;
|
|
ainRefNum = -6; {serial port A input}
|
|
aoutRefNum = -7; {serial port A output}
|
|
binRefNum = -8; {serial port B input}
|
|
boutRefNum = -9; {serial port B output}
|
|
|
|
TYPE
|
|
SPortSel = (sPortA,sPortB);
|
|
|
|
|
|
SerShk = PACKED RECORD
|
|
fXOn: Byte; {XOn flow control enabled flag}
|
|
fCTS: Byte; {CTS flow control enabled flag}
|
|
xOn: CHAR; {XOn character}
|
|
xOff: CHAR; {XOff character}
|
|
errs: Byte; {errors mask bits}
|
|
evts: Byte; {event enable mask bits}
|
|
fInX: Byte; {Input flow control enabled flag}
|
|
fDTR: Byte; {DTR input flow control flag}
|
|
END;
|
|
|
|
SerStaRec = PACKED RECORD
|
|
cumErrs: Byte;
|
|
xOffSent: Byte;
|
|
rdPend: Byte;
|
|
wrPend: Byte;
|
|
ctsHold: Byte;
|
|
xOffHold: Byte;
|
|
END;
|
|
|
|
|
|
FUNCTION SerReset(refNum: INTEGER;serConfig: INTEGER): OSErr;
|
|
FUNCTION SerSetBuf(refNum: INTEGER;serBPtr: Ptr;serBLen: INTEGER): OSErr;
|
|
FUNCTION SerHShake(refNum: INTEGER;flags: SerShk): OSErr;
|
|
FUNCTION SerSetBrk(refNum: INTEGER): OSErr;
|
|
FUNCTION SerClrBrk(refNum: INTEGER): OSErr;
|
|
FUNCTION SerGetBuf(refNum: INTEGER;VAR count: LONGINT): OSErr;
|
|
FUNCTION SerStatus(refNum: INTEGER;VAR serSta: SerStaRec): OSErr;
|
|
|
|
|
|
{$ENDC} { UsingSerial }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|