Common COMCGMS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+

Line S00001 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.cgms2   ---|          CTEXT  COMCGMS - GENERALIZED MATRIX SORT.

Line S00001 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00001.cgms2   +++|          CTEXT  COMCGMS - GENERAL MULTIPLE WORD TABLE SORT.
00003  M00S00002.comcgms +++|          SPACE  4,10
00004  M00S00003.comcgms +++| QUAL$    IF     -DEF,QUAL$
00005  M00S00004.comcgms +++|          QUAL   COMCGMS
00006  M00S00005.comcgms +++| QUAL$    ENDIF
00007  M00S00006.comcgms +++|          BASE   D

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00007.comcgms +++| GMS      SPACE  4,10

Line S00008 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00008.cgms2   ---|***       GMS - GENERALIZED MATRIX SORT.

Line S00002 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00002.cgms2   +++|***       GMS - GENERAL MULTIPLE WORD TABLE SORT.
00012  M00S00009.comcgms +++|*         T. J. HOFFMANN.    78/02/01.
00013  M00S00010.comcgms +++|*         UNIVERSITY OF MINNESOTA.

Line S00011 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00011.cgms2   ---| GMS      SPACE  4,30
00015  M01S00012.cgms2   ---|***       GMS - GENERALIZED MATRIX SORT.

Line S00003 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00003.cgms2   +++| GMS      SPACE  4,40
00017  M01S00004.cgms2   +++|***       GMS - GENERAL MULTIPLE WORD TABLE SORT.
00018  M00S00013.comcgms +++|*

Line S00014 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00014.cgms2   ---|*         GMS USES A SHELL-METZNER SORT ALGORITHM TO SORT A MULTI-
00020  M01S00015.cgms2   ---|*         DIMENSIONAL MATRIX OR SINGLE-DIMENSIONAL VECTOR.  PROVISION
00021  M01S00016.cgms2   ---|*         IS MADE FOR SORTING ON ANY COLUMN IN EITHER ASCENDING OR
00022  M01S00017.cgms2   ---|*         DESCENDING ORDER WITH SIGNED OR UNSIGNED 60-BIT INTEGERS.
00023  M01S00018.cgms2   ---|*         A MASKED SEARCH IS PROVIDED AS AN ASSEMBLY-TIME OPTION WHICH
00024  M01S00019.cgms2   ---|*         ALLOWS SEARCHES ON PARTIAL WORDS.  THE SHELL-METZNER
00025  M01S00020.cgms2   ---|*         ALGORITHM IS DESCRIBED IN -

Line S00005 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00005.cgms2   +++|*         *GMS* USES A SHELL-METZNER SORT ALGORITHM TO SORT CONSTANT
00027  M01S00006.cgms2   +++|*         LENGTH TABLE ENTRIES.  THE ENTRIES CAN BE SORTED IN ASCENDING
00028  M01S00007.cgms2   +++|*         OR DESCENDING ORDER USING SIGNED (INTEGER) OR UNSIGNED
00029  M01S00008.cgms2   +++|*         (CHARACTER) ARITHMETIC.
00030  M01S00009.cgms2   +++|*
00031  M01S00010.cgms2   +++|*         BY DEFAULT, THE SORT KEY IS ASSUMED TO OCCUPY ONE 60 BIT
00032  M01S00011.cgms2   +++|*         WORD.  IF *GMS$* IS DEFINED, (X0) SPECIFIES A MASK DEFINING
00033  M01S00012.cgms2   +++|*         THE KEY FIELD.  THE MASK MUST BE LEFT JUSTIFIED FOR A SIGNED
00034  M01S00013.cgms2   +++|*         INTEGER SORT TO WORK PROPERLY.  IF *MWK$* IS DEFINED, (X1)
00035  M01S00014.cgms2   +++|*         SPECIFIES THE NUMBER OF CONSECUTIVE WORDS COMPRISING OR
00036  M01S00015.cgms2   +++|*         CONTAINING SEGMENTS OF THE KEY.  IF *GMS$* AND *MWK$* ARE
00037  M01S00016.cgms2   +++|*         BOTH DEFINED, THE KEY SEGMENTS IN SUCCEEDING WORDS ARE
00038  M01S00017.cgms2   +++|*         EFFECTIVELY TREATED AS SECONDARY KEYS IN DECREASING ORDER OF
00039  M01S00018.cgms2   +++|*         SIGNIFICANCE.
00040  M01S00019.cgms2   +++|*
00041  M01S00020.cgms2   +++|*         THE SHELL-METZNER ALGORITHM IS DESCRIBED IN -
00042  M00S00021.comcgms +++|*                CREATIVE COMPUTING, NOV-DEC 1976, PP. 76-80.
00043  M00S00022.comcgms +++|*

