V9/libc/sys/dup.s

# C library -- dup

#	f = dup(of [ ,nf])
#	f == -1 for error

	dup = 41
.globl	_dup
.globl	_dup2
.globl	cerror

_dup2:
	bset	#6,sp@(7)
_dup:
	pea	dup
	trap	#0
	bcc 	noerror
	jmp 	cerror
noerror:
	rts