Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/ip20.c17
There are 3 other files named ip20.c17 in the archive. Click here to see a list.
 DEL 43/1	;17C1


 REP 81/1	;17C2
	^
 WIT

	;EDITS
	;NAME	DATE		COMMENTS

	;V4*****************
	;RLF	15-May-87	[263] Code for 1-word comp was not tested
	;				correctly.
	;
	;*******************

	^

 REP 35/6	;17C3
		MOVEI	T1,%%ERP$	;;[7] ERROR CODE PARAMETER
		ADDI	T1,-1(L)	;;[7] GET DESCRIPTOR
		HLRZ	T1,(1)		;;[7]
		TRNN	T1,777677	;;[7] IF COMP,
 WIT
		LDB	T1,[POINT 4,%%ERP$-1(L),12]	;[263] GET ARG TYPE CODE
		CAIN	T1,2		;[263] IS IT 1-WORD COMP?
 SUM 164394