supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/Serial.p
2019-06-29 23:17:50 +08:00

112 lines
2.3 KiB
OpenEdge ABL

{
Created: Saturday, July 27, 1991 at 11:40 PM
Serial.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1985-1991
All rights reserved
This file is used in these builds: Mac32 BigBang Sys606
Change History (most recent first):
<4> 7/31/91 JL Updated Copyright.
<3> 1/27/91 LN Checked in Database generate file from DSG.
<2> 10/3/90 JAL Removed RAMSDOpen and RAMSDClose. Obsolete.
To Do:
}
{$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}