Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/htol.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 htol.r
2
3 section code
4
5 htol: pshs y,u
6 leax _flacc,y
7 leay _chcodes,y
8 ldu 6,s
9 clra
10 clrb
11 std ,x
12 std 2,x
13 L0012 ldb ,u
14 cmpb #$20
15 beq L001c
16 cmpb #9
17 bne L004e
18 L001c leau 1,u
19 bra L0012
20 L0020 lda #4
21 L0022 asl 3,x
22 rol 2,x
23 rol 1,x
24 rol ,x
25 deca
26 bne L0022
27 ldb ,u+
28 subb #$30
29 cmpb #9
30 ble L003d
31 subb #7
32 cmpb #$0f
33 ble L003d
34 subb #$20
35 L003d andcc #254
36 lda #3
37 bra L0045
38 L0043 ldb #0
39 L0045 adcb a,x
40 stb a,x
41 deca
42 bpl L0043
43 ldb ,u
44 L004e ldb b,y
45 andb #$40
46 bne L0020
47 puls y,u,pc
48
49 endsect
50