source: buchla-68k/alcyon/dformat.s@ 4810254

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