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

	.globl	_inewint
_inewint:.word	0
	cvtlb	4(ap),r0
	bvs	nofit
	ashl	$2,4(ap),r0
	addl2	$1024,r0
	ret
nofit:
	calls	$0,_newint
	movl	4(ap),0(r0)
	ret
Commit	Line	Data
8cd657f4 JF	1	.globl _inewint
	2	_inewint:.word 0
	3	cvtlb 4(ap),r0
	4	bvs nofit
	5	ashl $2,4(ap),r0
	6	addl2 $1024,r0
	7	ret
	8	nofit:
	9	calls $0,_newint
	10	movl 4(ap),0(r0)
	11	ret