Mercurial > hg > Members > kono > nitros9-code
view lib/alib/ftoeof.as @ 2802:58ca94b06908 lwtools-port
now built from defs files
author | Boisy Pitre <boisy.pitre@nuance.com> |
---|---|
date | Fri, 01 Feb 2013 19:26:44 -0600 |
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