Mercurial > hg > Members > kono > nitros9-code

view lib/alib/ftoeof.as @ 3038:c6eafb074443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not return error for SDC setstat
author darrenatk
date Thu, 22 Jan 2015 00:05:11 -0700
parents 03f26e88b809
children
line wrap: on
line source

***************************************

* Subroutine seek to end of file

* OTHER MODULES NEEDED: none

* ENTRY: A=path


* EXIT:  CC carry set if error (from I$Seek)
*        B  error code if any

 nam Seek EOF of open RBF file
 ttl Assembler Library Module


 section .text

FTOEOF:
 pshs x,u
 ldb #SS.Size first get filesize
 os9 I$GetStt
 bcs exit
 os9 I$Seek seek to end of file
exit
 puls x,u,pc

 endsect