Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/div8x8.a @ 2474:7d70b7e1cb21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved net and alib files into here
author boisy
date Tue, 30 Mar 2010 02:44:42 +0000
parents
children aaba193af04f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
1 *********************************
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
2 * 8 x 8 Divide
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
3
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4 * OTHER MODULES NEEDED: none
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6 * ENTRY: A = divisor
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7 * B = dividend
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9 * EXIT: A = remainder
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10 * B = quotient
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 nam 8x8 bit Divide
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16 psect DIV88,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 vsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19 negcount rmb 1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22 * Signed Divide
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 SDIV88:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 clr negcount,u
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 PSHS D
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 tst ,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 bpl testquo
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 lda ,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 coma
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30 inca
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
31 sta ,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
32 inc negcount,u
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
33 testquo
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
34 tst 1,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
35 bpl ok
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
36 ldd 1,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
37 coma
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
38 adda #$01
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
39 std 1,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
40 inc negcount,u
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
41 ok
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
42 puls d
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
43 bsr DIV88
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
44 dec negcount,u
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
45 bne goforit
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
46 pshs d
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
47 lda ,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
48 coma
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
49 inca
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
50 sta ,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
51 lda 1,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
52 coma
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
53 inca
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
54 sta 1,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
55 puls d
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
56 goforit
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
57 rts
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
58
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
59
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
60 DIV88:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
61 PSHS A save divisor
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
62 LDA #8 bit counter
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
63 PSHS A
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
64 CLRA initialize remainder
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
65
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
66 div1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
67 ASLB shift dividend & quotient
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
68 ROLA
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
69 CMPA 1,S trial subtraction needed
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
70 BLO div2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
71 SUBA 1,S
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
72 INCB
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
73
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
74 div2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
75 DEC 0,S count down # of bits
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
76 BNE div1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
77 LEAS 2,S clean up stack
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
78 RTS
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
79
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
80 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
81