Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/ltoa.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 ltoa.r
2
3 section code
4
5 * class D external label equates
6
7 D0000 equ $0000
8 D000a equ $000a
9
10 ltoa: clra
11 clrb
12 pshs d,u
13 ldu 10,s
14 tst 6,s
15 bpl L0018
16 inc ,s
17 leax 6,s
18 pshs x
19 leax 8,s
20 lbsr _lneg
21 lbsr _lmove
22 L0018 ldd 8,s
23 pshs d
24 ldd 8,s
25 pshs d
26 leax >L005e,pcr
27 lbsr _lmod
28 ldb 3,x
29 addb #$30
30 stb ,u+
31 leax 6,s
32 pshs x
33 ldd 2,x
34 pshs d
35 ldd ,x
36 pshs d
37 leax >L005e,pcr
38 lbsr _ldiv
39 lbsr _lmove
40 ldd 8,s
41 addd 6,s
42 bne L0018
43 tst ,s
44 beq L0051
45 ldb #$2d
46 stb ,u+
47 L0051 clr ,u
48 ldd 10,s
49 pshs d
50 lbsr reverse
51 leas 4,s
52 puls u,pc
53 L005e neg D0000
54 neg D000a
55
56 endsect
57