mirror of
https://github.com/mrkite/regs.git
synced 2024-12-06 19:50:40 +00:00
156 lines
2.6 KiB
Plaintext
156 lines
2.6 KiB
Plaintext
TTErr enum<int16> {
|
|
badDevType = $0c01,
|
|
badDevNum = $0c02,
|
|
badMode = $0c03,
|
|
unDefHW = $0c04,
|
|
lostDev = $0c05,
|
|
lostFile = $0c06,
|
|
badTitle = $0c07,
|
|
noRoom = $0c08,
|
|
noDevice = $0c09,
|
|
noFile = $0c0a,
|
|
dupFile = $0c0b,
|
|
notClosed = $0c0c,
|
|
notOpen = $0c0d,
|
|
badFormat = $0c0e,
|
|
ringBuffOFlo = $0c0f,
|
|
writeProtected = $0c10,
|
|
devErr = $0c40,
|
|
}
|
|
|
|
DeviceNum enum<int16> {
|
|
input = $0000,
|
|
output = $0001,
|
|
errorOutput = $0002,
|
|
}
|
|
|
|
DeviceType enum<int16> {
|
|
basicType = $0000,
|
|
pascalType = $0001,
|
|
ramBased = $0002,
|
|
}
|
|
|
|
EchoFlag enum<int16> {
|
|
noEcho = $0000,
|
|
echo = $0001,
|
|
}
|
|
|
|
DeviceRecHndl = ^DeviceRecPtr;
|
|
DeviceRecPtr = ^DeviceRec;
|
|
DeviceRec struct {
|
|
ptrOrSlot: int32;
|
|
deviceType: DeviceType;
|
|
}
|
|
|
|
TxtMskRecHndl = ^TxtMaskRecPtr;
|
|
TxtMaskRecPtr = ^TxtMaskRec;
|
|
TxtMaskRec struct {
|
|
orMask: int16;
|
|
andMask: int16;
|
|
}
|
|
|
|
TextBootInit() {
|
|
$0c, $01
|
|
}
|
|
TextStartUp() {
|
|
$0c, $02
|
|
}
|
|
TextShutDown() {
|
|
$0c, $03
|
|
}
|
|
TextVersion(): int16 {
|
|
$0c, $04
|
|
}
|
|
TextReset() {
|
|
$0c, $05
|
|
}
|
|
TextStatus(): bool {
|
|
$0c, $06
|
|
}
|
|
CtlTextDev(deviceNum: int16, controlCode: int16) {
|
|
$0c, $16
|
|
}
|
|
ErrWriteBlock(textPtr: Ptr, offset: int16, count: int16) {
|
|
$0c, $1f
|
|
}
|
|
ErrWriteChar(theChar: int16) {
|
|
$0c, $19
|
|
}
|
|
ErrWriteCString(cStrPtr: CStringPtr) {
|
|
$0c, $21
|
|
}
|
|
ErrWriteLine(str: ^Str255) {
|
|
$0c, $1b
|
|
}
|
|
ErrWriteString(str: ^Str255) {
|
|
$0c, $1d
|
|
}
|
|
GetErrGlobals(): TxtMaskRec {
|
|
$0c, $0e
|
|
}
|
|
GetErrorDevice(): ^DeviceRec {
|
|
$0c, $14
|
|
}
|
|
GetInGlobals(): TxtMaskRec {
|
|
$0c, $0c
|
|
}
|
|
GetInputDevice(): ^DeviceRec {
|
|
$0c, $12
|
|
}
|
|
GetOutGlobals(): TxtMaskRec {
|
|
$0c, $0d
|
|
}
|
|
GetOutputDevice(): ^DeviceRec {
|
|
$0c, $13
|
|
}
|
|
InitTextDev(deviceNum: int16) {
|
|
$0c, $15
|
|
}
|
|
ReadChar(echoFlag: EchoFlag): int16 {
|
|
$0c, $22
|
|
}
|
|
ReadLine(bufferPtr: Ptr, maxCount: int16, eolChar: int16,
|
|
echoFlag: EchoFlag): int16 {
|
|
$0c, $24
|
|
}
|
|
SetErrGlobals(andMask: int16, orMask: int16) {
|
|
$0c, $0b
|
|
}
|
|
SetErrorDevice(deviceType: DeviceType, ptrOrSlot: int32) {
|
|
$0c, $11
|
|
}
|
|
SetInGlobals(andMask: int16, orMask: int16) {
|
|
$0c, $09
|
|
}
|
|
SetInputDevice(deviceType: DeviceType, ptrOrSlot: int32) {
|
|
$0c, $0f
|
|
}
|
|
SetOutGlobals(andMask: int16, orMask: int16) {
|
|
$0c, $0a
|
|
}
|
|
SetOutputDevice(deviceType: DeviceType, ptrOrSlot: int32) {
|
|
$0c, $10
|
|
}
|
|
StatusTextDev(deviceNum: int16, requestCode: int16) {
|
|
$0c, $17
|
|
}
|
|
TextReadBlock(bufferPtr: Ptr, offset: int16, blockSize: int16,
|
|
echoFlag: EchoFlag) {
|
|
$0c, $23
|
|
}
|
|
TextWriteBlock(textPtr: Ptr, offset: int16, count: int16) {
|
|
$0c, $1e
|
|
}
|
|
WriteChar(theChar: int16) {
|
|
$0c, $18
|
|
}
|
|
WriteCString(cStrPtr: CStringPtr) {
|
|
$0c, $20
|
|
}
|
|
WriteLine(str: ^Str255) {
|
|
$0c, $1a
|
|
}
|
|
WriteString(str: ^Str255) {
|
|
$0c, $1c
|
|
}
|