Line S00023 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00023.cgms2   ---|*         ENTRY  (B2) = 0 IF CHARACTER SORT (UNSIGNED 60-BIT INTEGERS).
00045  M01S00024.cgms2   ---|*                     = 1 IF NUMERIC SORT (SIGNED 60-BIT INTEGERS).

Line S00021 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00021.cgms2   +++|*         ENTRY  (B2) = 0 IF CHARACTER SORT (UNSIGNED INTEGERS).
00047  M01S00022.cgms2   +++|*                     = 1 IF NUMERIC SORT (SIGNED INTEGERS).
00048  M00S00025.comcgms +++|*                (B3) = 0 IF ASCENDING SORT.
00049  M00S00026.comcgms +++|*                     = 1 IF DESCENDING SORT.

Line S00027 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00027.cgms2   ---|*                (B4) = COLUMN NUMBER TO SORT ON (1 = FIRST).
00051  M01S00028.cgms2   ---|*                (B5) = LENGTH OF EACH COLUMN (1 = VECTOR SORT).
00052  M01S00029.cgms2   ---|*                (B6) = LENGTH OF MATRIX OR VECTOR (NUMBER OF ROWS).
00053  M01S00030.cgms2   ---|*                (B7) = ADDRESS OF MATRIX OR VECTOR.

Line S00023 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00023.cgms2   +++|*                (B4) = FIRST WORD OF SORT KEY IN TABLE ENTRY (FIRST
00055  M01S00024.cgms2   +++|*                       WORD OF ENTRY = 1).
00056  M01S00025.cgms2   +++|*                (B5) = LENGTH OF TABLE ENTRY.
00057  M01S00026.cgms2   +++|*                (B6) = NUMBER OF ENTRIES IN TABLE.
00058  M01S00027.cgms2   +++|*                (B7) = ADDRESS OF TABLE.
00059  M00S00031.comcgms +++|*                IF THE SYMBOL *GMS$* IS DEFINED -
00060  M00S00032.comcgms +++|*                (X0) = MASK.
00061  M00S00033.comcgms +++|*                IF THE SYMBOL *MWK$* IS DEFINED -

Line S00034 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00034.cgms2   ---|*                (X1) = NUMBER OF WORDS TO FROM EACH KEY TO COMPARE.

Line S00028 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00028.cgms2   +++|*                (X1) = NUMBER OF KEY WORDS TO COMPARE.
00064  M00S00035.comcgms +++|*

Line S00036 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00036.cgms2   ---|*         EXIT   MATRIX SORTED BY COLUMN (B4).

