← Back to branch summary

~ubuntu-branches/debian/squeeze/ffcall/squeeze

« back to all changes in this revision

Viewing changes to ffcall/callback/vacall_r/vacall-m68k.mit.S

  • Committer: Bazaar Package Importer
  • Author(s): Christoph Egger
  • Date: 2010-06-26 15:29:30 UTC
  • mfrom: (5.1.1 experimental)
  • Revision ID: james.westby@ubuntu.com-20100626152930-c09y01gk3szcnykn
Tags: 1.10+cvs20100619-2
Ship to unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
ffcall/callback/vacall_r/vacall-m68k.mit.S
1
 
#include "asmm68k.h"
2
 
.text
3
 
        .even
4
 
.globl C(__vacall_r)
5
 
        DECLARE_FUNCTION(__vacall_r)
6
 
C(__vacall_r:)
7
 
        link $a6,#-32
8
 
        moveml #0x3020,$sp@-
9
 
        clrl $a6@(-32)
10
 
        lea $a6@(8),$a2
11
 
        movel $a2,$a6@(-28)
12
 
        clrl $a6@(-24)
13
 
        clrl $a6@(-20)
14
 
        movel $a1,$a6@(-4)
15
 
        pea $a6@(-32)
16
 
        movel $a0@(4),$sp@-
17
 
        movel $a0@,$a2
18
 
        jbsr $a2@
19
 
        addql #8,$sp
20
 
        movel $a6@(-20),$d2
21
 
        jeq L4
22
 
        moveq #1,$d3
23
 
        cmpl $d2,$d3
24
 
        jeq L49
25
 
        moveq #2,$d3
26
 
        cmpl $d2,$d3
27
 
        jne L7
28
 
L49:
29
 
        moveb $a6@(-12),$d0
30
 
        extbl $d0
31
 
        jra L4
32
 
        .even
33
 
L7:
34
 
        moveq #3,$d3
35
 
        cmpl $d2,$d3
36
 
        jne L9
37
 
        clrl $d0
38
 
        moveb $a6@(-12),$d0
39
 
        jra L4
40
 
        .even
41
 
L9:
42
 
        moveq #4,$d3
43
 
        cmpl $d2,$d3
44
 
        jne L11
45
 
        movew $a6@(-12),$d0
46
 
        extl $d0
47
 
        jra L4
48
 
        .even
49
 
L11:
50
 
        moveq #5,$d3
51
 
        cmpl $d2,$d3
52
 
        jne L13
53
 
        clrl $d0
54
 
        movew $a6@(-12),$d0
55
 
        jra L4
56
 
        .even
57
 
L13:
58
 
        moveq #6,$d3
59
 
        cmpl $d2,$d3
60
 
        jeq L50
61
 
        moveq #7,$d3
62
 
        cmpl $d2,$d3
63
 
        jeq L50
64
 
        moveq #8,$d3
65
 
        cmpl $d2,$d3
66
 
        jeq L50
67
 
        moveq #9,$d3
68
 
        cmpl $d2,$d3
69
 
        jne L21
70
 
L50:
71
 
        movel $a6@(-12),$d0
72
 
        jra L4
73
 
        .even
74
 
L21:
75
 
        moveq #-10,$d3
76
 
        addl $d3,$d2
77
 
        moveq #1,$d3
78
 
        cmpl $d2,$d3
79
 
        jcs L23
80
 
        movel $a6@(-12),$d0
81
 
        movel $a6@(-8),$d1
82
 
        jra L4
83
 
        .even
84
 
L23:
85
 
        movel $a6@(-20),$d2
86
 
        moveq #12,$d3
87
 
        cmpl $d2,$d3
88
 
        jne L25
89
 
        movel $a6@(-32),$d2
90
 
        btst #6,$d2
91
 
        jeq L26
92
 
        fmoves $a6@(-12),$fp0
93
 
        jra L4
94
 
        .even
95
 
L26:
96
 
        btst #5,$d2
97
 
        jeq L28
98
 
        fmoves $a6@(-12),$fp1
99
 
        fmoved $fp1,$sp@-
100
 
        movel $sp@+,$d0
101
 
        movel $sp@+,$d1
102
 
        jra L4
103
 
        .even
104
 
L28:
105
 
        movel $a6@(-12),$d0
106
 
        jra L4
107
 
        .even
108
 
L25:
109
 
        moveq #13,$d3
110
 
        cmpl $d2,$d3
111
 
        jne L31
112
 
        btst #6,$a6@(-29)
113
 
        jeq L32
114
 
        fmoved $a6@(-12),$fp0
115
 
        jra L4
116
 
        .even
117
 
L32:
118
 
        movel $a6@(-12),$d0
119
 
        movel $a6@(-8),$d1
120
 
        jra L4
121
 
        .even
122
 
L31:
123
 
        moveq #14,$d3
124
 
        cmpl $d2,$d3
125
 
        jne L35
126
 
        movel $a6@(-12),$d0
127
 
        jra L51
128
 
        .even
129
 
L35:
130
 
        moveq #15,$d3
131
 
        cmpl $d2,$d3
132
 
        jne L4
133
 
        movel $a6@(-32),$d2
134
 
        btst #10,$d2
135
 
        jeq L38
136
 
        movel $a6@(-16),$a2
137
 
        moveq #1,$d3
138
 
        cmpl $a2,$d3
139
 
        jne L39
140
 
        movel $a6@(-24),$a2
141
 
        clrl $d0
142
 
        moveb $a2@,$d0
143
 
        jra L4
144
 
        .even
145
 
L39:
146
 
        moveq #2,$d3
147
 
        cmpl $a2,$d3
148
 
        jne L42
149
 
        movel $a6@(-24),$a2
150
 
        clrl $d0
151
 
        movew $a2@,$d0
152
 
        jra L4
153
 
        .even
154
 
L42:
155
 
        moveq #4,$d3
156
 
        cmpl $a2,$d3
157
 
        jne L44
158
 
        movel $a6@(-24),$a2
159
 
        movel $a2@,$d0
160
 
        jra L4
161
 
        .even
162
 
L44:
163
 
        moveq #8,$d3
164
 
        cmpl $a2,$d3
165
 
        jne L38
166
 
        movel $a6@(-24),$a2
167
 
        movel $a2@,$d0
168
 
        movel $a2@(4),$d1
169
 
        jra L4
170
 
        .even
171
 
L38:
172
 
        btst #0,$d2
173
 
        jeq L4
174
 
        movel $a6@(-24),$d0
175
 
L51:
176
 
        movel $d0,$a0
177
 
L4:
178
 
        moveml $a6@(-44),#0x40c
179
 
        unlk $a6
180
 
        rts