Mercurial > hg > Members > kono > nitros9-code

view lib/alib/frewind.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 rewind file

* OTHER MODULES NEEDED: none

* ENTRY: A=path


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

 nam Rewind open RBF file
 ttl Assembler Library Module


 section .text

FREWIND:
 pshs x,u
 ldx #0
 tfr x,u
 os9 I$Seek seek to pos 0
 puls x,u,pc

 endsect