|
2824
|
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
|
