|
2824
|
1 * Disassembly by Os9disasm of sets.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 allocset: ldd #$0020
|
|
|
6 pshs d
|
|
|
7 lbsr malloc
|
|
|
8 puls x,pc
|
|
|
9 addc2set: bsr L003a
|
|
|
10 orb a,x
|
|
|
11 stb a,x
|
|
|
12 tfr x,d
|
|
|
13 rts
|
|
|
14 adds2set: pshs u
|
|
|
15 ldu 6,s
|
|
|
16 ldx 4,s
|
|
|
17 bra L0021
|
|
|
18 L001b bsr L003e
|
|
|
19 orb a,x
|
|
|
20 stb a,x
|
|
|
21 L0021 lda ,u+
|
|
|
22 bne L001b
|
|
|
23 ldd 4,s
|
|
|
24 puls u,pc
|
|
|
25 rmfmset: bsr L003a
|
|
|
26 comb
|
|
|
27 andb a,x
|
|
|
28 stb a,x
|
|
|
29 clrb
|
|
|
30 tfr x,d
|
|
|
31 rts
|
|
|
32 smember: bsr L003a
|
|
|
33 andb a,x
|
|
|
34 clra
|
|
|
35 rts
|
|
|
36 L003a ldx 4,s
|
|
|
37 lda 7,s
|
|
|
38 L003e pshs a
|
|
|
39 ldb #1
|
|
|
40 anda #7
|
|
|
41 beq L004a
|
|
|
42 L0046 lslb
|
|
|
43 deca
|
|
|
44 bne L0046
|
|
|
45 L004a puls a
|
|
|
46 asra
|
|
|
47 asra
|
|
|
48 asra
|
|
|
49 rts
|
|
|
50 dupset: bsr allocset
|
|
|
51 ldx 2,s
|
|
|
52 pshs d,x
|
|
|
53 bsr copyset
|
|
|
54 puls d,x,pc
|
|
|
55 copyset: pshs u
|
|
|
56 ldx 4,s
|
|
|
57 ldu 6,s
|
|
|
58 ldb #$20
|
|
|
59 L0062 lda ,u+
|
|
|
60 sta ,x+
|
|
|
61 decb
|
|
|
62 bne L0062
|
|
|
63 ldd 4,s
|
|
|
64 puls u,pc
|
|
|
65 sunion: pshs u
|
|
|
66 ldu 4,s
|
|
|
67 ldx 6,s
|
|
|
68 ldb #$20
|
|
|
69 L0075 lda ,x+
|
|
|
70 ora ,u
|
|
|
71 sta ,u+
|
|
|
72 decb
|
|
|
73 bne L0075
|
|
|
74 ldd 4,s
|
|
|
75 puls u,pc
|
|
|
76 sinterse: pshs u
|
|
|
77 ldu 4,s
|
|
|
78 ldx 6,s
|
|
|
79 ldb #$20
|
|
|
80 L008a lda ,x+
|
|
|
81 anda ,u
|
|
|
82 sta ,u+
|
|
|
83 decb
|
|
|
84 bne L008a
|
|
|
85 ldd 4,s
|
|
|
86 puls u,pc
|
|
|
87 sdiffere: pshs u
|
|
|
88 ldu 4,s
|
|
|
89 ldx 6,s
|
|
|
90 ldb #$20
|
|
|
91 L009f lda ,x+
|
|
|
92 eora ,u
|
|
|
93 sta ,u+
|
|
|
94 decb
|
|
|
95 bne L009f
|
|
|
96 ldd 4,s
|
|
|
97 puls u,pc
|
|
|
98
|
|
|
99 endsect
|
|
|
100
|
