Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:common:comcsst
Common COMCSST
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcsst +++| CTEXT COMCSST - SHELL SORT TABLE. 00002 M00S00002.comcsst +++| IF -DEF,QUAL$,1 00003 M00S00003.comcsst +++| QUAL COMCSST 00004 M00S00004.comcsst +++| BASE D
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M00S00005.comcsst +++| SST SPACE 4 00007 M00S00006.comcsst +++|*** SST - SHELL SORT TABLE. 00008 M00S00007.comcsst +++|* E. J. MUNDSTOCK. 70/10/07. 00009 M00S00008.comcsst +++|* UNIVERSITY OF MINNESOTA. 00010 M00S00009.comcsst +++| SST SPACE 4 00011 M00S00010.comcsst +++|*** SST SORTS A TABLE USING A SHELL SORTING TECHNIQUE. 00012 M00S00011.comcsst +++|* THE TABLE IS SORTED IN PLACE INTO ASCENDING ORDER. 00013 M00S00012.comcsst +++|* ALL ELEMENTS SHOULD BE OF THE SAME SIGN. 00014 M00S00013.comcsst +++|* 00015 M00S00014.comcsst +++|* ORIGIN OF TECHNIQUE IS CACM VOL 6 NUMBER 5 MAY 1963, P209. 00016 M00S00015.comcsst +++|* FIRST CODED BY R. HOTCHKISS IN *SORT1*. 00017 M00S00016.comcsst +++|* REVISED BY L. A. LIDDIARD. 00018 M00S00017.comcsst +++|* 00019 M00S00018.comcsst +++|* ENTRY (B1) = 1. 00020 M00S00019.comcsst +++|* (B7) = ADDRESS OF TABLE TO BE SORTED. 00021 M00S00020.comcsst +++|* (X1) = NUMBER OF ELEMENTS IN ARRAY. 00022 M00S00021.comcsst +++|* 00023 M00S00022.comcsst +++|* EXIT TABLE SORTED. 00024 M00S00023.comcsst +++|* 00025 M00S00024.comcsst +++|* USES X - 1, 2, 3, 4, 6, 7. 00026 M00S00025.comcsst +++|* B - 2, 3, 4, 5. 00027 M00S00026.comcsst +++|* A - 1, 2, 6, 7. 00028 M00S00027.comcsst +++|* 00029 M00S00028.comcsst +++|* CALLS NONE. 00030 M00S00029.comcsst +++| 00031 M00S00030.comcsst +++| 00032 M00S00031.comcsst +++| SST1 SA7 B5-B4 T(J+K) = S 00033 M00S00032.comcsst +++| SB2 B2+B1 I = I+1 00034 M00S00033.comcsst +++| EQ B2,B3,SST4 IF END OF TABLE 00035 M00S00034.comcsst +++| SST2 SA2 B2 S = T(I) 00036 M00S00035.comcsst +++| NO 00037 M00S00036.comcsst +++| SB5 B2+B4 J = I-K 00038 M00S00037.comcsst +++| BX7 X2 00039 M00S00038.comcsst +++| SST3 SA1 B5 T(J) 00040 M00S00039.comcsst +++| IX3 X2-X1 COMPARE S AND T(J) 00041 M00S00040.comcsst +++| PL X3,SST1 IF ELEMENTS IN ORDER 00042 M00S00041.comcsst +++| BX6 X1 T(J+K) = T(J) 00043 M00S00042.comcsst +++| SB5 B5+B4 J = J-K 00044 M00S00043.comcsst +++| SA6 A1-B4 00045 M00S00044.comcsst +++| GE B5,B7,SST3 IF J " FIRST 00046 M00S00045.comcsst +++| EQ SST1 00047 M00S00046.comcsst +++| 00048 M00S00047.comcsst +++| SST4 AX4 1 K = K/2 00049 M00S00048.comcsst +++| NO 00050 M00S00049.comcsst +++| SB4 X4 (B4) = -K 00051 M00S00050.comcsst +++| SB2 B7-B4 I = FIRST+K 00052 M00S00051.comcsst +++| NZ X4,SST2 IF K " 0 00053 M00S00052.comcsst +++| 00054 M00S00053.comcsst +++| SST PS ENTRY/EXIT 00055 M00S00054.comcsst +++| MX4 12 K = 2**(ENTIER(LOG2(COUNT)+1) 00056 M00S00055.comcsst +++| SB3 B7+X1 (B3) = LAST+1 00057 M00S00056.comcsst +++| NX6,B2 X1 00058 M00S00057.comcsst +++| AX4 X4,B2 00059 M00S00058.comcsst +++| EQ SST4 ENTER SORT LOOP 00060 M00S00059.comcsst +++| SPACE 4 00061 M00S00060.comcsst +++| BASE * 00062 M00S00061.comcsst +++| QUAL$ IF -DEF,QUAL$ 00063 M00S00062.comcsst +++| QUAL * 00064 M00S00063.comcsst +++| SST= EQU /COMCSST/SST 00065 M00S00064.comcsst +++| QUAL$ ENDIF 00066 M00S00065.comcsst +++| ENDX
cdc/nos2.source/opl.opl871/common/comcsst.txt · Last modified: (external edit)