cdc:nos2.source:opl.opl871:common:compchi
Common COMPCHI
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compchi +++| CTEXT COMPCHI - REDEFINE I/O INSTRUCTIONS. 00002 M01S00002.compchi +++| SPACE 4,10 00003 M01S00003.compchi +++| BASE M
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | compchi |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M01S00005.compchi +++| COMPCHI SPACE 4 00007 M01S00006.compchi +++|*** COMPCHI - REDEFINE I/O INSTRUCTIONS. 00008 M01S00007.compchi +++|* G. R. MANSFIELD. 70/10/04. 00009 M01S00008.compchi +++| COMPCHI SPACE 4 00010 M01S00009.compchi +++|*** COMPCHI REDEFINES THE I/O INSTRUCTIONS TO PRODUCE 00011 M01S00010.compchi +++|* A CHANNEL TABLE BY REMOTE CODE. 00012 M01S00011.compchi +++|* 00013 M01S00001.272l774 +++|* IF *LCHI$* IS DEFINED, THE CHANNEL TABLE WILL BE PRODUCED 00014 M01S00002.272l774 +++|* USING *CONL* INSTRUCTIONS, RATHER THAN *CON* INSTRUCTIONS. 00015 M01S00003.272l774 +++|* THIS ALLOWS *COMPCHI* TO BE USED WITH CODE WHICH RESIDES 00016 M01S00004.272l774 +++|* AT ADDRESSES ABOVE 7777B IN A CONCURRENT PP. 00017 M01S00005.272l774 +++|* 00018 M01S00012.compchi +++|* IF *RICHI$* IS UNDEFINED, THE CHANNEL INSTRUCTIONS WILL BE 00019 M01S00013.compchi +++|* REDEFINED AT THE TIME *COMPCHI* IS ASSEMBLED AND THE MACRO 00020 M01S00014.compchi +++|* *RICHI* WILL NOT BE CREATED. IF *RICHI$* IS DEFINED, 00021 M01S00015.compchi +++|* HOWEVER, THE MACRO *RICHI* WILL BE CREATED AND INSTRUCTION 00022 M01S00016.compchi +++|* REDEFINITION WILL NOT TAKE PLACE UNTIL *RICHI* IS CALLED. 00023 M01S00017.compchi +++|* THE MACROS *RICHI* AND *RSTC* CAN BE USED TO ENABLE OR 00024 M01S00018.compchi +++|* DESABLE INSTRUCTION REDEFINITION. 00025 M01S00019.compchi +++|* 00026 M01S00020.compchi +++|* ORIGINAL FORM MAY BE USED BY APPENDING A *.* TO THE ORIGINAL 00027 M01S00021.compchi +++|* OPCODE. 00028 M01S00022.compchi +++|* 00029 M01S00023.compchi +++|* INSTRUCTIONS REDEFINED - 00030 M01S00024.compchi +++|* AJM 00031 M01S00025.compchi +++|* IJM 00032 M01S00026.compchi +++|* FJM 00033 M01S00027.compchi +++|* EJM 00034 M01S00028.compchi +++|* IAM 00035 M01S00029.compchi +++|* OAM 00036 M01S00030.compchi +++|* SCF 00037 M01S00031.compchi +++|* CCF 00038 M01S00032.compchi +++|* SFM 00039 M01S00033.compchi +++|* CFM 00040 M01S00034.compchi +++|* FNC 00041 M01S00035.compchi +++|* IAN 00042 M01S00036.compchi +++|* OAN 00043 M01S00037.compchi +++|* ACN 00044 M01S00038.compchi +++|* DCN 00045 M01S00039.compchi +++|* FAN 00046 M01S00040.compchi +++| CHIM SPACE 4 00047 M01S00041.compchi +++|** CHIM - REDEFINE M-TYPE CHANNEL INSTRUCTIONS. 00048 M01S00042.compchi +++|* 00049 M01S00043.compchi +++|* 00050 M01S00044.compchi +++|* CHIM OPC,CODE 00051 M01S00045.compchi +++|* ENTRY *OPC* = INSTRUCTION MNEMONIC. 00052 M01S00046.compchi +++|* *CODE* = OPERATION CODE. 00053 M01S00047.compchi +++| 00054 M01S00048.compchi +++| 00055 M01S00049.compchi +++| PURGMAC CHIM 00056 M01S00050.compchi +++| CHIM MACRO OPC,CODE 00057 M01S00051.compchi +++| PURGMAC OPC 00058 M01S00052.compchi +++| OPC. PPOP 7,CODE 00059 M01S00053.compchi +++| OPC MACRO M,D 00060 M01S00054.compchi +++| LOCAL A 00061 M01S00055.compchi +++| A OPC. M,D 00062 M01S00056.compchi +++| RMT 00063 M01S00006.272l774 +++| LCHI$ IF DEF,LCHI$ 00064 M01S00007.272l774 +++| CONL A 00065 M01S00008.272l774 +++| LCHI$ ELSE 00066 M01S00057.compchi +++| CON A 00067 M01S00009.272l774 +++| LCHI$ ENDIF 00068 M01S00058.compchi +++| RMT 00069 M01S00059.compchi +++| OPC ENDM 00070 M01S00060.compchi +++| CHIM ENDM 00071 M01S00061.compchi +++| CHIN SPACE 4 00072 M01S00062.compchi +++|** CHIN - REDEFINE N-TYPE CHANNEL INSTRUCTIONS. 00073 M01S00063.compchi +++|* 00074 M01S00064.compchi +++|* 00075 M01S00065.compchi +++|* CHIN OPC,CODE 00076 M01S00066.compchi +++|* ENTRY *OPC* = INSTRUCTION MNEMONIC. 00077 M01S00067.compchi +++|* *CODE* = OPERATION CODE. 00078 M01S00068.compchi +++| 00079 M01S00069.compchi +++| 00080 M01S00070.compchi +++| PURGMAC CHIN 00081 M01S00071.compchi +++| CHIN MACRO OPC,CODE 00082 M01S00072.compchi +++| PURGMAC OPC 00083 M01S00073.compchi +++| OPC. PPOP 4,CODE 00084 M01S00074.compchi +++| OPC MACRO D 00085 M01S00075.compchi +++| LOCAL A 00086 M01S00076.compchi +++| A OPC. D 00087 M01S00077.compchi +++| RMT 00088 M01S00010.272l774 +++| LCHI$ IF DEF,LCHI$ 00089 M01S00011.272l774 +++| CONL A 00090 M01S00012.272l774 +++| LCHI$ ELSE 00091 M01S00078.compchi +++| CON A 00092 M01S00013.272l774 +++| LCHI$ ENDIF 00093 M01S00079.compchi +++| RMT 00094 M01S00080.compchi +++| OPC ENDM 00095 M01S00081.compchi +++| CHIN ENDM 00096 M01S00082.compchi +++| RICHI SPACE 4 00097 M01S00083.compchi +++|*** RICHI - REDEFINE CHANNEL INSTRUCTIONS. 00098 M01S00084.compchi +++|* 00099 M01S00085.compchi +++|* RICHI 00100 M01S00086.compchi +++|* EACH TIME *RICHI* IS CALLED, INSTRUCTION REDEFINITION OCCURS. 00101 M01S00087.compchi +++|* *RICHI* IS CREATED ONLY IF *RICHI$* IS DEFINED. 00102 M01S00088.compchi +++| 00103 M01S00089.compchi +++| 00104 M01S00090.compchi +++| IF DEF,RICHI$,2 00105 M01S00091.compchi +++| PURGMAC RICHI 00106 M01S00092.compchi +++| RICHI MACRO 00107 M01S00093.compchi +++| 00108 M01S00094.compchi +++| CHIM AJM,6400 00109 M01S00095.compchi +++| CHIM SCF,6440 00110 M01S00096.compchi +++| CHIM IJM,6500 00111 M01S00097.compchi +++| CHIM CCF,6540 00112 M01S00098.compchi +++| CHIM FJM,6600 00113 M01S00099.compchi +++| CHIM SFM,6640 00114 M01S00100.compchi +++| CHIM EJM,6700 00115 M01S00101.compchi +++| CHIM CFM,6740 00116 M01S00102.compchi +++| CHIM IAM,7100 00117 M01S00103.compchi +++| CHIM OAM,7300 00118 M01S00104.compchi +++| CHIM FNC,7700 00119 M01S00105.compchi +++| 00120 M01S00106.compchi +++| CHIN IAN,7000 00121 M01S00107.compchi +++| CHIN OAN,7200 00122 M01S00108.compchi +++| CHIN ACN,7400 00123 M01S00109.compchi +++| CHIN DCN,7500 00124 M01S00110.compchi +++| CHIN FAN,7600 00125 M01S00111.compchi +++| 00126 M01S00112.compchi +++| ENDM 00127 M01S00113.compchi +++| CHTE SPACE 4 00128 M01S00114.compchi +++|*** CHTE - CREATE CHANNEL TABLE ENTRY. 00129 M01S00115.compchi +++|* 00130 M01S00116.compchi +++|* 00131 M01S00117.compchi +++|* CHTE ADDRESS 00132 M01S00118.compchi +++|* ENTRY (ADDRESS) = ADDRESS TO INSERT IN CHANNEL TABLE. 00133 M01S00119.compchi +++| 00134 M01S00120.compchi +++| 00135 M01S00121.compchi +++| PURGMAC CHTE 00136 M01S00122.compchi +++| CHTE MACRO A 00137 M01S00123.compchi +++| LOCAL B 00138 M01S00124.compchi +++| B EQU A 00139 M01S00125.compchi +++| RMT 00140 M01S00014.272l774 +++| LCHI$ IF DEF,LCHI$ 00141 M01S00015.272l774 +++| CONL B 00142 M01S00016.272l774 +++| LCHI$ ELSE 00143 M01S00126.compchi +++| CON B 00144 M01S00017.272l774 +++| LCHI$ ENDIF 00145 M01S00127.compchi +++| RMT 00146 M01S00128.compchi +++| ENDM 00147 M01S00129.compchi +++| CHTL SPACE 4 00148 M01S00130.compchi +++|*** CHTL - CREATE LAST ENTRY IN CHANNEL TABLE. 00149 M01S00131.compchi +++|* 00150 M01S00132.compchi +++|* 00151 M01S00133.compchi +++|* CHTL ADDRESS 00152 M01S00134.compchi +++|* ENTRY (ADDRESS) = ADDRESS TO INSERT AS LAST ENTRY IN CHANNEL 00153 M01S00135.compchi +++|* TABLE. 00154 M01S00136.compchi +++|* 00155 M01S00137.compchi +++|* NOTE- WHEN THIS CALL IS USED CHANNEL TABLE WILL NOT 00156 M01S00138.compchi +++|* TERMINATE WITH A ZERO BYTE. 00157 M01S00139.compchi +++| 00158 M01S00140.compchi +++| 00159 M01S00141.compchi +++| PURGMAC CHTL 00160 M01S00142.compchi +++| CHTL MACRO A 00161 M01S00143.compchi +++| LOCAL B 00162 M01S00144.compchi +++| B EQU A 00163 M01S00145.compchi +++| CHTL RMT 00164 M01S00018.272l774 +++| LCHI$ IF DEF,LCHI$ 00165 M01S00019.272l774 +++| CONL B 00166 M01S00020.272l774 +++| LCHI$ ELSE 00167 M01S00146.compchi +++| CON B 00168 M01S00021.272l774 +++| LCHI$ ENDIF 00169 M01S00147.compchi +++| CHTL RMT 00170 M01S00148.compchi +++| ENDM 00171 M01S00149.compchi +++| CHTB SPACE 4 00172 M01S00150.compchi +++|*** CHTB - DEFINE CHANNEL TABLE. 00173 M01S00151.compchi +++|* CHANNEL TABLE IS TERMINATED BY A ZERO WORD. 00174 M01S00152.compchi +++|* 00175 M01S00153.compchi +++|* 00176 M01S00154.compchi +++|*LOC CHTB 00177 M01S00155.compchi +++|* ENTRY *LOC* = FWA OF CHANNEL TABLE. 00178 M01S00156.compchi +++| 00179 M01S00157.compchi +++| 00180 M01S00158.compchi +++| PURGMAC CHTB 00181 M01S00159.compchi +++| MACRO CHTB,A 00182 M01S00160.compchi +++| LOCAL B,C 00183 M01S00161.compchi +++| A BSS 0 00184 M01S00162.compchi +++| HERE 00185 M01S00163.compchi +++| B SET * 00186 M01S00164.compchi +++| CHTL HERE 00187 M01S00165.compchi +++| C SET * 00188 M01S00166.compchi +++| IFEQ B,C,1 IF NO SPECIAL TERMINATOR 00189 M01S00167.compchi +++| A_E DATA 0 TERMINATE TABLE 00190 M01S00168.compchi +++| ENDM 00191 M01S00169.compchi +++| RSTC SPACE 4 00192 M01S00170.compchi +++|*** RSTC - RESTORE CHANNEL INSTRUCTIONS. 00193 M01S00171.compchi +++|* 00194 M01S00172.compchi +++|* 00195 M01S00173.compchi +++|* RSTC 00196 M01S00174.compchi +++| 00197 M01S00175.compchi +++| 00198 M01S00176.compchi +++| PURGMAC RSTC 00199 M01S00177.compchi +++| RSTC MACRO 00200 M01S00178.compchi +++| PURGMAC AJM 00201 M01S00179.compchi +++| PURGMAC SCF 00202 M01S00180.compchi +++| PURGMAC IJM 00203 M01S00181.compchi +++| PURGMAC CCF 00204 M01S00182.compchi +++| PURGMAC FJM 00205 M01S00183.compchi +++| PURGMAC SFM 00206 M01S00184.compchi +++| PURGMAC EJM 00207 M01S00185.compchi +++| PURGMAC CFM 00208 M01S00186.compchi +++| PURGMAC IAN 00209 M01S00187.compchi +++| PURGMAC IAM 00210 M01S00188.compchi +++| PURGMAC OAN 00211 M01S00189.compchi +++| PURGMAC OAM 00212 M01S00190.compchi +++| PURGMAC ACN 00213 M01S00191.compchi +++| PURGMAC DCN 00214 M01S00192.compchi +++| PURGMAC FAN 00215 M01S00193.compchi +++| PURGMAC FNC 00216 M01S00194.compchi +++| AJM OPSYN AJM. 00217 M01S00195.compchi +++| SCF OPSYN SCF. 00218 M01S00196.compchi +++| IJM OPSYN IJM. 00219 M01S00197.compchi +++| CCF OPSYN CCF. 00220 M01S00198.compchi +++| FJM OPSYN FJM. 00221 M01S00199.compchi +++| SFM OPSYN SFM. 00222 M01S00200.compchi +++| EJM OPSYN EJM. 00223 M01S00201.compchi +++| CFM OPSYN CFM. 00224 M01S00202.compchi +++| IAN OPSYN IAN. 00225 M01S00203.compchi +++| IAM OPSYN IAM. 00226 M01S00204.compchi +++| OAN OPSYN OAN. 00227 M01S00205.compchi +++| OAM OPSYN OAM. 00228 M01S00206.compchi +++| ACN OPSYN ACN. 00229 M01S00207.compchi +++| DCN OPSYN DCN. 00230 M01S00208.compchi +++| FAN OPSYN FAN. 00231 M01S00209.compchi +++| FNC OPSYN FNC. 00232 M01S00210.compchi +++| ENDM 00233 M01S00211.compchi +++| SPACE 4,10 00234 M01S00212.compchi +++| BASE * 00235 M01S00213.compchi +++| ENDX
cdc/nos2.source/opl.opl871/common/compchi.txt · Last modified: by 127.0.0.1