Topspeed_JPI/JPI-1/dbd/FIO.DBD

<FIO
{FIO$ErrorCheckNamed
{FIO@AddErr
es 4 O L1
}
r 12 V #5BE
str C O L1
name 6 O L1
[5BE 14
AL 0  C1
AH 1  C1
BL 2  C1
BH 3  C1
CL 4  C1
CH 5  C1
DL 6  C1
DH 7  C1
AX 0  C2
BX 2  C2
CX 4  C2
DX 6  C2
BP 8  C2
SI A  C2
DI C  C2
DS E  C2
ES 10  C2
Flags 12  S2  C2[0..F]
]
sp -6F P A50  C2[0..4F] L1
ns -6B A4  C2[0..3] L1
s -67 A65  C2[0..64] L1
}
{FIO$ErrorCheck
r C V #5BE
str 6 O L1
}
{FIO$IOresult
}
{FIO$Write
F E C2
Buf 8 O C1
Count 6 C2
r -16 #5BE
}
{FIO$Flush
F 6 C2
conv -1E #2A02
[2A02 4
long 0  I4
lo 0  C2
hi 2  C2
]
r -1A #5BE
x -6 P #1974
[1974 7
RWPos 0  C2
EOB 2  C2
BufSize 4  C2
Buffer 6  A1  C2[0..0] C1
]
}
{FIO$Truncate
F 6 C2
r -16 #5BE
}
{FIO$Read
F E C2
Buf 8 V O C1
Count 6 C2
r -16 #5BE
}
{FIO$WrStr
F C C2
Buf 6 O L1
Count -4 C2
}
{FIO$WrLn
F 6 C2
}
{FIO$RdChar
F 6 C2
c -3 L1
}
{FIO$RdStr
F C C2
Buf 6 V O L1
c -7 L1
h -6 C2
i -4 C2
}
{FIO$RdItem
F C C2
S 6 V O L1
L -7 C2
i -5 C2
c -3 L1
}
{FIO$WrStrAdj
F E C2
S 8 O L1
Length 6 I2
a -6 I2
L -4 C2
}
{FIO$WrChar
F 8 C2
V 6 L1
}
{FIO$WrCharRep
F A C2
V 8 L1
Count 6 C2
j -57 C2
i -55 C2
S -53 A51  C2[0..50] L1
}
{FIO$WrBool
F A C2
V 8 B1
Length 6 I2
}
{FIO$WrShtInt
F A C2
V 8 I1
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrInt
F A C2
V 8 I2
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrLngInt
F C C2
V 8 I4
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrShtCard
F A C2
V 8 C1
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrCard
F A C2
V 8 C2
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrLngCard
F C C2
V 8 C4
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrShtHex
F A C2
V 8 C1
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrHex
F A C2
V 8 C2
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrLngHex
F C C2
V 8 C4
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrReal
F E C2
V A F4
Precision 8 C2
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$WrLngReal
F 12 C2
V A F8
Precision 8 C2
Length 6 I2
S -53 A51  C2[0..50] L1
}
{FIO$RdBool
F 6 C2
S -53 A51  C2[0..50] L1
}
{FIO$RdShtInt
F 6 C2
i -57 I4
S -53 A51  C2[0..50] L1
}
{FIO$RdInt
F 6 C2
i -57 I4
S -53 A51  C2[0..50] L1
}
{FIO$RdLngInt
F 6 C2
S -53 A51  C2[0..50] L1
}
{FIO$RdShtCard
F 6 C2
i -57 C4
S -53 A51  C2[0..50] L1
}
{FIO$RdCard
F 6 C2
i -57 C4
S -53 A51  C2[0..50] L1
}
{FIO$RdLngCard
F 6 C2
S -53 A51  C2[0..50] L1
}
{FIO$RdShtHex
F 6 C2
i -57 C4
S -53 A51  C2[0..50] L1
}
{FIO$RdHex
F 6 C2
i -57 C4
S -53 A51  C2[0..50] L1
}
{FIO$RdLngHex
F 6 C2
S -53 A51  C2[0..50] L1
}
{FIO$RdReal
F 6 C2
a -63 F8
r -5B F8
S -53 A51  C2[0..50] L1
}
{FIO$RdLngReal
F 6 C2
S -53 A51  C2[0..50] L1
}
{FIO$WrBin
F E C2
Buf 8 O C1
Count 6 C2
i -4 C2
}
{FIO$RdBin
F E C2
Buf 8 V O C1
Count 6 C2
j -8 C2
h -6 C2
i -4 C2
}
{FIO$GetName
name A O L1
fn 6 V A41  C2[0..40] L1
}
{FIO$Open
Name 6 O L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$Exists
Name 6 O L1
b -42 B1
r -41 #5BE
d -2D #1DD8
[1DD8 2B
rsvd 0  A15  C2[0..14] C1
attr 15  S1 #1D36
time 16  C2
date 18  C2
size 1A  C4
Name 1E  AD  C2[0..C] L1
]
(1D36 1 readonly,hidden,system,volume,directory,archive)
}
{FIO$Append
Name 6 O L1
F -4 C2
}
{FIO$Create
Name 6 O L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$Close
F 6 C2
x -1A P #1974
r -16 #5BE
}
{FIO$GetPos
F 6 C2
conv -1E #30CA
[30CA 4
long 0  C4
lo 0  C2
hi 2  C2
]
x -1A P #1974
r -16 #5BE
}
{FIO$Seek
F A C2
pos 6 C4
conv -1E #30F0
[30F0 4
long 0  C4
lo 0  C2
hi 2  C2
]
r -1A #5BE
EOBpos -6 C4
}
{FIO$Size
F 6 C2
conv2 -1E #3103
[3103 4
long 0  C4
lo 0  C2
hi 2  C2
]
conv1 -1A #3103
r -16 #5BE
}
{FIO$Erase
Name 6 O L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$Rename
Name C O L1
newname 6 O L1
fn2 -98 A41  C2[0..40] L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$ReadFirstEntry
DirName C O L1
Attr A S1 #1D36
D 6 V #1DD8
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$ReadNextEntry
D 6 V #1DD8
r -16 #5BE
}
{FIO$ChDir
Name 6 O L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$MkDir
Name 6 O L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$RmDir
Name 6 O L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$GetDir
drive C C1
Name 6 V O L1
fn -57 A41  C2[0..40] L1
r -16 #5BE
}
{FIO$InitBufInf
i -4 C2
}
{FIO$AssignBuffer
F C C2
Buf 6 V O C1
}
FIO@BufInf  A4C  C2[0..12] P #1974
FIO@IOR  C2
FIO@Eng  B1
FIO@ChopOff  B1
FIO@OK  B1
FIO@Separators  S20 L1
FIO@EOF  B1
FIO@IOcheck  B1
>