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