PDP-10 Archive: autopatch/sort.c09 from bb-kl11f-bm_tops20_v7_0_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/sort.c09

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

 REP 2/1	;09C1
	SUBTTL	D.M.NIXON/DZN/DLC/BRF	10-Feb-83
 WIT
	SUBTTL	D.M.NIXON/DZN/DLC/BRF/KWS	10-Feb-83
 REP 30/74	;09C2
	  $4%	RPACS%			;[N27] GET ACCESSIBILITY OF THE PAGE
		TXNN	T2,PA%PEX	;[N27] DOES THE PAGE EXIST?
		TRNE	T1,777000	;[N27] OR HAVE WE GONE TO FAR?
		JRST	$5		;[N27] YES, WE HAVE FOUND THE TOP
 WIT
	  $4%	TRNE	T1,777000	;[524] Have we gone too far
		 JRST	$5		;[524] Yes, We have found the top
		RPACS%			;[N27] GET ACCESSIBILITY OF THE PAGE
		 ERJMP	$5		;[524] Just in case
		TXNN	T2,PA%PEX	;[N27] DOES THE PAGE EXIST?
 SUM 142401