Line S00029 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00029.cgms2   +++|*         EXIT   TABLE ENTRIES SORTED.
00067  M00S00037.comcgms +++|*
00068  M00S00038.comcgms +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00069  M00S00039.comcgms +++|*                A - 0, 1, 2, 3, 4, 6, 7.
00070  M00S00040.comcgms +++|*                B - 2, 3, 4, 5, 6, 7.
00071  M00S00041.comcgms +++|
00072  M00S00042.comcgms +++|
00073  M00S00043.comcgms +++| GMS      SUBR               ENTRY/EXIT
00074  M00S00044.comcgms +++|
00075  M00S00045.comcgms +++| MWK$     IF     DEF,MWK$
00076  M00S00046.comcgms +++|          SX6    X1+         SAVE NUMBER OF WORDS IN EACH KEY
00077  M00S00047.comcgms +++|          SA6    GMSE
00078  M00S00048.comcgms +++| MWK$     ENDIF
00079  M00S00049.comcgms +++|
00080  M00S00050.comcgms +++|          SX3    GMSB
00081  M00S00051.comcgms +++|          ZR     B2,GMS1     IF CHARACTER SORT
00082  M00S00052.comcgms +++|          SX3    X3+2        SET NUMERIC SORT
00083  M00S00053.comcgms +++| GMS1     SA3    X3+B3
00084  M00S00054.comcgms +++|          SA1    GMSC+B3     SORT ORDER TEST INSTRUCTION
00085  M00S00055.comcgms +++|          BX6    X3
00086  M00S00056.comcgms +++|          SA2    B4-B1       (A2) = OFFSET
00087  M00S00057.comcgms +++|          SA6    GMSA
00088  M00S00058.comcgms +++|          SX2    B6          (X2) = LENGTH
00089  M00S00059.comcgms +++|          SB4    B4-B1
00090  M00S00060.comcgms +++|          BX6    X1

Line S00061 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00061.cgms2   ---|          SA3    B5          (A3) = NUMBER OF ROWS

Line S00030 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00092  M01S00030.cgms2   +++|          SA3    B5          (A3) = ENTRY LENGTH
00093  M00S00062.comcgms +++|          SB7    B7-B5

Line S00063 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00063.cgms2   ---|          SA0    B6          (A0) = LENGTH OF MATRIX (OR VECTOR)

Line S00031 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00031.cgms2   +++|          SA0    B6          (A0) = NUMBER OF ENTRIES
00096  M00S00064.comcgms +++|          SB7    B7+B4       ADD OFFSET
00097  M00S00065.comcgms +++|          SA1    GMSD
00098  M00S00066.comcgms +++|          SA6    A6+B1

Line S00067 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00067.cgms2   ---|          NE     B5,B1,GMS2  IF MATRIX SORT
00100  M01S00068.cgms2   ---|          SA1    A1+B1       SET VECTOR SORT

Line S00032 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00101  M01S00032.cgms2   +++|          NE     B5,B1,GMS2  IF MULTIPLE WORD ENTRIES
00102  M01S00033.cgms2   +++|          SA1    A1+B1       SET SINGLE WORD ENTRIES
00103  M00S00069.comcgms +++| GMS2     BX6    X1
00104  M00S00070.comcgms +++|          SA6    A6+B1
00105  M00S00071.comcgms +++|          RJ     *+1         VOID STACK
00106  M00S00072.comcgms +++|          BSS    1
00107  M00S00073.comcgms +++|
00108  M00S00074.comcgms +++|*         BEGIN SORT.
00109  M00S00075.comcgms +++|
00110  M00S00076.comcgms +++| GMS3     AX2    1           M = M DIV 2
00111  M00S00077.comcgms +++|          SX1    A0          N
00112  M00S00078.comcgms +++|          ZR     X2,GMSX     IF SORT COMPLETED
00113  M00S00079.comcgms +++|          SB2    B1          J = 1
00114  M00S00080.comcgms +++|          IX3    X1-X2       K = N - M
00115  M00S00081.comcgms +++|          SB6    X2          M
00116  M00S00082.comcgms +++|          SB5    X3          K
00117  M00S00083.comcgms +++| GMS4     SB3    B2+         I = J
00118  M00S00084.comcgms +++| GMS5     SX1    B3
00119  M00S00085.comcgms +++|          SB4    B3+B6       L = I + M
00120  M00S00086.comcgms +++|          SX3    A3
00121  M00S00087.comcgms +++|          IX1    X1*X3
00122  M00S00088.comcgms +++|          SX4    B4
00123  M00S00089.comcgms +++|          SA1    B7+X1       D(I)
00124  M00S00090.comcgms +++|          IX6    X4*X3
00125  M00S00091.comcgms +++|
00126  M00S00092.comcgms +++| MWK$     IF     DEF,MWK$
00127  M00S00093.comcgms +++|          SA4    GMSE        GET NUMBER OF WORDS TO COMPARE
00128  M00S00094.comcgms +++|          BX3    X4
00129  M00S00095.comcgms +++| MWK$     ENDIF
00130  M00S00096.comcgms +++|
00131  M00S00097.comcgms +++|          SA4    B7+X6
00132  M00S00098.comcgms +++|
00133  M00S00099.comcgms +++| MWK$     IF     DEF,MWK$
00134  M00S00100.comcgms +++|          SX7    A1          SAVE STARTING ADDRESSES OF EACH ENTRY
00135  M00S00101.comcgms +++|          LX7    18
00136  M00S00102.comcgms +++|          SX6    A4
00137  M00S00103.comcgms +++|          BX7    X7+X6
00138  M00S00104.comcgms +++| GMS6     SX3    X3-1        DECREMENT NUMBER OF WORDS LEFT TO COMPARE
00139  M00S00105.comcgms +++| MWK$     ENDIF
00140  M00S00106.comcgms +++|
00141  M00S00107.comcgms +++| GMS$     IF     DEF,GMS$
00142  M00S00108.comcgms +++|          BX1    X0*X1       APPLY MASK
00143  M00S00109.comcgms +++|          BX4    X0*X4       APPLY MASK
00144  M00S00110.comcgms +++| GMS$     ENDIF
00145  M00S00111.comcgms +++|

