Return to dup.s CVS log

Up to [Research Unix] / researchv9 / libc / nsys

researchv9-SUN3(old)

# 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:
	linkw	a6,#0
	pea	dup
	trap	#0
	bcc 	noerror
	jmp 	cerror
noerror:
	unlk	a6
	rts

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.