Context Navigation

dirfns.s@ 526a993

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

Download in other formats:

Original Format