Line S00112 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00146  M01S00112.cgms2   ---|          BX6    X1-X4       COMPARE

Line S00034 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00147  M01S00034.cgms2   +++|          BX6    X1-X4       COMPARE KEYS
00148  M00S00113.comcgms +++|
00149  M00S00114.comcgms +++| MWK$     IF     DEF,MWK$

Line S00115 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00115.cgms2   ---|          NZ     X6,GMS7     IF ENTRIES NOT EXACTLY THE SAME
00151  M01S00116.cgms2   ---|          ZR     X3,GMS7     IF ALL WORDS COMPARED

Line S00035 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00152  M01S00035.cgms2   +++|          NZ     X6,GMS7     IF NO MATCH
00153  M01S00036.cgms2   +++|          NG     X6,GMS7     IF NO MATCH
00154  M01S00037.cgms2   +++|          ZR     X3,GMS11    IF ALL WORDS COMPARED
00155  M00S00117.comcgms +++|          SA1    A1+B1
00156  M00S00118.comcgms +++|          SA4    A4+B1

Line S00119 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00157  M01S00119.cgms2   ---|          EQ     GMS6        COMPARE NEXT WORD OF EACH ENTRY

Line S00038 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00038.cgms2   +++|          EQ     GMS6        COMPARE NEXT WORD OF KEYS
00159  M01S00039.cgms2   +++| MWK$     ENDIF
00160  M00S00120.comcgms +++|

Line S00121 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00161  M01S00121.cgms2   ---| MWK$     ENDIF

Line S00040 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00040.cgms2   +++| GMS7     SX3    B2+
00163  M01S00041.cgms2   +++|          PL     X6,GMS8     IF SIGN BITS ARE THE SAME
00164  M00S00122.comcgms +++|

Line S00123 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00123.cgms2   ---| GMS7     SX3    B2
00166  M01S00124.cgms2   ---|          PL     X6,GMS8     IF SIGN BITS ARE THE SAME
00167  M00S00125.comcgms +++| GMSA     BSS    1
00168  M00S00126.comcgms +++|
00169  M00S00127.comcgms +++|*         NG     X4,GMS11    (CHARACTER SORT, ASCENDING ORDER)

Line S00128 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00128.cgms2   ---|*         EQ     GMS7        EXCHANGE ELEMENTS

