Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/lseek.as @ 2824:1647f1874cdf lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Kreidier C library
author Boisy Pitre <boisy.pitre@nuance.com>
date Thu, 23 May 2013 05:49:13 -0500
parents
children
comparison
equal deleted inserted replaced
2823:ad769d2a03e4 2824:1647f1874cdf
1 * Disassembly by Os9disasm of lseek.r
2
3 section code
4
5 * OS-9 system function equates
6
7 I$Seek equ $88
8 I$GetStt equ $8d
9
10 lseek: pshs u
11 ldd 10,s
12 bne L000e
13 ldu #0
14 ldx #0
15 bra L0042
16 L000e cmpd #1
17 beq L0039
18 cmpd #2
19 beq L002e
20 ldb #247
21 L001c clra
22 std errno,y
23 ldd #-1
24 leax _flacc,y
25 std ,x
26 std 2,x
27 puls u,pc
28 L002e lda 5,s
29 ldb #2
30 os9 I$GetStt
31 bcs L001c
32 bra L0042
33 L0039 lda 5,s
34 ldb #5
35 os9 I$GetStt
36 bcs L001c
37 L0042 tfr u,d
38 addd 8,s
39 std _flacc+2,y
40 tfr d,u
41 tfr x,d
42 adcb 7,s
43 adca 6,s
44 bmi L001c
45 tfr d,x
46 std _flacc,y
47 lda 5,s
48 os9 I$Seek
49 bcs L001c
50 leax _flacc,y
51 puls u,pc
52
53 endsect
54