source: buchla-68k/alcyon/putl.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: 840 bytes
Line 
1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _putl
5.text
6_putl:
7~~putl:
8~w=R7
9~stream=R13
10link R14,#0
11movem.l R6-R7/R13-R13,-(sp)
12*line 17
13move.l 8(R14),R7
14*line 17
15move.l 12(R14),R13
16*line 17
17*line 18
18move.l R13,(sp)
19move.l R7,R0
20move.l #$18,R1
21asr.l R1,R0
22move.l R0,-(sp)
23and.l #$ff,(sp)
24jsr _putc
25addq.l #4,sp
26tst R0
27blt L1
28*line 19
29*line 20
30*line 21
31move.l R13,(sp)
32move.l R7,R0
33move.l #$10,R1
34asr.l R1,R0
35move.l R0,-(sp)
36and.l #$ff,(sp)
37jsr _putc
38addq.l #4,sp
39tst R0
40blt L1
41*line 22
42*line 23
43*line 24
44move.l R13,(sp)
45move.l R7,R0
46asr.l #$8,R0
47move.l R0,-(sp)
48and.l #$ff,(sp)
49jsr _putc
50addq.l #4,sp
51tst R0
52blt L1
53*line 25
54*line 26
55move.l R13,(sp)
56move.l R7,-(sp)
57and.l #$ff,(sp)
58jsr _putc
59addq.l #4,sp
60L1:tst.l (sp)+
61movem.l (sp)+,R7-R7/R13-R13
62unlk R14
63rts
64.data
Note: See TracBrowser for help on using the repository browser.