PDP-10 Archive: autopatch/sort.c12 from bb-kl11c-bm_tops20_v6_1_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/sort.c12

There are 2 other files named sort.c12 in the archive. Click here to see a list.

 INS 24/46	;12C1
	;**;[530] At GETFBR+17L, insert 2 lines
		SKIPN	LSCWSZ			;[530] HAVE WE ALREADY SEEN THE SIZE?
		HRRZM	P1,LSCWSZ		;[530] NO, SAVE THE FIRST TIME
 REP 81/46	;12C2
		SKIPN	LSCWSZ			;HAVE WE ALREADY SEEN THE SIZE?
		MOVEM	P1,LSCWSZ		;NO, SAVE THE FIRST TIME
 WIT
	;**;[530] At GETFBR+74L, delete 2 lines
 REP 23/83	;12C3
		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	;12C4
		POP	P,T2		;[N19]
		MOVEM	T1,(T4)		;[C20] YES
 WIT
		MOVEM	T1,@T4		;[C20][527] YES
		POP	P,T1		;[527] RESTORE T1
		POP	P,T2		;[527] RESTORE T2
 SUM 171180