2824
|
1 * Disassembly by Os9disasm of atol.r
|
|
2
|
|
3 section code
|
|
4
|
|
5 * class D external label equates
|
|
6
|
|
7 D0000 equ $0000
|
|
8 D000a equ $000a
|
|
9
|
|
10 atol: pshs u
|
|
11 ldu 4,s
|
|
12 clra
|
|
13 clrb
|
|
14 pshs b
|
|
15 pshs d
|
|
16 pshs d
|
|
17 L000c ldb ,u+
|
|
18 cmpb #$20
|
|
19 beq L000c
|
|
20 cmpb #9
|
|
21 beq L000c
|
|
22 cmpb #$2d
|
|
23 bne L001e
|
|
24 stb 4,s
|
|
25 bra L0045
|
|
26 L001e cmpb #$2b
|
|
27 bne L0047
|
|
28 bra L0045
|
|
29 L0024 ldd 2,s
|
|
30 pshs d
|
|
31 ldd 2,s
|
|
32 pshs d
|
|
33 leax >L006c,pcr
|
|
34 lbsr _lmul
|
|
35 ldb -1,u
|
|
36 clra
|
|
37 subb #$30
|
|
38 addd 2,x
|
|
39 std 2,s
|
|
40 ldd #0
|
|
41 adcb 1,x
|
|
42 adca ,x
|
|
43 std ,s
|
|
44 L0045 ldb ,u+
|
|
45 L0047 clra
|
|
46 leax _chcodes,y
|
|
47 ldb d,x
|
|
48 andb #8
|
|
49 bne L0024
|
|
50 tst 4,s
|
|
51 beq L005d
|
|
52 leax ,s
|
|
53 lbsr _lneg
|
|
54 bra L005f
|
|
55 L005d leax ,s
|
|
56 L005f leau _flacc,y
|
|
57 pshs u
|
|
58 lbsr _lmove
|
|
59 leas 5,s
|
|
60 puls u,pc
|
|
61 L006c neg D0000
|
|
62 neg D000a
|
|
63
|
|
64 endsect
|
|
65
|