[unix-history] / usr / src / cmd / lisp / franz / vsyscall.s

	.asciz	"@(#)vsyscall.s	35.1	5/6/81"
	.globl	_vsyscall
	.globl	cerror
_vsyscall:
	.word	0x0000
	movl	4(ap),r0		# point at arg array
	movl	(r0)+,r1		# syscall number	
	movl	$10,r2
Loop:
	pushl	(r0)[r2]			# push argument
	sobgeq	r2,Loop			# push 10 arguments	
	pushl	$10				# arg count
	movl	sp,ap			# point at args	
	chmk	r1				# do it
	bcs		L1
	ret
L1:
	jmp		cerror
Commit	Line	Data
4b9ccde7	1	.asciz "@(#)vsyscall.s 35.1 5/6/81"
18d1c3cd JF	2	.globl _vsyscall
	3	.globl cerror
	4	_vsyscall:
	5	.word 0x0000
	6	movl 4(ap),r0 # point at arg array
	7	movl (r0)+,r1 # syscall number
	8	movl $10,r2
	9	Loop:
	10	pushl (r0)[r2] # push argument
	11	sobgeq r2,Loop # push 10 arguments
	12	pushl $10 # arg count
	13	movl sp,ap # point at args
	14	chmk r1 # do it
	15	bcs L1
	16	ret
	17	L1:
	18	jmp cerror