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