2824
|
1 * Disassembly by Os9disasm of ccdiv.r
|
|
2
|
|
3 section code
|
|
4
|
|
5 ccudiv: subd #0
|
|
6 beq L000f
|
|
7 pshs d
|
|
8 leas -2,s
|
|
9 clr ,s
|
|
10 clr 1,s
|
|
11 bra L003d
|
|
12 L000f puls d
|
|
13 std ,s
|
|
14 ldd #$002d
|
|
15 lbra _rpterr
|
|
16 ccdiv: subd #0
|
|
17 beq L000f
|
|
18 pshs d
|
|
19 leas -2,s
|
|
20 clr ,s
|
|
21 clr 1,s
|
|
22 tsta
|
|
23 bpl L0031
|
|
24 nega
|
|
25 negb
|
|
26 sbca #0
|
|
27 com 1,s
|
|
28 std 2,s
|
|
29 L0031 ldd 6,s
|
|
30 bpl L003d
|
|
31 nega
|
|
32 negb
|
|
33 sbca #0
|
|
34 com 1,s
|
|
35 std 6,s
|
|
36 L003d lda #1
|
|
37 L003f inca
|
|
38 asl 3,s
|
|
39 rol 2,s
|
|
40 bpl L003f
|
|
41 sta ,s
|
|
42 ldd 6,s
|
|
43 clr 6,s
|
|
44 clr 7,s
|
|
45 L004e subd 2,s
|
|
46 bcc L0058
|
|
47 addd 2,s
|
|
48 andcc #254
|
|
49 bra L005a
|
|
50 L0058 orcc #1
|
|
51 L005a rol 7,s
|
|
52 rol 6,s
|
|
53 lsr 2,s
|
|
54 ror 3,s
|
|
55 dec ,s
|
|
56 bne L004e
|
|
57 std 2,s
|
|
58 tst 1,s
|
|
59 beq L0074
|
|
60 ldd 6,s
|
|
61 nega
|
|
62 negb
|
|
63 sbca #0
|
|
64 std 6,s
|
|
65 L0074 ldx 4,s
|
|
66 ldd 6,s
|
|
67 std 4,s
|
|
68 stx 6,s
|
|
69 ldx 2,s
|
|
70 ldd 4,s
|
|
71 leas 6,s
|
|
72 rts
|
|
73
|
|
74 endsect
|
|
75
|