Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - sort.c10
There are 4 other files named sort.c10 in the archive. Click here to see a list.
 REP 23/83	;10C1
		HRLZ	T2,T1		;[N19] GET ERROR CODE
	  $2%	LSHC	T1,6		;[N19] GET A CHAR.
		LSH	T1,1		;[N19] MAKE 7 BITS
 WIT
		PUSH	P,T1		;[527] SAVE T1 FOR .ERMSG
		HRLZ	T2,T1		;[N19] GET ERROR CODE
	$2%	LSH	T1,1		;[N19][527] MAKE 7 BITS
		LSHC	T1,6		;[N19] GET A CHAR.
 REP 30/83	;10C2
		POP	P,T2		;[N19]
		MOVEM	T1,(T4)		;[C20] YES
 WIT
		MOVEM	T1,(T4)		;[C20] YES
		POP	P,T1		;[527] RESTORE T1
		POP 	P,T2		;[527] RESTORE T2
 SUM 85694