[BACK]Return to inewint.s CVS log [TXT] [DIR] Up to [CSRG BSD Unix] / 3BSD / cmd / lisp
File:  [CSRG BSD Unix] / 3BSD / cmd / lisp / inewint.s
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 16:12:53 2018 UTC (8 years, 1 month ago) by root
Branches: MAIN, CSRG
CVS tags: HEAD, BSD3
BSD 3.0

	.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
unix.superglobalmegacorp.com

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