Mercurial > hg > Members > kono > nitros9-code
annotate lib/alib/frewind.as @ 2989:5944d79e3fe5
sysgo: Update copyright year
author | Tormod Volden <debian.tormod@gmail.com> |
---|---|
date | Sun, 13 Apr 2014 21:19:25 +0200 |
parents | 03f26e88b809 |
children |
rev | line source |
---|---|
2474 | 1 *************************************** |
2 | |
3 * Subroutine rewind file | |
4 | |
5 * OTHER MODULES NEEDED: none | |
6 | |
7 * ENTRY: A=path | |
8 | |
9 | |
10 * EXIT: CC carry set if error (from I$Seek) | |
11 * B error code if any | |
12 | |
13 nam Rewind open RBF file | |
14 ttl Assembler Library Module | |
15 | |
16 | |
2782
aaba193af04f
Updated code to use lwasm/lwlink
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2474
diff
changeset
|
17 section .text |
2474 | 18 |
19 FREWIND: | |
20 pshs x,u | |
21 ldx #0 | |
22 tfr x,u | |
23 os9 I$Seek seek to pos 0 | |
24 puls x,u,pc | |
25 | |
26 endsect | |
27 |