Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - accept.c05
There are 2 other files named accept.c05 in the archive. Click here to see a list.
 REP 14/1	;05C1

 WIT
	;
	;[1041]	20-AUG-82 RLF	Makes SIZE ERROR work when ACCPETed data item
	;			is multiplied by a constant.
 REP 53/3	;05C2
	TERM20:	TLNE	FLG,ASCALE		;IF ASCALE IS SET,
 WIT
	TERM20:	JFCL	17,.+1			;[1041] CLEAR ALL FLAGS
		TLNE	FLG,ASCALE		;IF ASCALE IS SET,
 SUM 114500