Line S00042 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00042.cgms2   +++|*         EQ     GMS9        EXCHANGE ENTRIES
00172  M00S00129.comcgms +++|
00173  M00S00130.comcgms +++|*         NG     X1,GMS11    (CHARACTER SORT, DESCENDING ORDER)

Line S00131 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00131.cgms2   ---|*         EQ     GMS7        EXCHANGE ELEMENTS

Line S00043 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00043.cgms2   +++|*         EQ     GMS9        EXCHANGE ENTRIES
00176  M00S00132.comcgms +++|
00177  M00S00133.comcgms +++|*         NG     X1,GMS11    (NUMERIC SORT, ASCENDING ORDER)

Line S00134 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00178  M01S00134.cgms2   ---|*         EQ     GMS7        EXCHANGE ELEMENTS

Line S00044 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00179  M01S00044.cgms2   +++|*         EQ     GMS9        EXCHANGE ENTRIES
00180  M00S00135.comcgms +++|
00181  M00S00136.comcgms +++|*         NG     X4,GMS11    (NUMERIC SORT, DESCENDING ORDER)

Line S00137 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00137.cgms2   ---|*         EQ     GMS7        EXCHANGE ELEMENTS

Line S00045 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00183  M01S00045.cgms2   +++|*         EQ     GMS9        EXCHANGE ENTRIES
00184  M00S00138.comcgms +++|

Line S00139 Modification History
`M01` (Removed by)	`cgms1`

Seq #  *Modification Id* Act 
----------------------------+
00185  M01S00139.cgms1   ---| GMS8     NO

Line S00001 Modification History
`M01` (Added by)	`cgms1`

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00001.cgms1   +++| GMS8     BSS    1
00187  M00S00140.comcgms +++|          ERRNZ  GMSA-GMS8+1 CODE ASSUMES LOCATIONS CONTIGUOUS
00188  M00S00141.comcgms +++|

Line S00142 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00189  M01S00142.cgms2   ---|*         IX6    X1-X4       (ASCENDING SORT)

Line S00046 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00046.cgms2   +++|*         IX6    X4-X1       (ASCENDING SORT)
00191  M00S00143.comcgms +++|*         NO

Line S00144 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00192  M01S00144.cgms2   ---|*         NG     X6,GMS11    IF D(I) .LT. D(L) THEN NO EXCHANGE

Line S00047 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00047.cgms2   +++|*         PL     X6,GMS11    IF D(I) .LE. D(L), NO EXCHANGE
00194  M00S00145.comcgms +++|
00195  M00S00146.comcgms +++|*         IX6    X1-X4       (DESCENDING SORT)
00196  M00S00147.comcgms +++|*         NO

Line S00148 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00197  M01S00148.cgms2   ---|*         PL     X6,GMS11    IF D(I) .GT. D(L) THEN NO EXCHANGE

Line S00048 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00198  M01S00048.cgms2   +++|*         PL     X6,GMS11    IF D(I) .GE. D(L), NO EXCHANGE
00199  M00S00149.comcgms +++|

Line S00150 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00200  M01S00150.cgms2   ---|*         EXCHANGE ELEMENTS.

Line S00049 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00049.cgms2   +++|*         INITIALIZE ENTRY EXCHANGE.
00202  M00S00151.comcgms +++|

Line S00152 Modification History
`M01` (Removed by)	`cgms1`

Seq #  *Modification Id* Act 
----------------------------+
00203  M01S00152.cgms1   ---| GMS9     NO

Line S00002 Modification History
`M01` (Added by)	`cgms1`

Seq #  *Modification Id* Act 
----------------------------+
00204  M01S00002.cgms1   +++| GMS9     BSS    1
00205  M00S00153.comcgms +++|          ERRNZ  GMS9-GMS8-1 CODE ASSUMES LOCATIONS CONTIGUOUS
00206  M00S00154.comcgms +++|

Line S00155 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00207  M01S00155.cgms2   ---|*         SX1    B3          (MATRIX SORT)

