ack/mach/xenix3/libsys/xdup.s
1987-10-06 16:39:14 +00:00

17 lines
210 B
ArmAsm

.sect .text; .sect .rom; .sect .data; .sect .bss
.define ___xdup
.sect .text
___xdup:
push bp
mov bp,sp
mov ax,41
mov cx,6(bp)
mov bx,4(bp)
call syscal
jae 1f
mov (_errno),ax
mov ax,-1
1:
pop bp
ret