cdc:nos2.source:opl.opl871:common:comcgms
Common COMCGMS
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00001 M02S00001.cgms2 ---| CTEXT COMCGMS - GENERALIZED MATRIX SORT. 00002 M01S00001.cgms2 +++| CTEXT COMCGMS - GENERAL MULTIPLE WORD TABLE SORT. 00003 M01S00002.comcgms +++| SPACE 4,10 00004 M01S00003.comcgms +++| QUAL$ IF -DEF,QUAL$ 00005 M01S00004.comcgms +++| QUAL COMCGMS 00006 M01S00005.comcgms +++| QUAL$ ENDIF 00007 M01S00006.comcgms +++| BASE D 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00007.comcgms +++| GMS SPACE 4,10
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00008.cgms2 ---|*** GMS - GENERALIZED MATRIX SORT. 00011 M01S00002.cgms2 +++|*** GMS - GENERAL MULTIPLE WORD TABLE SORT. 00012 M01S00009.comcgms +++|* T. J. HOFFMANN. 78/02/01. 00013 M01S00010.comcgms +++|* UNIVERSITY OF MINNESOTA.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00014 M02S00011.cgms2 ---| GMS SPACE 4,30
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00015 M02S00012.cgms2 ---|*** GMS - GENERALIZED MATRIX SORT. 00016 M01S00003.cgms2 +++| GMS SPACE 4,40 00017 M01S00004.cgms2 +++|*** GMS - GENERAL MULTIPLE WORD TABLE SORT. 00018 M01S00013.comcgms +++|*
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00019 M02S00014.cgms2 ---|* GMS USES A SHELL-METZNER SORT ALGORITHM TO SORT A MULTI-
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00015.cgms2 ---|* DIMENSIONAL MATRIX OR SINGLE-DIMENSIONAL VECTOR. PROVISION
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00021 M02S00016.cgms2 ---|* IS MADE FOR SORTING ON ANY COLUMN IN EITHER ASCENDING OR
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00022 M02S00017.cgms2 ---|* DESCENDING ORDER WITH SIGNED OR UNSIGNED 60-BIT INTEGERS.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00023 M02S00018.cgms2 ---|* A MASKED SEARCH IS PROVIDED AS AN ASSEMBLY-TIME OPTION WHICH
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00024 M02S00019.cgms2 ---|* ALLOWS SEARCHES ON PARTIAL WORDS. THE SHELL-METZNER
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00025 M02S00020.cgms2 ---|* ALGORITHM IS DESCRIBED IN - 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 M01S00021.comcgms +++|* CREATIVE COMPUTING, NOV-DEC 1976, PP. 76-80. 00043 M01S00022.comcgms +++|*
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00044 M02S00023.cgms2 ---|* ENTRY (B2) = 0 IF CHARACTER SORT (UNSIGNED 60-BIT INTEGERS).
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00045 M02S00024.cgms2 ---|* = 1 IF NUMERIC SORT (SIGNED 60-BIT INTEGERS). 00046 M01S00021.cgms2 +++|* ENTRY (B2) = 0 IF CHARACTER SORT (UNSIGNED INTEGERS). 00047 M01S00022.cgms2 +++|* = 1 IF NUMERIC SORT (SIGNED INTEGERS). 00048 M01S00025.comcgms +++|* (B3) = 0 IF ASCENDING SORT. 00049 M01S00026.comcgms +++|* = 1 IF DESCENDING SORT.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00027.cgms2 ---|* (B4) = COLUMN NUMBER TO SORT ON (1 = FIRST).
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00028.cgms2 ---|* (B5) = LENGTH OF EACH COLUMN (1 = VECTOR SORT).
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00052 M02S00029.cgms2 ---|* (B6) = LENGTH OF MATRIX OR VECTOR (NUMBER OF ROWS).
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00053 M02S00030.cgms2 ---|* (B7) = ADDRESS OF MATRIX OR VECTOR. 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 M01S00031.comcgms +++|* IF THE SYMBOL *GMS$* IS DEFINED - 00060 M01S00032.comcgms +++|* (X0) = MASK. 00061 M01S00033.comcgms +++|* IF THE SYMBOL *MWK$* IS DEFINED -
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00034.cgms2 ---|* (X1) = NUMBER OF WORDS TO FROM EACH KEY TO COMPARE. 00063 M01S00028.cgms2 +++|* (X1) = NUMBER OF KEY WORDS TO COMPARE. 00064 M01S00035.comcgms +++|*
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00065 M02S00036.cgms2 ---|* EXIT MATRIX SORTED BY COLUMN (B4). 00066 M01S00029.cgms2 +++|* EXIT TABLE ENTRIES SORTED. 00067 M01S00037.comcgms +++|* 00068 M01S00038.comcgms +++|* USES X - 1, 2, 3, 4, 6, 7. 00069 M01S00039.comcgms +++|* A - 0, 1, 2, 3, 4, 6, 7. 00070 M01S00040.comcgms +++|* B - 2, 3, 4, 5, 6, 7. 00071 M01S00041.comcgms +++| 00072 M01S00042.comcgms +++| 00073 M01S00043.comcgms +++| GMS SUBR ENTRY/EXIT 00074 M01S00044.comcgms +++| 00075 M01S00045.comcgms +++| MWK$ IF DEF,MWK$ 00076 M01S00046.comcgms +++| SX6 X1+ SAVE NUMBER OF WORDS IN EACH KEY 00077 M01S00047.comcgms +++| SA6 GMSE 00078 M01S00048.comcgms +++| MWK$ ENDIF 00079 M01S00049.comcgms +++| 00080 M01S00050.comcgms +++| SX3 GMSB 00081 M01S00051.comcgms +++| ZR B2,GMS1 IF CHARACTER SORT 00082 M01S00052.comcgms +++| SX3 X3+2 SET NUMERIC SORT 00083 M01S00053.comcgms +++| GMS1 SA3 X3+B3 00084 M01S00054.comcgms +++| SA1 GMSC+B3 SORT ORDER TEST INSTRUCTION 00085 M01S00055.comcgms +++| BX6 X3 00086 M01S00056.comcgms +++| SA2 B4-B1 (A2) = OFFSET 00087 M01S00057.comcgms +++| SA6 GMSA 00088 M01S00058.comcgms +++| SX2 B6 (X2) = LENGTH 00089 M01S00059.comcgms +++| SB4 B4-B1 00090 M01S00060.comcgms +++| BX6 X1
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00091 M02S00061.cgms2 ---| SA3 B5 (A3) = NUMBER OF ROWS 00092 M01S00030.cgms2 +++| SA3 B5 (A3) = ENTRY LENGTH 00093 M01S00062.comcgms +++| SB7 B7-B5
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00094 M02S00063.cgms2 ---| SA0 B6 (A0) = LENGTH OF MATRIX (OR VECTOR) 00095 M01S00031.cgms2 +++| SA0 B6 (A0) = NUMBER OF ENTRIES 00096 M01S00064.comcgms +++| SB7 B7+B4 ADD OFFSET 00097 M01S00065.comcgms +++| SA1 GMSD 00098 M01S00066.comcgms +++| SA6 A6+B1
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00099 M02S00067.cgms2 ---| NE B5,B1,GMS2 IF MATRIX SORT
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00100 M02S00068.cgms2 ---| SA1 A1+B1 SET VECTOR SORT 00101 M01S00032.cgms2 +++| NE B5,B1,GMS2 IF MULTIPLE WORD ENTRIES 00102 M01S00033.cgms2 +++| SA1 A1+B1 SET SINGLE WORD ENTRIES 00103 M01S00069.comcgms +++| GMS2 BX6 X1 00104 M01S00070.comcgms +++| SA6 A6+B1 00105 M01S00071.comcgms +++| RJ *+1 VOID STACK 00106 M01S00072.comcgms +++| BSS 1 00107 M01S00073.comcgms +++| 00108 M01S00074.comcgms +++|* BEGIN SORT. 00109 M01S00075.comcgms +++| 00110 M01S00076.comcgms +++| GMS3 AX2 1 M = M DIV 2 00111 M01S00077.comcgms +++| SX1 A0 N 00112 M01S00078.comcgms +++| ZR X2,GMSX IF SORT COMPLETED 00113 M01S00079.comcgms +++| SB2 B1 J = 1 00114 M01S00080.comcgms +++| IX3 X1-X2 K = N - M 00115 M01S00081.comcgms +++| SB6 X2 M 00116 M01S00082.comcgms +++| SB5 X3 K 00117 M01S00083.comcgms +++| GMS4 SB3 B2+ I = J 00118 M01S00084.comcgms +++| GMS5 SX1 B3 00119 M01S00085.comcgms +++| SB4 B3+B6 L = I + M 00120 M01S00086.comcgms +++| SX3 A3 00121 M01S00087.comcgms +++| IX1 X1*X3 00122 M01S00088.comcgms +++| SX4 B4 00123 M01S00089.comcgms +++| SA1 B7+X1 D(I) 00124 M01S00090.comcgms +++| IX6 X4*X3 00125 M01S00091.comcgms +++| 00126 M01S00092.comcgms +++| MWK$ IF DEF,MWK$ 00127 M01S00093.comcgms +++| SA4 GMSE GET NUMBER OF WORDS TO COMPARE 00128 M01S00094.comcgms +++| BX3 X4 00129 M01S00095.comcgms +++| MWK$ ENDIF 00130 M01S00096.comcgms +++| 00131 M01S00097.comcgms +++| SA4 B7+X6 00132 M01S00098.comcgms +++| 00133 M01S00099.comcgms +++| MWK$ IF DEF,MWK$ 00134 M01S00100.comcgms +++| SX7 A1 SAVE STARTING ADDRESSES OF EACH ENTRY 00135 M01S00101.comcgms +++| LX7 18 00136 M01S00102.comcgms +++| SX6 A4 00137 M01S00103.comcgms +++| BX7 X7+X6 00138 M01S00104.comcgms +++| GMS6 SX3 X3-1 DECREMENT NUMBER OF WORDS LEFT TO COMPARE 00139 M01S00105.comcgms +++| MWK$ ENDIF 00140 M01S00106.comcgms +++| 00141 M01S00107.comcgms +++| GMS$ IF DEF,GMS$ 00142 M01S00108.comcgms +++| BX1 X0*X1 APPLY MASK 00143 M01S00109.comcgms +++| BX4 X0*X4 APPLY MASK 00144 M01S00110.comcgms +++| GMS$ ENDIF 00145 M01S00111.comcgms +++|
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00146 M02S00112.cgms2 ---| BX6 X1-X4 COMPARE 00147 M01S00034.cgms2 +++| BX6 X1-X4 COMPARE KEYS 00148 M01S00113.comcgms +++| 00149 M01S00114.comcgms +++| MWK$ IF DEF,MWK$
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00150 M02S00115.cgms2 ---| NZ X6,GMS7 IF ENTRIES NOT EXACTLY THE SAME
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00151 M02S00116.cgms2 ---| ZR X3,GMS7 IF ALL WORDS COMPARED 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 M01S00117.comcgms +++| SA1 A1+B1 00156 M01S00118.comcgms +++| SA4 A4+B1
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00157 M02S00119.cgms2 ---| EQ GMS6 COMPARE NEXT WORD OF EACH ENTRY 00158 M01S00038.cgms2 +++| EQ GMS6 COMPARE NEXT WORD OF KEYS 00159 M01S00039.cgms2 +++| MWK$ ENDIF 00160 M01S00120.comcgms +++|
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00161 M02S00121.cgms2 ---| MWK$ ENDIF 00162 M01S00040.cgms2 +++| GMS7 SX3 B2+ 00163 M01S00041.cgms2 +++| PL X6,GMS8 IF SIGN BITS ARE THE SAME 00164 M01S00122.comcgms +++|
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00165 M02S00123.cgms2 ---| GMS7 SX3 B2
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00166 M02S00124.cgms2 ---| PL X6,GMS8 IF SIGN BITS ARE THE SAME 00167 M01S00125.comcgms +++| GMSA BSS 1 00168 M01S00126.comcgms +++| 00169 M01S00127.comcgms +++|* NG X4,GMS11 (CHARACTER SORT, ASCENDING ORDER)
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00128.cgms2 ---|* EQ GMS7 EXCHANGE ELEMENTS 00171 M01S00042.cgms2 +++|* EQ GMS9 EXCHANGE ENTRIES 00172 M01S00129.comcgms +++| 00173 M01S00130.comcgms +++|* NG X1,GMS11 (CHARACTER SORT, DESCENDING ORDER)
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00131.cgms2 ---|* EQ GMS7 EXCHANGE ELEMENTS 00175 M01S00043.cgms2 +++|* EQ GMS9 EXCHANGE ENTRIES 00176 M01S00132.comcgms +++| 00177 M01S00133.comcgms +++|* NG X1,GMS11 (NUMERIC SORT, ASCENDING ORDER)
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00178 M02S00134.cgms2 ---|* EQ GMS7 EXCHANGE ELEMENTS 00179 M01S00044.cgms2 +++|* EQ GMS9 EXCHANGE ENTRIES 00180 M01S00135.comcgms +++| 00181 M01S00136.comcgms +++|* NG X4,GMS11 (NUMERIC SORT, DESCENDING ORDER)
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00182 M02S00137.cgms2 ---|* EQ GMS7 EXCHANGE ELEMENTS 00183 M01S00045.cgms2 +++|* EQ GMS9 EXCHANGE ENTRIES 00184 M01S00138.comcgms +++|
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms1 |
Seq # *Modification Id* Act ----------------------------+ 00185 M02S00139.cgms1 ---| GMS8 NO 00186 M01S00001.cgms1 +++| GMS8 BSS 1 00187 M01S00140.comcgms +++| ERRNZ GMSA-GMS8+1 CODE ASSUMES LOCATIONS CONTIGUOUS 00188 M01S00141.comcgms +++|
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00142.cgms2 ---|* IX6 X1-X4 (ASCENDING SORT) 00190 M01S00046.cgms2 +++|* IX6 X4-X1 (ASCENDING SORT) 00191 M01S00143.comcgms +++|* NO
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00192 M02S00144.cgms2 ---|* NG X6,GMS11 IF D(I) .LT. D(L) THEN NO EXCHANGE 00193 M01S00047.cgms2 +++|* PL X6,GMS11 IF D(I) .LE. D(L), NO EXCHANGE 00194 M01S00145.comcgms +++| 00195 M01S00146.comcgms +++|* IX6 X1-X4 (DESCENDING SORT) 00196 M01S00147.comcgms +++|* NO
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00197 M02S00148.cgms2 ---|* PL X6,GMS11 IF D(I) .GT. D(L) THEN NO EXCHANGE 00198 M01S00048.cgms2 +++|* PL X6,GMS11 IF D(I) .GE. D(L), NO EXCHANGE 00199 M01S00149.comcgms +++|
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00200 M02S00150.cgms2 ---|* EXCHANGE ELEMENTS. 00201 M01S00049.cgms2 +++|* INITIALIZE ENTRY EXCHANGE. 00202 M01S00151.comcgms +++|
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms1 |
Seq # *Modification Id* Act ----------------------------+ 00203 M02S00152.cgms1 ---| GMS9 NO 00204 M01S00002.cgms1 +++| GMS9 BSS 1 00205 M01S00153.comcgms +++| ERRNZ GMS9-GMS8-1 CODE ASSUMES LOCATIONS CONTIGUOUS 00206 M01S00154.comcgms +++|
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00207 M02S00155.cgms2 ---|* SX1 B3 (MATRIX SORT) 00208 M01S00050.cgms2 +++|* SX1 B3 (MULTIPLE WORD ENTRIES) 00209 M01S00156.comcgms +++|* LX3 18 00210 M01S00157.comcgms +++|* BX3 X3+X1 SAVE B2 AND B3 00211 M01S00158.comcgms +++|* SB2 A2 00212 M01S00159.comcgms +++|
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00213 M02S00160.cgms2 ---|* EQ GMS10 (VECTOR SORT) 00214 M01S00051.cgms2 +++|* EQ GMS12 (SINGLE WORD ENTRIES) 00215 M01S00161.comcgms +++|* SB0 B0+ 00216 M01S00162.comcgms +++|
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00217 M02S00163.cgms2 ---|* EXCHANGE MATRIX ELEMENTS.
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00218 M02S00164.cgms2 ---| 00219 M01S00052.cgms2 +++|* EXCHANGE MULTIPLE WORD ENTRIES. 00220 M01S00165.comcgms +++| 00221 M01S00166.comcgms +++| MWK$ IF DEF,MWK$ 00222 M01S00167.comcgms +++| SA4 X7 RESTORE ADDRESSES 00223 M01S00168.comcgms +++| LX7 -18
| Line S00169 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00224 M02S00169.cgms2 ---| SA1 X7 00225 M01S00053.cgms2 +++| SA1 X7+ 00226 M01S00170.comcgms +++| MWK$ ENDIF 00227 M01S00171.comcgms +++| 00228 M01S00172.comcgms +++| SA1 A1-B2 00229 M01S00173.comcgms +++| SA4 A4-B2 00230 M01S00174.comcgms +++| SB2 B0
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00231 M02S00175.cgms2 ---| SB3 A3 NUMBER OF COLUMNS TO EXCHANGE 00232 M01S00054.cgms2 +++| SB3 A3 ENTRY LENGTH 00233 M01S00176.comcgms +++| GMS10 BX7 X1 BEGIN EXCHANGE 00234 M01S00177.comcgms +++| LX6 X4 00235 M01S00178.comcgms +++| SA1 A1+B1 00236 M01S00179.comcgms +++| SA4 A4+B1 00237 M01S00180.comcgms +++| SA6 A1-B1 00238 M01S00181.comcgms +++| SB2 B2+1 00239 M01S00182.comcgms +++| SA7 A4-B1 00240 M01S00183.comcgms +++| LT B2,B3,GMS10 IF ALL WORDS NOT EXCHANGED YET 00241 M01S00184.comcgms +++| 00242 M01S00185.comcgms +++|* EXCHANGE COMPLETE. 00243 M01S00186.comcgms +++| 00244 M01S00187.comcgms +++| SB3 X3 RESTORE B3 AND B2 00245 M01S00188.comcgms +++| AX3 18 00246 M01S00189.comcgms +++| SB3 B3-B6 I = I - M 00247 M01S00190.comcgms +++| SB2 X3 00248 M01S00191.comcgms +++| GE B3,B1,GMS5 IF I .GE. 1 00249 M01S00192.comcgms +++| GMS11 SB2 B2+1 J = J + 1 00250 M01S00193.comcgms +++| GT B2,B5,GMS3 IF J .GT. K 00251 M01S00194.comcgms +++| EQ GMS4 CHECK NEXT PAIR OF KEYS 00252 M01S00195.comcgms +++|
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00253 M02S00196.cgms2 ---|* EXCHANGE VECTOR ELEMENTS. 00254 M01S00055.cgms2 +++|* EXCHANGE SINGLE WORD ENTRIES. 00255 M01S00197.comcgms +++| 00256 M01S00198.comcgms +++| GMS12 SA1 A1+ RELOAD X1/X4 00257 M01S00199.comcgms +++| SB3 B3-B6 I = I - M 00258 M01S00200.comcgms +++| SA4 A4 00259 M01S00201.comcgms +++| BX6 X1 00260 M01S00202.comcgms +++| LX7 X4 00261 M01S00203.comcgms +++| SA6 A4 00262 M01S00204.comcgms +++| SA7 A1 00263 M01S00205.comcgms +++| GE B3,B1,GMS5 IF I .GE. 1 00264 M01S00206.comcgms +++| EQ GMS11 ADVANCE POINTERS AND CONTINUE 00265 M01S00207.comcgms +++| 00266 M01S00056.cgms2 +++|* DATA FOR INSTRUCTION MODIFICATION. 00267 M01S00208.comcgms +++| 00268 M01S00209.comcgms +++| GMSB BSS 0 PROCESS DIFFERENT SIGN BITS
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00269 M02S00210.cgms2 ---| LOC GMSA 00270 M01S00211.comcgms +++| 00271 M01S00057.cgms2 +++| LOC GMSA (GMS7) 00272 M01S00058.cgms2 +++| 00273 M01S00212.comcgms +++| + NG X4,GMS11 IF CORRECT ORDER
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00274 M02S00213.cgms2 ---| EQ GMS9 ELSE EXCHANGE ELEMENTS 00275 M01S00059.cgms2 +++| EQ GMS9 EXCHANGE ENTRIES 00276 M01S00214.comcgms +++|
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00277 M02S00215.cgms2 ---| LOC GMSA 00278 M01S00060.cgms2 +++| LOC GMSA (GMS7) 00279 M01S00216.comcgms +++| 00280 M01S00217.comcgms +++| + NG X1,GMS11 IF CORRECT ORDER
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00281 M02S00218.cgms2 ---| EQ GMS9 ELSE EXCHANGE ELEMENTS 00282 M01S00061.cgms2 +++| EQ GMS9 EXCHANGE ENTRIES 00283 M01S00219.comcgms +++|
| Line S00220 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00284 M02S00220.cgms2 ---| LOC GMSA 00285 M01S00062.cgms2 +++| LOC GMSA (GMS7) 00286 M01S00221.comcgms +++| 00287 M01S00222.comcgms +++| + NG X1,GMS11 IF CORRECT ORDER
| Line S00223 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00288 M02S00223.cgms2 ---| EQ GMS9 ELSE EXCHANGE ELEMENTS 00289 M01S00063.cgms2 +++| EQ GMS9 EXCHANGE ENTRIES 00290 M01S00224.comcgms +++|
| Line S00225 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00291 M02S00225.cgms2 ---| LOC GMSA 00292 M01S00064.cgms2 +++| LOC GMSA (GMS7) 00293 M01S00226.comcgms +++| 00294 M01S00227.comcgms +++| + NG X4,GMS11 IF CORRECT ORDER
| Line S00228 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00295 M02S00228.cgms2 ---| EQ GMS9 ELSE EXCHANGE ELEMENTS 00296 M01S00065.cgms2 +++| EQ GMS9 EXCHANGE ENTRIES 00297 M01S00229.comcgms +++| 00298 M01S00230.comcgms +++| LOC *O 00299 M01S00066.cgms2 +++| 00300 M01S00231.comcgms +++| GMSC BSS 0 PROCESS IDENTICAL SIGN BITS
| Line S00232 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00301 M02S00232.cgms2 ---| LOC GMSA+1 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 M01S00233.comcgms +++| + IX6 X1-X4 00312 M01S00234.comcgms +++| NO
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00313 M02S00235.cgms2 ---| NG X6,GMS11 IF D(I) .LT. D(L) 00314 M01S00076.cgms2 +++| PL X6,GMS11 IF D(I) .GE. D(L) 00315 M01S00236.comcgms +++|
| Line S00237 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00316 M02S00237.cgms2 ---| LOC GMSA+1 00317 M01S00077.cgms2 +++| LOC *O 00318 M01S00238.comcgms +++|
| Line S00239 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00319 M02S00239.cgms2 ---| + IX6 X1-X4
| Line S00240 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00320 M02S00240.cgms2 ---| NO
| Line S00241 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00321 M02S00241.cgms2 ---| PL X6,GMS11 IF D(I) .GT. D(L) 00322 M01S00078.cgms2 +++| GMSD BSS 0 PROCESS EXCHANGE 00323 M01S00242.comcgms +++|
| Line S00243 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00324 M02S00243.cgms2 ---| LOC *O
| Line S00244 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00325 M02S00244.cgms2 ---| GMSD BSS 0 PROCESS EXCHANGE
| Line S00245 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00326 M02S00245.cgms2 ---| LOC GMSA+2 GMS7 00327 M01S00079.cgms2 +++| LOC GMSA+2 (GMS9) 00328 M01S00246.comcgms +++|
| Line S00247 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00329 M02S00247.cgms2 ---| + SX1 B3 EXCHANGE MATRIX ELEMENTS 00330 M01S00080.cgms2 +++| + SX1 B3 EXCHANGE ENTRIES 00331 M01S00248.comcgms +++| LX3 18 00332 M01S00249.comcgms +++| BX3 X3+X1 SAVE B2 AND B3 00333 M01S00250.comcgms +++| SB2 A2 00334 M01S00251.comcgms +++|
| Line S00252 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00335 M02S00252.cgms2 ---| LOC GMSA+2 00336 M01S00081.cgms2 +++| LOC GMSA+2 (GMS9) 00337 M01S00253.comcgms +++|
| Line S00254 Modification History | |
|---|---|
M01 (Added by) | comcgms |
M02 (Updated by) | cgms2 |
Seq # *Modification Id* Act ----------------------------+ 00338 M02S00254.cgms2 ---| + EQ GMS12 EXCHANGE VECTOR ELEMENTS 00339 M01S00082.cgms2 +++| + EQ GMS12 EXCHANGE ENTRIES 00340 M01S00255.comcgms +++| - SB0 B0+ 00341 M01S00256.comcgms +++| 00342 M01S00257.comcgms +++| LOC *O 00343 M01S00258.comcgms +++| 00344 M01S00259.comcgms +++| MWK$ IF DEF,MWK$ 00345 M01S00260.comcgms +++| GMSE CON 0 NUMBER OF WORDS TO COMPARE 00346 M01S00261.comcgms +++| MWK$ ENDIF 00347 M01S00262.comcgms +++| SPACE 4,10 00348 M01S00263.comcgms +++| BASE * 00349 M01S00264.comcgms +++| QUAL$ IF -DEF,QUAL$ 00350 M01S00265.comcgms +++| QUAL * 00351 M01S00266.comcgms +++| GMS EQU /COMCGMS/GMS 00352 M01S00267.comcgms +++| QUAL$ ENDIF 00353 M01S00268.comcgms +++| GMS ENDX
cdc/nos2.source/opl.opl871/common/comcgms.txt · Last modified: by 127.0.0.1