Mercurial > hg > Members > kono > nitros9-code

view lib/alib/ftoeof.a @ 2583:307e619f3cd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected silly typo which occured during upload.
author robertgault
date Fri, 16 Sep 2011 09:41:34 +0000
parents 7d70b7e1cb21
children aaba193af04f
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


 psect FTOEOF,0,0,0,0,0

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