Context Navigation

fsize.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: 1.8 KB

Line
1	.globl _Cbuffs
2	.globl _Stdbufs
3	.globl _Stdbuf
4	.globl _chantab
5	.globl _Wrkbuf
6	.globl __thefat
7	.globl __thebpb
8	.globl _fsize
9	.text
10	_fsize:
11	~~fsize:
12	~fp=8
13	~how=12
14	link R14,#0
15	movem.l R7-R7/R12-R13,-(sp)
16	~chp=R13
17	~fcp=R12
18	*line 35
19	*line 36
20	tst.l 8(R14)
21	bne L2
22	*line 36
23	move.l #$ffffffff,R0
24	bra L1
25	*line 37
26	L2:
27	*line 38
28	*line 38
29	move.l 8(R14),R8
30	btst #0,12(R8)
31	beq L3
32	*line 39
33	*line 40
34	move.l 8(R14),R8
35	move.b 13(R8),R0
36	ext.w R0
37	muls #12,R0
38	move.l R0,R13
39	add.l #_chantab,R13
40	*line 41
41	*line 42
42	*line 43
43	move.l 4(R13),R0
44	cmp.l #__filecl,R0
45	beq L4
46	*line 43
47	move.l #$ffffffff,R0
48	bra L1
49	*line 44
50	L4:
51	*line 45
52	move.l 8(R13),R12
53	*line 46
54	*line 47
55	*line 47
56	btst #4,32(R12)
57	beq L5
58	*line 48
59	*line 49
60	*line 50
61	tst 12(R14)
62	beq L6
63	*line 50
64	move.l 52(R12),R0
65	bra L1
66	*line 51
67	bra L7
68	L6:
69	*line 52
70	move.l 48(R12),R0
71	bra L1
72	L7:
73	*line 53
74	*line 54
75	bra L8
76	L5:
77	*line 55
78	move.l #$ffffffff,R0
79	bra L1
80	L8:
81	*line 56
82	*line 57
83	bra L9
84	L3:
85	*line 58
86	move.l #$ffffffff,R0
87	bra L1
88	L9:L1:tst.l (sp)+
89	movem.l (sp)+,R12-R13
90	unlk R14
91	rts
92	.globl _dspace
93	.text
94	_dspace:
95	~~dspace:
96	~which=8
97	link R14,#0
98	movem.l R4-R7,-(sp)
99	~maxcl=R7
100	~clcount=R6
101	~nc=R5
102	*line 78
103	*line 79
104	jsr __opnvol
105	tst R0
106	beq L11
107	*line 79
108	move.l #$ffffffff,R0
109	bra L10
110	*line 80
111	L11:
112	*line 81
113	move.l __thebpb,R8
114	move 14(R8),R7
115	*line 83
116	*line 83
117	tst 8(R14)
118	beq L12
119	*line 84
120	*line 85
121	clr R6
122	*line 86
123	*line 87
124	move #2,R5
125	bra L15
126	L16:
127	*line 88
128	*line 89
129	move R5,(sp)
130	move.l #__thefat,-(sp)
131	jsr __gtcl12
132	addq.l #4,sp
133	tst R0
134	bne L17
135	*line 89
136	add #1,R6
137	*line 90
138	L17:L14:
139	*line 87
140	add #1,R5
141	L15:
142	*line 87
143	cmp R7,R5
144	blt L16
145	L13:
146	*line 91
147	move R6,R0
148	bra L10
149	*line 92
150	bra L18
151	L12:
152	*line 93
153	*line 94
154	*line 95
155	move R7,R0
156	bra L10
157	L18:L10:tst.l (sp)+
158	movem.l (sp)+,R5-R7
159	unlk R14
160	rts
161	.data

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format