Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
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