source: buchla-68k/alcyon/filname.s@ dade7a0

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 1.6 KB
Line 
1.globl _FilName
2.text
3_FilName:
4~~FilName:
5~s=R13
6~p=R12
7link R14,#0
8movem.l R6-R7/R11-R13,-(sp)
9~tp=R11
10~i=R7
11*line 29
12move.l 8(R14),R13
13*line 29
14move.l 12(R14),R12
15*line 29
16move.l R12,R11
17*line 31
18clr R7
19bra L4
20L5:
21*line 32
22*line 33
23*line 33
24tst.b (R13)
25beq L6
26*line 34
27*line 35
28*line 36
29cmp.b #46,(R13)
30beq L2
31*line 37
32*line 38
33move.b (R13)+,(R12)+
34*line 39
35bra L7
36L6:
37*line 40
38*line 41
39*line 42
40clr.b (R12)
41*line 43
42move.l R11,R0
43bra L1
44L7:
45*line 44
46L3:
47*line 31
48add #1,R7
49L4:
50*line 31
51cmp #8,R7
52blt L5
53L2:
54*line 47
55clr.b (R12)
56*line 48
57move.l R11,R0
58bra L1
59L1:tst.l (sp)+
60movem.l (sp)+,R7-R7/R11-R13
61unlk R14
62rts
63.globl _FilExt
64.text
65_FilExt:
66~~FilExt:
67~s=R13
68~p=R12
69link R14,#0
70movem.l R5-R7/R11-R13,-(sp)
71~c=R7
72~tp=R11
73~i=R6
74*line 69
75move.l 8(R14),R13
76*line 69
77move.l 12(R14),R12
78*line 69
79move.l R12,R11
80*line 71
81bra L11
82L10:
83*line 72
84*line 73
85*line 73
86cmp.b #46,R7
87bne L12
88*line 74
89*line 75
90add.l #1,R13
91*line 76
92*line 77
93clr R6
94bra L15
95L16:
96*line 78
97*line 79
98*line 79
99tst.b (R13)
100beq L17
101*line 80
102*line 81
103move.b (R13)+,(R12)+
104*line 82
105bra L18
106L17:
107*line 83
108*line 84
109*line 85
110clr.b (R12)
111*line 86
112move.l R11,R0
113bra L8
114L18:
115*line 87
116L14:
117*line 77
118add #1,R6
119L15:
120*line 77
121cmp #3,R6
122blt L16
123L13:
124*line 88
125*line 89
126*line 90
127clr.b (R12)
128*line 91
129move.l R11,R0
130bra L8
131*line 92
132bra L19
133L12:
134*line 93
135*line 94
136*line 95
137add.l #1,R13
138L19:
139*line 96
140L11:
141*line 97
142move.b (R13),R7
143bne L10
144L9:
145*line 99
146clr.b (R12)
147*line 100
148move.l R11,R0
149bra L8
150L8:tst.l (sp)+
151movem.l (sp)+,R6-R7/R11-R13
152unlk R14
153rts
154.data
Note: See TracBrowser for help on using the repository browser.