source: buchla-68k/alcyon/getw.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: 424 bytes
Line 
1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _getw
5.text
6_getw:
7~~getw:
8~stream=R13
9link R14,#-2
10movem.l R7-R7/R12-R13,-(sp)
11~temp=-2
12~t=R12
13*line 28
14move.l 8(R14),R13
15*line 28
16lea -2(R14),R12
17*line 30
18move.l R13,(sp)
19jsr _getc
20move.b R0,(R12)+
21*line 31
22move.l R13,(sp)
23jsr _getc
24move.b R0,(R12)
25*line 33
26move -2(R14),R0
27bra L1
28L1:tst.l (sp)+
29movem.l (sp)+,R12-R13
30unlk R14
31rts
32.data
Note: See TracBrowser for help on using the repository browser.