LOC
Action
Returns the position of last read or written Byte of the file
Syntax
lLastReadWritten = Loc (#bFileNumber)
Remarks
|
bFileNumber |
(Byte) Filenumber, which identifies an opened file |
|
lLastReadWritten |
(Long) Variable, whichsigned with the Position of last read or written Byte (1-based) |
This function returns the position of the last read or written Byte. If an error occurs, 0 is returned. Check DOS-Error in variable gbDOSError. If the file position pointer is changed with the command SEEK, this function can not be used till the next read/write operation.
Difference with QB
This function differs from QB. In QB the byte position is divided by 128.
กก
ASM
|
Calls |
_FileLoc |
|
|
Input |
r24: filenumber |
X: Pointer to Long-variable, which gets th result |
|
Output |
r25: Errorcode |
C-Flag: Set on Error |
Example
'open the file in BINARY mode
Open "test.biN"
For Binary
As #2
Put #2
, B ' write a byte
Put #2
, W ' write a word
Put #2
, L ' write a long
Ltemp = Loc(#2)
+ 1 ' get the
position of the next byte
Print Ltemp ;
" LOC" ' store the
location of the file pointer
Print Lof(#2)
; " length of file"
Print
Fileattr(#2)
; " file mode"
' should be 32 for binary
Put #2
, Sn ' write a single
Put #2
, Stxt ' write a
string
Flush #2
' flush to disk
Close #2