Line S00050 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00208  M01S00050.cgms2   +++|*         SX1    B3          (MULTIPLE WORD ENTRIES)
00209  M00S00156.comcgms +++|*         LX3    18
00210  M00S00157.comcgms +++|*         BX3    X3+X1       SAVE B2 AND B3
00211  M00S00158.comcgms +++|*         SB2    A2
00212  M00S00159.comcgms +++|

Line S00160 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00213  M01S00160.cgms2   ---|*         EQ     GMS10       (VECTOR SORT)

Line S00051 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00214  M01S00051.cgms2   +++|*         EQ     GMS12       (SINGLE WORD ENTRIES)
00215  M00S00161.comcgms +++|*         SB0    B0+
00216  M00S00162.comcgms +++|

Line S00163 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00163.cgms2   ---|*         EXCHANGE MATRIX ELEMENTS.
00218  M01S00164.cgms2   ---|

Line S00052 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00219  M01S00052.cgms2   +++|*         EXCHANGE MULTIPLE WORD ENTRIES.
00220  M00S00165.comcgms +++|
00221  M00S00166.comcgms +++| MWK$     IF     DEF,MWK$
00222  M00S00167.comcgms +++|          SA4    X7          RESTORE ADDRESSES
00223  M00S00168.comcgms +++|          LX7    -18

Line S00169 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00224  M01S00169.cgms2   ---|          SA1    X7

Line S00053 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00225  M01S00053.cgms2   +++|          SA1    X7+
00226  M00S00170.comcgms +++| MWK$     ENDIF
00227  M00S00171.comcgms +++|
00228  M00S00172.comcgms +++|          SA1    A1-B2
00229  M00S00173.comcgms +++|          SA4    A4-B2
00230  M00S00174.comcgms +++|          SB2    B0

Line S00175 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00231  M01S00175.cgms2   ---|          SB3    A3          NUMBER OF COLUMNS TO EXCHANGE

Line S00054 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00232  M01S00054.cgms2   +++|          SB3    A3          ENTRY LENGTH
00233  M00S00176.comcgms +++| GMS10    BX7    X1          BEGIN EXCHANGE
00234  M00S00177.comcgms +++|          LX6    X4
00235  M00S00178.comcgms +++|          SA1    A1+B1
00236  M00S00179.comcgms +++|          SA4    A4+B1
00237  M00S00180.comcgms +++|          SA6    A1-B1
00238  M00S00181.comcgms +++|          SB2    B2+1
00239  M00S00182.comcgms +++|          SA7    A4-B1
00240  M00S00183.comcgms +++|          LT     B2,B3,GMS10 IF ALL WORDS NOT EXCHANGED YET
00241  M00S00184.comcgms +++|
00242  M00S00185.comcgms +++|*         EXCHANGE COMPLETE.
00243  M00S00186.comcgms +++|
00244  M00S00187.comcgms +++|          SB3    X3          RESTORE B3 AND B2
00245  M00S00188.comcgms +++|          AX3    18
00246  M00S00189.comcgms +++|          SB3    B3-B6       I = I - M
00247  M00S00190.comcgms +++|          SB2    X3
00248  M00S00191.comcgms +++|          GE     B3,B1,GMS5  IF I .GE. 1
00249  M00S00192.comcgms +++| GMS11    SB2    B2+1        J = J + 1
00250  M00S00193.comcgms +++|          GT     B2,B5,GMS3  IF J .GT. K
00251  M00S00194.comcgms +++|          EQ     GMS4        CHECK NEXT PAIR OF KEYS
00252  M00S00195.comcgms +++|

Line S00196 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00253  M01S00196.cgms2   ---|*         EXCHANGE VECTOR ELEMENTS.

