Last change
on this file since 7bf3856 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago |
Added Alcyon C reference output.
|
-
Property mode
set to
100644
|
File size:
3.0 KB
|
Line | |
---|
1 | .globl _defect
|
---|
2 | .globl _dferror
|
---|
3 | .globl _dftype
|
---|
4 | .globl _dfsides
|
---|
5 | .globl _dfbuf
|
---|
6 | .globl _dformat
|
---|
7 | .text
|
---|
8 | _dformat:
|
---|
9 | ~~dformat:
|
---|
10 | ~dt=8
|
---|
11 | link R14,#0
|
---|
12 | movem.l R6-R7,-(sp)
|
---|
13 | ~trk=R7
|
---|
14 | *line 56
|
---|
15 | *line 56
|
---|
16 | tst 8(R14)
|
---|
17 | beq L2
|
---|
18 | *line 57
|
---|
19 | *line 58
|
---|
20 | move #3,_dftype
|
---|
21 | *line 59
|
---|
22 | move #2,_dfsides
|
---|
23 | *line 60
|
---|
24 | bra L3
|
---|
25 | L2:
|
---|
26 | *line 61
|
---|
27 | *line 62
|
---|
28 | *line 63
|
---|
29 | move #2,_dftype
|
---|
30 | *line 64
|
---|
31 | move #1,_dfsides
|
---|
32 | L3:
|
---|
33 | *line 69
|
---|
34 | clr R7
|
---|
35 | bra L6
|
---|
36 | L7:
|
---|
37 | *line 70
|
---|
38 | *line 71
|
---|
39 | *line 72
|
---|
40 | move #-6683,(sp)
|
---|
41 | move.l #$87654321,-(sp)
|
---|
42 | move #1,-(sp)
|
---|
43 | clr -(sp)
|
---|
44 | move R7,-(sp)
|
---|
45 | move #9,-(sp)
|
---|
46 | clr -(sp)
|
---|
47 | clr.l -(sp)
|
---|
48 | move.l #_dfbuf,-(sp)
|
---|
49 | move #4,-(sp)
|
---|
50 | jsr _trap14
|
---|
51 | adda.l #24,sp
|
---|
52 | move R0,_dferror
|
---|
53 | beq L8
|
---|
54 | *line 73
|
---|
55 | *line 74
|
---|
56 | move #1,_defect
|
---|
57 | *line 75
|
---|
58 | move #-1,R0
|
---|
59 | bra L1
|
---|
60 | *line 76
|
---|
61 | *line 77
|
---|
62 | L8:
|
---|
63 | *line 78
|
---|
64 | *line 78
|
---|
65 | cmp #2,_dfsides
|
---|
66 | bne L9
|
---|
67 | *line 79
|
---|
68 | *line 80
|
---|
69 | *line 81
|
---|
70 | move #-6683,(sp)
|
---|
71 | move.l #$87654321,-(sp)
|
---|
72 | move #1,-(sp)
|
---|
73 | move #1,-(sp)
|
---|
74 | move R7,-(sp)
|
---|
75 | move #9,-(sp)
|
---|
76 | clr -(sp)
|
---|
77 | clr.l -(sp)
|
---|
78 | move.l #_dfbuf,-(sp)
|
---|
79 | move #4,-(sp)
|
---|
80 | jsr _trap14
|
---|
81 | adda.l #24,sp
|
---|
82 | move R0,_dferror
|
---|
83 | beq L10
|
---|
84 | *line 82
|
---|
85 | *line 83
|
---|
86 | move #2,_defect
|
---|
87 | *line 84
|
---|
88 | move #-1,R0
|
---|
89 | bra L1
|
---|
90 | *line 85
|
---|
91 | L10:
|
---|
92 | *line 86
|
---|
93 | L9:L5:
|
---|
94 | *line 69
|
---|
95 | add #1,R7
|
---|
96 | L6:
|
---|
97 | *line 69
|
---|
98 | cmp #80,R7
|
---|
99 | blt L7
|
---|
100 | L4:
|
---|
101 | *line 91
|
---|
102 | move #4096,(sp)
|
---|
103 | clr -(sp)
|
---|
104 | move.l #_dfbuf,-(sp)
|
---|
105 | jsr _memsetw
|
---|
106 | addq.l #6,sp
|
---|
107 | *line 92
|
---|
108 | clr (sp)
|
---|
109 | move _dftype,-(sp)
|
---|
110 | move.l #$1000000,-(sp)
|
---|
111 | move.l #_dfbuf,-(sp)
|
---|
112 | move #6,-(sp)
|
---|
113 | jsr _trap14
|
---|
114 | adda.l #12,sp
|
---|
115 | *line 96
|
---|
116 | *line 96
|
---|
117 | move #1,(sp)
|
---|
118 | clr -(sp)
|
---|
119 | clr -(sp)
|
---|
120 | move #1,-(sp)
|
---|
121 | clr -(sp)
|
---|
122 | clr.l -(sp)
|
---|
123 | move.l #_dfbuf,-(sp)
|
---|
124 | move #3,-(sp)
|
---|
125 | jsr _trap14
|
---|
126 | adda.l #18,sp
|
---|
127 | move R0,_dferror
|
---|
128 | beq L11
|
---|
129 | *line 97
|
---|
130 | *line 98
|
---|
131 | move #3,_defect
|
---|
132 | *line 99
|
---|
133 | move #-1,R0
|
---|
134 | bra L1
|
---|
135 | *line 100
|
---|
136 | *line 101
|
---|
137 | *line 102
|
---|
138 | *line 103
|
---|
139 | L11:
|
---|
140 | *line 104
|
---|
141 | move #4096,(sp)
|
---|
142 | clr -(sp)
|
---|
143 | move.l #_dfbuf,-(sp)
|
---|
144 | jsr _memsetw
|
---|
145 | addq.l #6,sp
|
---|
146 | *line 106
|
---|
147 | *line 106
|
---|
148 | cmp #2,_dfsides
|
---|
149 | bne L12
|
---|
150 | *line 107
|
---|
151 | *line 108
|
---|
152 | move #-513,_dfbuf
|
---|
153 | *line 109
|
---|
154 | move #-256,2+_dfbuf
|
---|
155 | *line 110
|
---|
156 | bra L13
|
---|
157 | L12:
|
---|
158 | *line 111
|
---|
159 | *line 112
|
---|
160 | *line 113
|
---|
161 | move #-769,_dfbuf
|
---|
162 | *line 114
|
---|
163 | move #-256,2+_dfbuf
|
---|
164 | L13:
|
---|
165 | *line 117
|
---|
166 | *line 118
|
---|
167 | clr (sp)
|
---|
168 | move #6,-(sp)
|
---|
169 | move #5,-(sp)
|
---|
170 | move.l #_dfbuf,-(sp)
|
---|
171 | move #3,-(sp)
|
---|
172 | move #4,-(sp)
|
---|
173 | jsr _trap13
|
---|
174 | adda.l #12,sp
|
---|
175 | move R0,_dferror
|
---|
176 | beq L14
|
---|
177 | *line 119
|
---|
178 | *line 120
|
---|
179 | move #4,_defect
|
---|
180 | *line 121
|
---|
181 | move #-1,R0
|
---|
182 | bra L1
|
---|
183 | *line 122
|
---|
184 | *line 123
|
---|
185 | L14:
|
---|
186 | *line 124
|
---|
187 | *line 125
|
---|
188 | clr (sp)
|
---|
189 | move #1,-(sp)
|
---|
190 | move #5,-(sp)
|
---|
191 | move.l #_dfbuf,-(sp)
|
---|
192 | move #3,-(sp)
|
---|
193 | move #4,-(sp)
|
---|
194 | jsr _trap13
|
---|
195 | adda.l #12,sp
|
---|
196 | move R0,_dferror
|
---|
197 | beq L15
|
---|
198 | *line 126
|
---|
199 | *line 127
|
---|
200 | move #5,_defect
|
---|
201 | *line 128
|
---|
202 | move #-1,R0
|
---|
203 | bra L1
|
---|
204 | *line 129
|
---|
205 | *line 130
|
---|
206 | *line 131
|
---|
207 | *line 132
|
---|
208 | L15:
|
---|
209 | *line 133
|
---|
210 | move #4096,(sp)
|
---|
211 | clr -(sp)
|
---|
212 | move.l #_dfbuf,-(sp)
|
---|
213 | jsr _memsetw
|
---|
214 | addq.l #6,sp
|
---|
215 | *line 135
|
---|
216 | *line 136
|
---|
217 | clr (sp)
|
---|
218 | move #11,-(sp)
|
---|
219 | move #7,-(sp)
|
---|
220 | move.l #_dfbuf,-(sp)
|
---|
221 | move #3,-(sp)
|
---|
222 | move #4,-(sp)
|
---|
223 | jsr _trap13
|
---|
224 | adda.l #12,sp
|
---|
225 | move R0,_dferror
|
---|
226 | beq L16
|
---|
227 | *line 137
|
---|
228 | *line 138
|
---|
229 | move #6,_defect
|
---|
230 | *line 139
|
---|
231 | move #-1,R0
|
---|
232 | bra L1
|
---|
233 | *line 140
|
---|
234 | *line 141
|
---|
235 | L16:
|
---|
236 | *line 142
|
---|
237 | clr _defect
|
---|
238 | *line 143
|
---|
239 | clr R0
|
---|
240 | bra L1
|
---|
241 | L1:tst.l (sp)+
|
---|
242 | movem.l (sp)+,R7-R7
|
---|
243 | unlk R14
|
---|
244 | rts
|
---|
245 | .data
|
---|
Note:
See
TracBrowser
for help on using the repository browser.