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