Line S00055 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00055.cgms2   +++|*         EXCHANGE SINGLE WORD ENTRIES.
00255  M00S00197.comcgms +++|
00256  M00S00198.comcgms +++| GMS12    SA1    A1+         RELOAD X1/X4
00257  M00S00199.comcgms +++|          SB3    B3-B6       I = I - M
00258  M00S00200.comcgms +++|          SA4    A4
00259  M00S00201.comcgms +++|          BX6    X1
00260  M00S00202.comcgms +++|          LX7    X4
00261  M00S00203.comcgms +++|          SA6    A4
00262  M00S00204.comcgms +++|          SA7    A1
00263  M00S00205.comcgms +++|          GE     B3,B1,GMS5  IF I .GE. 1
00264  M00S00206.comcgms +++|          EQ     GMS11       ADVANCE POINTERS AND CONTINUE
00265  M00S00207.comcgms +++|

Line S00056 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00266  M01S00056.cgms2   +++|*         DATA FOR INSTRUCTION MODIFICATION.
00267  M00S00208.comcgms +++|
00268  M00S00209.comcgms +++| GMSB     BSS    0           PROCESS DIFFERENT SIGN BITS

Line S00210 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00269  M01S00210.cgms2   ---|          LOC    GMSA
00270  M00S00211.comcgms +++|

Line S00057 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00271  M01S00057.cgms2   +++|          LOC    GMSA        (GMS7)
00272  M01S00058.cgms2   +++|
00273  M00S00212.comcgms +++| +        NG     X4,GMS11    IF CORRECT ORDER

Line S00213 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00274  M01S00213.cgms2   ---|          EQ     GMS9        ELSE EXCHANGE ELEMENTS

Line S00059 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00275  M01S00059.cgms2   +++|          EQ     GMS9        EXCHANGE ENTRIES
00276  M00S00214.comcgms +++|

Line S00215 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00277  M01S00215.cgms2   ---|          LOC    GMSA

Line S00060 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00278  M01S00060.cgms2   +++|          LOC    GMSA        (GMS7)
00279  M00S00216.comcgms +++|
00280  M00S00217.comcgms +++| +        NG     X1,GMS11    IF CORRECT ORDER

Line S00218 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00218.cgms2   ---|          EQ     GMS9        ELSE EXCHANGE ELEMENTS

Line S00061 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00282  M01S00061.cgms2   +++|          EQ     GMS9        EXCHANGE ENTRIES
00283  M00S00219.comcgms +++|

Line S00220 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00284  M01S00220.cgms2   ---|          LOC    GMSA

Line S00062 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00285  M01S00062.cgms2   +++|          LOC    GMSA        (GMS7)
00286  M00S00221.comcgms +++|
00287  M00S00222.comcgms +++| +        NG     X1,GMS11    IF CORRECT ORDER

Line S00223 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00288  M01S00223.cgms2   ---|          EQ     GMS9        ELSE EXCHANGE ELEMENTS

Line S00063 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00063.cgms2   +++|          EQ     GMS9        EXCHANGE ENTRIES
00290  M00S00224.comcgms +++|

Line S00225 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00291  M01S00225.cgms2   ---|          LOC    GMSA

Line S00064 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00292  M01S00064.cgms2   +++|          LOC    GMSA        (GMS7)
00293  M00S00226.comcgms +++|
00294  M00S00227.comcgms +++| +        NG     X4,GMS11    IF CORRECT ORDER

Line S00228 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00295  M01S00228.cgms2   ---|          EQ     GMS9        ELSE EXCHANGE ELEMENTS

Line S00065 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00296  M01S00065.cgms2   +++|          EQ     GMS9        EXCHANGE ENTRIES
00297  M00S00229.comcgms +++|
00298  M00S00230.comcgms +++|          LOC    *O

Line S00066 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00299  M01S00066.cgms2   +++|
00300  M00S00231.comcgms +++| GMSC     BSS    0           PROCESS IDENTICAL SIGN BITS

Line S00232 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00301  M01S00232.cgms2   ---|          LOC    GMSA+1

