2 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compchi +++|          CTEXT  COMPCHI - REDEFINE I/O INSTRUCTIONS.
00002  M01S00002.compchi +++|          SPACE  4,10
00003  M01S00003.compchi +++|          BASE   M

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