Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comkopd +++| CTEXT COMKOPD - *OPDEF*-S FOR *TAF*.
00002 M00S00002.comkopd +++| SPACE 4,10
00003 M00S00003.comkopd +++| BASE DECIMAL
| Line S00004 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00004 M01S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00006 M00S00005.comkopd +++| OPD SPACE 4,10
00007 M00S00006.comkopd +++|*** OPD - *OPDEF*-S USED BY *TAF*.
00008 M00S00007.comkopd +++|* G. W. PROPP. 80/07/22.
00009 M00S00008.comkopd +++| OPD SPACE 4,10
00010 M00S00009.comkopd +++|*** *COMKOPD* DEFINES THE *OPDEF*-S AND MACROS NEEDED TO
00011 M00S00010.comkopd +++|* MODIFY INSTRUCTIONS AT INITIALIZATION. THE *INMOD* MACRO
00012 M00S00011.comkopd +++|* MAKES IT POSSIBLE TO SPECIFY A MODIFIER ON ALL 30-BIT
00013 M00S00012.comkopd +++|* INCREMENT INSTRUCTIONS. THIS MODIFER MUST BE IN THE FORM
00014 M00S00013.comkopd +++|* OF A POINTER TO ONE OF THE TABLE POINTERS THAT IS SET
00015 M00S00014.comkopd +++|* DYNAMICALLY AT INITIALIZATION TIME. THE INSTRUCTION WILL
00016 M00S00015.comkopd +++|* BE MODIFIED DURING INITIALIZATION.
00017 M00S00016.comkopd +++|*
00018 M00S00017.comkopd +++|* EXAMPLE -
00019 M00S00018.comkopd +++|* TA1 B5,VTST
00020 M00S00019.comkopd +++|*
00021 M00S00020.comkopd +++|* THIS WILL GENERATE A 30-BIT INSTRUCTION OF THE FOLLOWING FORM
00022 M00S00021.comkopd +++|* SA1 B5+K
00023 M00S00022.comkopd +++|*
00024 M00S00023.comkopd +++|* WHERE K = THE FIRST WORD ADDRESS OF THE TERMINAL STATUS
00025 M00S00024.comkopd +++|* TABLE.
00026 M00S00025.comkopd +++| INMOD SPACE 4,15
00027 M00S00026.comkopd +++|** INMOD - INSTRUCTION MODIFICATION MACRO.
00028 M00S00027.comkopd +++|*
00029 M00S00028.comkopd +++|* INMOD PTRA,LWAF
00030 M00S00029.comkopd +++|*
00031 M00S00030.comkopd +++|* ENTRY *PTRA* = POINTER TO DESIRED ADDRESS.
00032 M00S00031.comkopd +++|* *LWAF* = IF DEFINED, USE LWA INSTEAD OF FWA AT *PTRA*.
00033 M00S00032.comkopd +++|* BITS 17-0 OF *PTRA* POINT TO LWA.
00034 M00S00033.comkopd +++|* BITS 31-24 OF *PTRA* POINT TO FWA.
00035 M00S00034.comkopd +++|
00036 M00S00035.comkopd +++|
00037 M00S00036.comkopd +++| PURGMAC INMOD
00038 M00S00037.comkopd +++| INMOD MACRO PTRA,LWAF
00039 M00S00038.comkopd +++| LOCAL INM1,INM2
00040 M00S00039.comkopd +++| MACREF INMOD
00041 M00S00040.comkopd +++| INM1 SET *P
00042 M00S00041.comkopd +++| INM2 SET *
00043 M00S00042.comkopd +++| .A IFEQ INM1,60
00044 M00S00043.comkopd +++| INM1 SET 0
00045 M00S00044.comkopd +++| INM2 SET *-1
00046 M00S00045.comkopd +++| .A ENDIF
00047 M00S00046.comkopd +++| TINST RMT
00048 M00S00047.comkopd +++| VFD 12/2000B+INM1
00049 M00S00048.comkopd +++| .A IFC EQ,*LWAF**
00050 M00S00049.comkopd +++| VFD 12/0
00051 M00S00050.comkopd +++| .A ELSE
00052 M00S00051.comkopd +++| VFD 12/4000B
00053 M00S00052.comkopd +++| .A ENDIF
00054 M00S00053.comkopd +++| VFD 18/PTRA
00055 M00S00054.comkopd +++| VFD 18/INM2
00056 M00S00055.comkopd +++| TINST RMT
00057 M00S00056.comkopd +++| ENDM
00058 M00S00057.comkopd +++| OPDEFS SPACE 4,10
00059 M00S00058.comkopd +++|* *OPDEF*-S USED WITH *INMOD*.
00060 M00S00059.comkopd +++|
00061 M00S00060.comkopd +++|
00062 M00S00061.comkopd +++| TAAQ,Q OPDEF P1,P2,P3,P4
00063 M00S00062.comkopd +++| SA.P1 A.P2+P3
00064 M00S00063.comkopd +++| INMOD P4
00065 M00S00064.comkopd +++| ENDM
00066 M00S00065.comkopd +++|
00067 M00S00066.comkopd +++| TAA,Q OPDEF P1,P2,P4
00068 M00S00067.comkopd +++| SA.P1 A.P2+0
00069 M00S00068.comkopd +++| INMOD P4
00070 M00S00069.comkopd +++| ENDM
00071 M00S00070.comkopd +++|
00072 M00S00071.comkopd +++| TAAQ,Q,Q OPDEF P1,P2,P3,P4,P5
00073 M00S00072.comkopd +++| SA.P1 A.P2+P3
00074 M00S00073.comkopd +++| INMOD P4,P5
00075 M00S00074.comkopd +++| ENDM
00076 M00S00075.comkopd +++|
00077 M00S00076.comkopd +++| TAA,Q,Q OPDEF P1,P2,P4,P5
00078 M00S00077.comkopd +++| SA.P1 A.P2+0
00079 M00S00078.comkopd +++| INMOD P4,P5
00080 M00S00079.comkopd +++| ENDM
00081 M00S00080.comkopd +++|
00082 M00S00081.comkopd +++| TABQ,Q OPDEF P1,P2,P3,P4
00083 M00S00082.comkopd +++| SA.P1 B.P2+P3
00084 M00S00083.comkopd +++| INMOD P4
00085 M00S00084.comkopd +++| ENDM
00086 M00S00085.comkopd +++|
00087 M00S00086.comkopd +++| TAB,Q OPDEF P1,P2,P4
00088 M00S00087.comkopd +++| SA.P1 B.P2+0
00089 M00S00088.comkopd +++| INMOD P4
00090 M00S00089.comkopd +++| ENDM
00091 M00S00090.comkopd +++|
00092 M00S00091.comkopd +++| TABQ,Q,Q OPDEF P1,P2,P3,P4,P5
00093 M00S00092.comkopd +++| SA.P1 B.P2+P3
00094 M00S00093.comkopd +++| INMOD P4,P5
00095 M00S00094.comkopd +++| ENDM
00096 M00S00095.comkopd +++|
00097 M00S00096.comkopd +++| TAB,Q,Q OPDEF P1,P2,P4,P5
00098 M00S00097.comkopd +++| SA.P1 B.P2+0
00099 M00S00098.comkopd +++| INMOD P4,P5
00100 M00S00099.comkopd +++| ENDM
00101 M00S00100.comkopd +++|
00102 M00S00101.comkopd +++| TAXQ,Q OPDEF P1,P2,P3,P4
00103 M00S00102.comkopd +++| SA.P1 X.P2+P3
00104 M00S00103.comkopd +++| INMOD P4
00105 M00S00104.comkopd +++| ENDM
00106 M00S00105.comkopd +++|
00107 M00S00106.comkopd +++| TAX,Q OPDEF P1,P2,P4
00108 M00S00107.comkopd +++| SA.P1 X.P2+0
00109 M00S00108.comkopd +++| INMOD P4
00110 M00S00109.comkopd +++| ENDM
00111 M00S00110.comkopd +++|
00112 M00S00111.comkopd +++| TAXQ,Q,Q OPDEF P1,P2,P3,P4,P5
00113 M00S00112.comkopd +++| SA.P1 X.P2+P3
00114 M00S00113.comkopd +++| INMOD P4,P5
00115 M00S00114.comkopd +++| ENDM
00116 M00S00115.comkopd +++|
00117 M00S00116.comkopd +++| TAX,Q,Q OPDEF P1,P2,P4,P5
00118 M00S00117.comkopd +++| SA.P1 X.P2+0
00119 M00S00118.comkopd +++| INMOD P4,P5
00120 M00S00119.comkopd +++| ENDM
00121 M00S00120.comkopd +++|
00122 M00S00121.comkopd +++| TAQ,Q OPDEF P1,P3,P4
00123 M00S00122.comkopd +++| SA.P1 B0+P3
00124 M00S00123.comkopd +++| INMOD P4
00125 M00S00124.comkopd +++| ENDM
00126 M00S00125.comkopd +++|
00127 M00S00126.comkopd +++| TAQ,Q,Q OPDEF P1,P3,P4,P5
00128 M00S00127.comkopd +++| SA.P1 B0+P3
00129 M00S00128.comkopd +++| INMOD P4,P5
00130 M00S00129.comkopd +++| ENDM
00131 M00S00130.comkopd +++|
00132 M00S00131.comkopd +++| TBAQ,Q OPDEF P1,P2,P3,P4
00133 M00S00132.comkopd +++| SB.P1 A.P2+P3
00134 M00S00133.comkopd +++| INMOD P4
00135 M00S00134.comkopd +++| ENDM
00136 M00S00135.comkopd +++|
00137 M00S00136.comkopd +++| TBA,Q OPDEF P1,P2,P4
00138 M00S00137.comkopd +++| SB.P1 A.P2+0
00139 M00S00138.comkopd +++| INMOD P4
00140 M00S00139.comkopd +++| ENDM
00141 M00S00140.comkopd +++|
00142 M00S00141.comkopd +++| TBAQ,Q,Q OPDEF P1,P2,P3,P4,Q5
00143 M00S00142.comkopd +++| SB.P1 A.P2+P3
00144 M00S00143.comkopd +++| INMOD P4,P5
00145 M00S00144.comkopd +++| ENDM
00146 M00S00145.comkopd +++|
00147 M00S00146.comkopd +++| TBA,Q,Q OPDEF P1,P2,P4,P5
00148 M00S00147.comkopd +++| SB.P1 A.P2+0
00149 M00S00148.comkopd +++| INMOD P4,P5
00150 M00S00149.comkopd +++| ENDM
00151 M00S00150.comkopd +++|
00152 M00S00151.comkopd +++| TBBQ,Q OPDEF P1,P2,P3,P4
00153 M00S00152.comkopd +++| SB.P1 B.P2+P3
00154 M00S00153.comkopd +++| INMOD P4
00155 M00S00154.comkopd +++| ENDM
00156 M00S00155.comkopd +++|
00157 M00S00156.comkopd +++| TBB,Q OPDEF P1,P2,P4
00158 M00S00157.comkopd +++| SB.P1 B.P2+0
00159 M00S00158.comkopd +++| INMOD P4
00160 M00S00159.comkopd +++| ENDM
00161 M00S00160.comkopd +++| TBBQ,Q,Q OPDEF P1,P2,P3,P4,P5
00162 M00S00161.comkopd +++| SB.P1 B.P2+P3
00163 M00S00162.comkopd +++| INMOD P4,P5
00164 M00S00163.comkopd +++| ENDM
00165 M00S00164.comkopd +++|
00166 M00S00165.comkopd +++| TBB,Q,Q OPDEF P1,P2,P4,P5
00167 M00S00166.comkopd +++| SB.P1 B.P2+0
00168 M00S00167.comkopd +++| INMOD P4,P5
00169 M00S00168.comkopd +++| ENDM
00170 M00S00169.comkopd +++|
00171 M00S00170.comkopd +++| TBXQ,Q OPDEF P1,P2,P3,P4
00172 M00S00171.comkopd +++| SB.P1 X.P2+P3
00173 M00S00172.comkopd +++| INMOD P4
00174 M00S00173.comkopd +++| ENDM
00175 M00S00174.comkopd +++|
00176 M00S00175.comkopd +++| TBX,Q OPDEF P1,P2,P4
00177 M00S00176.comkopd +++| SB.P1 X.P2+0
00178 M00S00177.comkopd +++| INMOD P4
00179 M00S00178.comkopd +++| ENDM
00180 M00S00179.comkopd +++|
00181 M00S00180.comkopd +++| TBXQ,Q,Q OPDEF P1,P2,P3,P4,P5
00182 M00S00181.comkopd +++| SB.P1 X.P2+P3
00183 M00S00182.comkopd +++| INMOD P4,P5
00184 M00S00183.comkopd +++| ENDM
00185 M00S00184.comkopd +++|
00186 M00S00185.comkopd +++| TBX,Q,Q OPDEF P1,P2,P4,P5
00187 M00S00186.comkopd +++| SB.P1 X.P2+0
00188 M00S00187.comkopd +++| INMOD P4,P5
00189 M00S00188.comkopd +++| ENDM
00190 M00S00189.comkopd +++|
00191 M00S00190.comkopd +++| TBQ,Q OPDEF P1,P3,P4
00192 M00S00191.comkopd +++| SB.P1 B0+P3
00193 M00S00192.comkopd +++| INMOD P4
00194 M00S00193.comkopd +++| ENDM
00195 M00S00194.comkopd +++|
00196 M00S00195.comkopd +++| TBQ,Q,Q OPDEF P1,P3,P4,P5
00197 M00S00196.comkopd +++| SB.P1 B0+P3
00198 M00S00197.comkopd +++| INMOD P4,P5
00199 M00S00198.comkopd +++| ENDM
00200 M00S00199.comkopd +++|
00201 M00S00200.comkopd +++| TJQ OPDEF P1
00202 M00S00201.comkopd +++| RJ 0
00203 M00S00202.comkopd +++| INMOD P1
00204 M00S00203.comkopd +++| ENDM
00205 M00S00204.comkopd +++| TXAQ,Q OPDEF P1,P2,P3,P4
00206 M00S00205.comkopd +++| SX.P1 A.P2+P3
00207 M00S00206.comkopd +++| INMOD P4
00208 M00S00207.comkopd +++| ENDM
00209 M00S00208.comkopd +++|
00210 M00S00209.comkopd +++| TXA,Q OPDEF P1,P2,P4
00211 M00S00210.comkopd +++| SX.P1 A.P2+0
00212 M00S00211.comkopd +++| INMOD P4
00213 M00S00212.comkopd +++| ENDM
00214 M00S00213.comkopd +++|
00215 M00S00214.comkopd +++| TXAQ,Q,Q OPDEF P1,P2,P3,P4,P5
00216 M00S00215.comkopd +++| SX.P1 A.P2+P3
00217 M00S00216.comkopd +++| INMOD P4,P5
00218 M00S00217.comkopd +++| ENDM
00219 M00S00218.comkopd +++|
00220 M00S00219.comkopd +++| TXA,Q,Q OPDEF P1,P2,P4,P5
00221 M00S00220.comkopd +++| SX.P1 A.P2+0
00222 M00S00221.comkopd +++| INMOD P4,P5
00223 M00S00222.comkopd +++| ENDM
00224 M00S00223.comkopd +++|
00225 M00S00224.comkopd +++| TXBQ,Q OPDEF P1,P2,P3,P4
00226 M00S00225.comkopd +++| SX.P1 B.P2+P3
00227 M00S00226.comkopd +++| INMOD P4
00228 M00S00227.comkopd +++| ENDM
00229 M00S00228.comkopd +++|
00230 M00S00229.comkopd +++| TXB,Q OPDEF P1,P2,P4
00231 M00S00230.comkopd +++| SX.P1 B.P2+0
00232 M00S00231.comkopd +++| INMOD P4
00233 M00S00232.comkopd +++| ENDM
00234 M00S00233.comkopd +++|
00235 M00S00234.comkopd +++| TXBQ,Q,Q OPDEF P1,P2,P3,P4,P5
00236 M00S00235.comkopd +++| SX.P1 B.P2+P3
00237 M00S00236.comkopd +++| INMOD P4,P5
00238 M00S00237.comkopd +++| ENDM
00239 M00S00238.comkopd +++| TXB,Q,Q OPDEF P1,P2,P4,P5
00240 M00S00239.comkopd +++| SX.P1 B.P2+0
00241 M00S00240.comkopd +++| INMOD P4,P5
00242 M00S00241.comkopd +++| ENDM
00243 M00S00242.comkopd +++|
00244 M00S00243.comkopd +++| TXXQ,Q OPDEF P1,P2,P3,P4
00245 M00S00244.comkopd +++| SX.P1 X.P2+P3
00246 M00S00245.comkopd +++| INMOD P4
00247 M00S00246.comkopd +++| ENDM
00248 M00S00247.comkopd +++|
00249 M00S00248.comkopd +++| TXX,Q OPDEF P1,P2,P4
00250 M00S00249.comkopd +++| SX.P1 X.P2+0
00251 M00S00250.comkopd +++| INMOD P4
00252 M00S00251.comkopd +++| ENDM
00253 M00S00252.comkopd +++|
00254 M00S00253.comkopd +++| TXXQ,Q,Q OPDEF P1,P2,P3,P4,P5
00255 M00S00254.comkopd +++| SX.P1 X.P2+P3
00256 M00S00255.comkopd +++| INMOD P4,P5
00257 M00S00256.comkopd +++| ENDM
00258 M00S00257.comkopd +++|
00259 M00S00258.comkopd +++| TXX,Q,Q OPDEF P1,P2,P4,P5
00260 M00S00259.comkopd +++| SX.P1 X.P2+0
00261 M00S00260.comkopd +++| INMOD P4,P5
00262 M00S00261.comkopd +++| ENDM
00263 M00S00262.comkopd +++|
00264 M00S00263.comkopd +++| TXQ,Q OPDEF P1,P3,P4
00265 M00S00264.comkopd +++| SX.P1 B0+P3
00266 M00S00265.comkopd +++| INMOD P4
00267 M00S00266.comkopd +++| ENDM
00268 M00S00267.comkopd +++|
00269 M00S00268.comkopd +++| TXQ,Q,Q OPDEF P1,P3,P4,P5
00270 M00S00269.comkopd +++| SX.P1 B0+P3
00271 M00S00270.comkopd +++| INMOD P4,P5
00272 M00S00271.comkopd +++| ENDM
00273 M00S00272.comkopd +++|
00274 M00S00273.comkopd +++| ENDX