File:  [Research Unix] / researchv10no / cmd / worm / c.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:34 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

#include	<sys/param.h>
main(argc, argv)
	char **argv;
{
	Long off;
	long a, b;

	a = atoi(argv[1]);
	b = atoi(argv[2]);
	off = Llmul(ltoL(a), b);
	print("%d(#%x) x %d(#%x) = #%ux%0.8ux(%.0f)\n", a, a, b, b, off.hi, off.lo,
		((float)off.lo) + 65536.0*65536.0*off.hi);
	if(llseek(open("/dev/null", 0), off, 0) < 0)
		perror("seek");
}

unix.superglobalmegacorp.com

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