source: buchla-68k/alcyon/conwr.s@ ca867c1

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 483 bytes
Line 
1.globl _errno
2.globl __conwr
3.text
4__conwr:
5~~_conwr:
6~buff=R13
7~kind=8
8~len=14
9link R14,#0
10movem.l R6-R7/R13-R13,-(sp)
11~count=R7
12*line 29
13move.l 10(R14),R13
14*line 29
15clr R7
16bra L4
17L5:
18*line 30
19move.b (R13)+,R0
20ext.w R0
21move R0,(sp)
22move 8(R14),-(sp)
23move #3,-(sp)
24jsr _trap13
25addq.l #4,sp
26L3:
27*line 29
28add #1,R7
29L4:
30*line 29
31cmp 14(R14),R7
32blt L5
33L2:
34*line 32
35move R7,R0
36bra L1
37L1:tst.l (sp)+
38movem.l (sp)+,R7-R7/R13-R13
39unlk R14
40rts
41.data
Note: See TracBrowser for help on using the repository browser.