Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - accept.c07
There is 1 other file named accept.c07 in the archive. Click here to see a list.
 REP 13/1	;07C1
	;COPYRIGHT (C) 1973, 1981, BY DIGITAL EQUIPMENT CORPORATION
	;
 WIT
	;COPYRIGHT (C) 1973, 1983, BY DIGITAL EQUIPMENT CORPORATION
	;
	;**** version 12B
	;[1074] 19-AUG-83 JEH	Fix twos complement routine
 REP 59/3	;07C2
		AOJN	1,GETEOL		;ANSWER AND
		AOJA	0,GETEOL		;EXIT
 WIT
		JCRY1	.+1			;[1074] CLEAR FLAGS
		AOS	1			;[1074] ONE ADD TO LOW ORDER WORD
		JCRY1	[TLZ	1,400000	;[1074] SHUT OFF CARRY FLAG
			 AOJA	0,GETEOL]	;[1074] AND ADD ONE
		JRST	GETEOL			;[1074]
 SUM 159204