Mercurial > hg > Members > kono > nitros9-code
view lib/alib/frewind.a @ 2512:3dcda506604b
added pretty indexer to dskcopy process
author | aaronwolfe |
---|---|
date | Tue, 06 Apr 2010 01:20:16 +0000 (2010-04-06) |
parents | 7d70b7e1cb21 |
children | aaba193af04f |
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 psect FREWIND,0,0,0,0,0 FREWIND: pshs x,u ldx #0 tfr x,u os9 I$Seek seek to pos 0 puls x,u,pc endsect