source: buchla-68k/alcyon/fprintf.s@ 4810254

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 630 bytes
Line 
1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.bss
5L1:.ds.b 4
6.text
7.globl _fprintf
8.text
9_fprintf:
10~~fprintf:
11~stream=8
12~fmt=12
13~va_alist=16
14link R14,#-4
15movem.l R6-R7,-(sp)
16~count=R7
17~aptr=-4
18*line 27
19move.l 8(R14),L1
20*line 28
21lea 16(R14),R8
22move.l R8,-4(R14)
23*line 29
24move.l -4(R14),(sp)
25move.l 12(R14),-(sp)
26move.l #_fpsub,-(sp)
27jsr __dofmt
28addq.l #8,sp
29move R0,R7
30*line 31
31move R7,R0
32bra L2
33L2:tst.l (sp)+
34movem.l (sp)+,R7-R7
35unlk R14
36rts
37.text
38_fpsub:
39~~fpsub:
40~c=8
41link R14,#-4
42*line 38
43move.l L1,(sp)
44move 8(R14),-(sp)
45jsr _aputc
46addq.l #2,sp
47bra L4
48L4:unlk R14
49rts
50.data
Note: See TracBrowser for help on using the repository browser.