Line S00067 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00302  M01S00067.cgms2   +++|
00303  M01S00068.cgms2   +++|          LOC    GMSA+1      (GMS8)
00304  M01S00069.cgms2   +++|
00305  M01S00070.cgms2   +++| +        IX6    X4-X1
00306  M01S00071.cgms2   +++|          NO
00307  M01S00072.cgms2   +++|          PL     X6,GMS11    IF D(I) .LE. D(L)
00308  M01S00073.cgms2   +++|
00309  M01S00074.cgms2   +++|          LOC    GMSA+1      (GMS8)
00310  M01S00075.cgms2   +++|
00311  M00S00233.comcgms +++| +        IX6    X1-X4
00312  M00S00234.comcgms +++|          NO

Line S00235 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00313  M01S00235.cgms2   ---|          NG     X6,GMS11    IF D(I) .LT. D(L)

Line S00076 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00314  M01S00076.cgms2   +++|          PL     X6,GMS11    IF D(I) .GE. D(L)
00315  M00S00236.comcgms +++|

Line S00237 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00316  M01S00237.cgms2   ---|          LOC    GMSA+1

Line S00077 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00317  M01S00077.cgms2   +++|          LOC    *O
00318  M00S00238.comcgms +++|

Line S00239 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00239.cgms2   ---| +        IX6    X1-X4
00320  M01S00240.cgms2   ---|          NO
00321  M01S00241.cgms2   ---|          PL     X6,GMS11    IF D(I) .GT. D(L)

Line S00078 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00322  M01S00078.cgms2   +++| GMSD     BSS    0           PROCESS EXCHANGE
00323  M00S00242.comcgms +++|

Line S00243 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00324  M01S00243.cgms2   ---|          LOC    *O
00325  M01S00244.cgms2   ---| GMSD     BSS    0           PROCESS EXCHANGE
00326  M01S00245.cgms2   ---|          LOC    GMSA+2      GMS7

Line S00079 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00327  M01S00079.cgms2   +++|          LOC    GMSA+2      (GMS9)
00328  M00S00246.comcgms +++|

Line S00247 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00329  M01S00247.cgms2   ---| +        SX1    B3          EXCHANGE MATRIX ELEMENTS

Line S00080 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00330  M01S00080.cgms2   +++| +        SX1    B3          EXCHANGE ENTRIES
00331  M00S00248.comcgms +++|          LX3    18
00332  M00S00249.comcgms +++|          BX3    X3+X1       SAVE B2 AND B3
00333  M00S00250.comcgms +++|          SB2    A2
00334  M00S00251.comcgms +++|

Line S00252 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00335  M01S00252.cgms2   ---|          LOC    GMSA+2

Line S00081 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00336  M01S00081.cgms2   +++|          LOC    GMSA+2      (GMS9)
00337  M00S00253.comcgms +++|

Line S00254 Modification History
`M01` (Removed by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00254.cgms2   ---| +        EQ     GMS12       EXCHANGE VECTOR ELEMENTS

Line S00082 Modification History
`M01` (Added by)	`cgms2`

Seq #  *Modification Id* Act 
----------------------------+
00339  M01S00082.cgms2   +++| +        EQ     GMS12       EXCHANGE ENTRIES
00340  M00S00255.comcgms +++| -        SB0    B0+
00341  M00S00256.comcgms +++|
00342  M00S00257.comcgms +++|          LOC    *O
00343  M00S00258.comcgms +++|
00344  M00S00259.comcgms +++| MWK$     IF     DEF,MWK$
00345  M00S00260.comcgms +++| GMSE     CON    0           NUMBER OF WORDS TO COMPARE
00346  M00S00261.comcgms +++| MWK$     ENDIF
00347  M00S00262.comcgms +++|          SPACE  4,10
00348  M00S00263.comcgms +++|          BASE   *
00349  M00S00264.comcgms +++| QUAL$    IF     -DEF,QUAL$
00350  M00S00265.comcgms +++|          QUAL   *
00351  M00S00266.comcgms +++| GMS      EQU    /COMCGMS/GMS
00352  M00S00267.comcgms +++| QUAL$    ENDIF
00353  M00S00268.comcgms +++| GMS      ENDX