X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fpascal%2FQSORT.PS;fp=sw%2Fsrc%2Fpascal%2FQSORT.PS;h=174fb0aa3ac381fc4ab686d1056f7769dffed94c;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/pascal/QSORT.PS b/sw/src/pascal/QSORT.PS
new file mode 100644
index 0000000..174fb0a
--- /dev/null
+++ b/sw/src/pascal/QSORT.PS
@@ -0,0 +1,16 @@
+  PROCEDURE SORT(L,R: INDEX);
+    VAR I,J: INDEX;  X,H: ITEM;
+
+  BEGIN  I := L;  J := R;
+      X := A[ (L+R) DIV 2 ];
+      REPEAT
+          WHILE A[I]<X DO I := I+1;
+          WHILE X<A[J] DO J := J-1;
+          IF I<=J THEN
+          BEGIN  H := A[I];  A[I] := A[J];  A[J] := H;
+              I := I+1;  J := J-1
+          END
+      UNTIL I>J;
+      IF L<J THEN SORT(L,J);
+      IF I<R THEN SORT(I,R)
+  END (* SORT *);