source: buchla-68k/alcyon/setbuf.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: 535 bytes
Line 
1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _setbuf
5.text
6_setbuf:
7~~setbuf:
8~stream=R13
9~buffer=12
10link R14,#0
11movem.l R7-R7/R13-R13,-(sp)
12*line 14
13move.l 8(R14),R13
14*line 14
15*line 15
16tst.l 8(R13)
17bne L1
18*line 16
19*line 17
20*line 17
21tst.l 12(R14)
22beq L2
23*line 18
24*line 19
25move.l 12(R14),8(R13)
26*line 20
27move #1024,16(R13)
28*line 21
29bra L3
30L2:
31*line 22
32*line 23
33*line 24
34lea 14(R13),R8
35move.l R8,8(R13)
36*line 25
37move #1,16(R13)
38L3:L1:tst.l (sp)+
39movem.l (sp)+,R13-R13
40unlk R14
41rts
42.data
Note: See TracBrowser for help on using the repository browser.