source: buchla-68k/alcyon/getl.s@ fa38804

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 538 bytes
RevLine 
[7bf3856]1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _getl
5.text
6_getl:
7~~getl:
8~stream=R13
9link R14,#-4
10movem.l R7-R7/R12-R13,-(sp)
11~temp=-4
12~t=R12
13*line 28
14move.l 8(R14),R13
15*line 28
16lea -4(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 32
26move.l R13,(sp)
27jsr _getc
28move.b R0,(R12)+
29*line 33
30move.l R13,(sp)
31jsr _getc
32move.b R0,(R12)
33*line 35
34move.l -4(R14),R0
35bra L1
36L1:tst.l (sp)+
37movem.l (sp)+,R12-R13
38unlk R14
39rts
40.data
Note: See TracBrowser for help on using the repository browser.