source: buchla-68k/alcyon/dirfns.s@ 0170798

Last change on this file since 0170798 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 4.1 KB
Line 
1.data
2L1:.dc.b $41,$44,$56,$53,$48,$52,$0
3.even
4.text
5.globl _atrstr
6.text
7_atrstr:
8~~atrstr:
9~atr=R7
10~s=-2
11~s=10
12link R14,#0
13movem.l R4-R7,-(sp)
14~i=R6
15~j=R5
16*line 28
17move 8(R14),R7
18*line 28
19move #32,R6
20*line 30
21clr R5
22bra L6
23L7:
24*line 31
25*line 32
26*line 33
27move R7,R0
28and R6,R0
29beq L8
30*line 33
31move R5,R8
32add.l 10(R14),R8
33move R5,R9
34add.l #L1,R9
35move.b (R9),(R8)
36*line 34
37bra L9
38L8:
39*line 35
40move R5,R8
41add.l 10(R14),R8
42move.b #45,(R8)
43L9:
44*line 36
45*line 37
46asr R6
47L5:
48*line 30
49add #1,R5
50L6:
51*line 30
52cmp #6,R5
53blt L7
54L4:
55*line 40
56move R5,R8
57add.l 10(R14),R8
58clr.b (R8)
59*line 41
60move.l 10(R14),R0
61bra L3
62L3:tst.l (sp)+
63movem.l (sp)+,R5-R7
64unlk R14
65rts
66.data
67L10:
68*line 48
69.dc.l L11
70*line 49
71.dc.l L12
72*line 50
73.dc.l L13
74*line 51
75.dc.l L14
76*line 52
77.dc.l L15
78*line 53
79.dc.l L16
80*line 54
81.dc.l L17
82*line 55
83.dc.l L18
84*line 56
85.dc.l L19
86*line 57
87.dc.l L20
88*line 58
89.dc.l L21
90*line 59
91.dc.l L22
92*line 61
93.dc.l L23
94.text
95.globl _mname
96.text
97_mname:
98~~mname:
99~n=8
100link R14,#-4
101*line 73
102cmp #1,8(R14)
103blt L10001
104cmp #12,8(R14)
105ble L10000
106L10001:move.l L10,R0
107bra L10003
108L10000:move 8(R14),R8
109add.l R8,R8
110add.l R8,R8
111move.l #L10,R9
112move.l 0(R8,R9.l),R0
113L10003:bra L24
114L24:unlk R14
115rts
116.globl _dtunpk
117.text
118_dtunpk:
119~~dtunpk:
120~din=8
121~tin=10
122~s=12
123~fmt=16
124link R14,#0
125movem.l R5-R7,-(sp)
126~ftm=R7
127~fdt=R6
128*line 93
129move 10(R14),R7
130asl #8,R7
131and #-256,R7
132move 10(R14),R0
133asr #8,R0
134and #255,R0
135or R0,R7
136*line 94
137move 8(R14),R6
138asl #8,R6
139and #-256,R6
140move 8(R14),R0
141asr #8,R0
142and #255,R0
143or R0,R6
144*line 96
145move 16(R14),R0
146bra L27
147*line 97
148L28:
149*line 98
150*line 99
151*line 100
152*line 101
153*line 102
154*line 103
155*line 104
156*line 105
157*line 106
158move R7,R0
159asr #5,R0
160move R0,(sp)
161and #63,(sp)
162move R7,R0
163move #11,R1
164asr R1,R0
165move R0,-(sp)
166and #31,(sp)
167move R6,-(sp)
168and #31,(sp)
169move R6,R0
170asr #5,R0
171move R0,-(sp)
172and #15,(sp)
173move R6,R0
174move #9,R1
175asr R1,R0
176move R0,-(sp)
177and #127,(sp)
178add #1980,(sp)
179move.l #L29,-(sp)
180move.l 12(R14),-(sp)
181jsr _sprintf
182adda.l #16,sp
183*line 107
184*line 108
185move.l 12(R14),R8
186clr.b 16(R8)
187bra L26
188*line 109
189*line 110
190L30:
191*line 111
192L31:
193*line 112
194*line 113
195*line 114
196*line 115
197*line 116
198*line 117
199*line 118
200*line 119
201*line 120
202move R7,R0
203asr #5,R0
204move R0,(sp)
205and #63,(sp)
206move R7,R0
207move #11,R1
208asr R1,R0
209move R0,-(sp)
210and #31,(sp)
211move R6,-(sp)
212and #31,(sp)
213move R6,R0
214asr #5,R0
215move R0,-(sp)
216and #15,(sp)
217jsr _mname
218addq.l #2,sp
219move.l R0,-(sp)
220move R6,R0
221move #9,R1
222asr R1,R0
223move R0,-(sp)
224and #127,(sp)
225add #1980,(sp)
226move.l #L32,-(sp)
227move.l 12(R14),-(sp)
228jsr _sprintf
229adda.l #18,sp
230*line 121
231*line 122
232move.l 12(R14),R8
233clr.b 17(R8)
234bra L26
235*line 123
236*line 124
237*line 125
238*line 126
239L33:
240*line 127
241*line 128
242*line 129
243*line 130
244*line 131
245*line 132
246*line 133
247*line 134
248*line 135
249move R7,R0
250asr #5,R0
251move R0,(sp)
252and #63,(sp)
253move R7,R0
254move #11,R1
255asr R1,R0
256move R0,-(sp)
257and #31,(sp)
258move R6,R0
259move #9,R1
260asr R1,R0
261move R0,-(sp)
262and #127,(sp)
263add #1980,(sp)
264move R6,-(sp)
265and #31,(sp)
266move R6,R0
267asr #5,R0
268move R0,-(sp)
269and #15,(sp)
270jsr _mname
271addq.l #2,sp
272move.l R0,-(sp)
273move.l #L34,-(sp)
274move.l 12(R14),-(sp)
275jsr _sprintf
276adda.l #18,sp
277*line 136
278*line 137
279move.l 12(R14),R8
280clr.b 17(R8)
281bra L26
282*line 138
283bra L26
284L27:tst R0
285beq L28
286cmp #1,R0
287beq L30
288cmp #2,R0
289beq L33
290bra L31
291L26:
292*line 141
293move.l 12(R14),R0
294bra L25
295L25:tst.l (sp)+
296movem.l (sp)+,R6-R7
297unlk R14
298rts
299.data
300L11:.dc.b $3F,$3F,$3F,$0
301L12:.dc.b $4A,$61,$6E,$0
302L13:.dc.b $46,$65,$62,$0
303L14:.dc.b $4D,$61,$72,$0
304L15:.dc.b $41,$70,$72,$0
305L16:.dc.b $4D,$61,$79,$0
306L17:.dc.b $4A,$75,$6E,$0
307L18:.dc.b $4A,$75,$6C,$0
308L19:.dc.b $41,$75,$67,$0
309L20:.dc.b $53,$65,$70,$0
310L21:.dc.b $4F,$63,$74,$0
311L22:.dc.b $4E,$6F,$76,$0
312L23:.dc.b $44,$65,$63,$0
313L29:.dc.b $25,$30,$34,$64,$2D,$25,$30,$32,$64,$2D,$25,$30,$32,$64,$20,$25,$30,$32,$64,$3A,$25,$30,$32,$64,$0
314L32:.dc.b $25,$30,$34,$64,$20,$25,$73,$20,$25,$2D,$32,$64,$20,$25,$30,$32,$64,$3A,$25,$30,$32,$64,$0
315L34:.dc.b $25,$73,$20,$25,$32,$64,$20,$25,$30,$34,$64,$20,$25,$30,$32,$64,$3A,$25,$30,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.