Common COMPCHM

2 Modifications

Source

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

Line S00004 Modification History
`M01` (Added by)	`compchm`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.compchm +++| CHM      SPACE  4,10
00007  M01S00006.compchm +++|*****     COMPCHM - REDEFINE I/O INSTRUCTIONS.
00008  M01S00007.compchm +++|*
00009  M01S00008.compchm +++|*         P. D. HAAS.        78/08/09.
00010  M01S00009.compchm +++| CHM      SPACE  4,10
00011  M01S00010.compchm +++|***              *COMPCHM* REDEFINES I/O INSTRUCTIONS TO PRODUCE
00012  M01S00011.compchm +++|*         CHANNEL TABLES WITH LABELED REMOTE CODE.
00013  M01S00012.compchm +++|*
00014  M01S00013.compchm +++|*         ORIGINAL FORM MAY BE USED BY APPENDING A *.* TO THE ORIGINAL
00015  M01S00014.compchm +++|*         OPCODE.
00016  M01S00015.compchm +++|*
00017  M01S00016.compchm +++|*         INSTRUCTIONS REDEFINED -
00018  M01S00017.compchm +++|*                AJM
00019  M01S00018.compchm +++|*                IJM
00020  M01S00019.compchm +++|*                FJM
00021  M01S00020.compchm +++|*                EJM
00022  M01S00021.compchm +++|*                IAM
00023  M01S00022.compchm +++|*                OAM
00024  M01S00023.compchm +++|*                SCF
00025  M01S00024.compchm +++|*                CCF
00026  M01S00025.compchm +++|*                SFM
00027  M01S00026.compchm +++|*                CFM
00028  M01S00027.compchm +++|*                FNC
00029  M01S00028.compchm +++|*                IAN
00030  M01S00029.compchm +++|*                OAN
00031  M01S00030.compchm +++|*                ACN
00032  M01S00031.compchm +++|*                DCN
00033  M01S00032.compchm +++|*                FAN
00034  M01S00033.compchm +++|*
00035  M01S00034.compchm +++|*         THE NAME OF THE REMOTE TABLE IS DETERMINED BY THE *D*
00036  M01S00035.compchm +++|*         PORTION OF THE CHANNEL INSTRUCTION.
00037  M01S00036.compchm +++|*
00038  M01S00037.compchm +++|*         IF USED WITHIN A *LOC* BLOCK, CHANNEL INSTRUCTIONS
00039  M01S00038.compchm +++|*         MUST BE MODIFIED BEFORE THE BLOCK IS MOVED.
00040  M01S00039.compchm +++|*
00041  M01S00040.compchm +++|*         IF THE SYMBOL *RINST$* IS DEFINED, INSTRUCTIONS WILL BE
00042  M01S00041.compchm +++|*         RESTORED ON EXIT FROM THIS DECK.
00043  M01S00042.compchm +++| CHM      SPACE  4,10
00044  M01S00043.compchm +++|**        CHIM - REDEFINE M-TYPE CHANNEL INSTRUCTIONS.
00045  M01S00044.compchm +++|*
00046  M01S00045.compchm +++|*
00047  M01S00046.compchm +++|*         CHIM   OPC,CODE
00048  M01S00047.compchm +++|*         ENTRY  *OPC* = INSTRUCTION MNEMONIC.
00049  M01S00048.compchm +++|*                *CODE* = OPERATION CODE.
00050  M01S00049.compchm +++|
00051  M01S00050.compchm +++|
00052  M01S00051.compchm +++|          PURGMAC  CHIM
00053  M01S00052.compchm +++| CHIM     MACRO  OPC,CODE
00054  M01S00053.compchm +++|          PURGMAC OPC
00055  M01S00054.compchm +++| OPC.     PPOP   7,CODE
00056  M01S00055.compchm +++| OPC      MACRO  M,D
00057  M01S00056.compchm +++|          LOCAL  A
00058  M01S00057.compchm +++|          OPC.   M,D

Line S00058 Modification History
`M01` (Added by)	`compchm`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00058.v23l617 ---| A        EQU    *O-2
00060  M01S00001.v23l617 +++|          QUAL
00061  M01S00002.v23l617 +++| A        EQU    *O-2
00062  M01S00003.v23l617 +++|          QUAL   *
00063  M01S00059.compchm +++| CT_D     RMT
00064  M01S00060.compchm +++|          CON    A
00065  M01S00061.compchm +++|          RMT
00066  M01S00062.compchm +++| OPC      ENDM
00067  M01S00063.compchm +++| CHIM     ENDM
00068  M01S00064.compchm +++|
00069  M01S00065.compchm +++|          CHIM   AJM,6400
00070  M01S00066.compchm +++|          CHIM   SCF,6440
00071  M01S00067.compchm +++|          CHIM   IJM,6500
00072  M01S00068.compchm +++|          CHIM   CCF,6540
00073  M01S00069.compchm +++|          CHIM   FJM,6600
00074  M01S00070.compchm +++|          CHIM   SFM,6640
00075  M01S00071.compchm +++|          CHIM   EJM,6700
00076  M01S00072.compchm +++|          CHIM   CFM,6740
00077  M01S00073.compchm +++|          CHIM   IAM,7100
00078  M01S00074.compchm +++|          CHIM   OAM,7300
00079  M01S00075.compchm +++|          CHIM   FNC,7700
00080  M01S00076.compchm +++| CHM      SPACE  4,10
00081  M01S00077.compchm +++|**        CHIN - REDEFINE N-TYPE CHANNEL INSTRUCTIONS.
00082  M01S00078.compchm +++|*
00083  M01S00079.compchm +++|*
00084  M01S00080.compchm +++|*         CHIN   OPC,CODE
00085  M01S00081.compchm +++|*         ENTRY  *OPC* = INSTRUCTION MNEMONIC.
00086  M01S00082.compchm +++|*                *CODE* = OPERATION CODE.
00087  M01S00083.compchm +++|*
00088  M01S00084.compchm +++|*         NOTE   BIT 2**5 SET ON ALL *DCN* INSTRUCTIONS.
00089  M01S00085.compchm +++|
00090  M01S00086.compchm +++|
00091  M01S00087.compchm +++|          PURGMAC  CHIN
00092  M01S00088.compchm +++| CHIN     MACRO  OPC,CODE
00093  M01S00089.compchm +++|          PURGMAC OPC
00094  M01S00090.compchm +++| OPC.     PPOP   4,CODE
00095  M01S00091.compchm +++| OPC      MACRO  D
00096  M01S00092.compchm +++|          LOCAL  A
00097  M01S00093.compchm +++|          OPC.   D

Line S00094 Modification History
`M01` (Added by)	`compchm`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00094.v23l617 ---| A        EQU    *O-1
00099  M01S00004.v23l617 +++|          QUAL
00100  M01S00005.v23l617 +++| A        EQU    *O-1
00101  M01S00006.v23l617 +++|          QUAL   *
00102  M01S00095.compchm +++| CT_D     RMT
00103  M01S00096.compchm +++|          CON    A
00104  M01S00097.compchm +++|          RMT
00105  M01S00098.compchm +++| OPC      ENDM
00106  M01S00099.compchm +++| CHIN     ENDM
00107  M01S00100.compchm +++|
00108  M01S00101.compchm +++|          CHIN   IAN,7000
00109  M01S00102.compchm +++|          CHIN   OAN,7200
00110  M01S00103.compchm +++|          CHIN   ACN,7400
00111  M01S00104.compchm +++|          CHIN   DCN,7540
00112  M01S00105.compchm +++|          CHIN   FAN,7600
00113  M01S00106.compchm +++| CHM      SPACE  4,10
00114  M01S00107.compchm +++|**        CHTB - DEFINE CHANNEL TABLE.
00115  M01S00108.compchm +++|*         CHANNEL TABLE IS TERMINATED BY A ZERO WORD.
00116  M01S00109.compchm +++|*
00117  M01S00110.compchm +++|*
00118  M01S00111.compchm +++|*         CHTB   D
00119  M01S00112.compchm +++|*         ENTRY  *D* = NAME OF CHANNEL TABLE.
00120  M01S00113.compchm +++|
00121  M01S00114.compchm +++|
00122  M01S00115.compchm +++|          PURGMAC CHTB
00123  M01S00116.compchm +++| CHTB     MACRO  D
00124  M01S00117.compchm +++| CT_D     BSS    0
00125  M01S00118.compchm +++| CT_D     HERE
00126  M01S00119.compchm +++|          CON    0           TERMINATE TABLE
00127  M01S00120.compchm +++| CHTB     ENDM
00128  M01S00121.compchm +++| CHM      SPACE  4,10
00129  M01S00122.compchm +++|**        RSTC - RESTORE CHANNEL INSTRUCTIONS.
00130  M01S00123.compchm +++|*
00131  M01S00124.compchm +++|*
00132  M01S00125.compchm +++|*         RSTC
00133  M01S00126.compchm +++|
00134  M01S00127.compchm +++|
00135  M01S00128.compchm +++|          PURGMAC RSTC
00136  M01S00129.compchm +++| RSTC     MACRO
00137  M01S00130.compchm +++|          PURGMAC AJM
00138  M01S00131.compchm +++|          PURGMAC SCF
00139  M01S00132.compchm +++|          PURGMAC IJM
00140  M01S00133.compchm +++|          PURGMAC CCF
00141  M01S00134.compchm +++|          PURGMAC FJM
00142  M01S00135.compchm +++|          PURGMAC SFM
00143  M01S00136.compchm +++|          PURGMAC EJM
00144  M01S00137.compchm +++|          PURGMAC CFM
00145  M01S00138.compchm +++|          PURGMAC IAN
00146  M01S00139.compchm +++|          PURGMAC IAM
00147  M01S00140.compchm +++|          PURGMAC OAN
00148  M01S00141.compchm +++|          PURGMAC OAM
00149  M01S00142.compchm +++|          PURGMAC ACN
00150  M01S00143.compchm +++|          PURGMAC DCN
00151  M01S00144.compchm +++|          PURGMAC FAN
00152  M01S00145.compchm +++|          PURGMAC FNC
00153  M01S00146.compchm +++| AJM      OPSYN  AJM.
00154  M01S00147.compchm +++| SCF      OPSYN  SCF.
00155  M01S00148.compchm +++| IJM      OPSYN  IJM.
00156  M01S00149.compchm +++| CCF      OPSYN  CCF.
00157  M01S00150.compchm +++| FJM      OPSYN  FJM.
00158  M01S00151.compchm +++| SFM      OPSYN  SFM.
00159  M01S00152.compchm +++| EJM      OPSYN  EJM.
00160  M01S00153.compchm +++| CFM      OPSYN  CFM.
00161  M01S00154.compchm +++| IAN      OPSYN  IAN.
00162  M01S00155.compchm +++| IAM      OPSYN  IAM.
00163  M01S00156.compchm +++| OAN      OPSYN  OAN.
00164  M01S00157.compchm +++| OAM      OPSYN  OAM.
00165  M01S00158.compchm +++| ACN      OPSYN  ACN.
00166  M01S00159.compchm +++| DCN      OPSYN  DCN.
00167  M01S00160.compchm +++| FAN      OPSYN  FAN.
00168  M01S00161.compchm +++| FNC      OPSYN  FNC.
00169  M01S00162.compchm +++| RSTC     ENDM
00170  M01S00163.compchm +++|
00171  M01S00164.compchm +++|
00172  M01S00165.compchm +++|          IF     DEF,RINST$
00173  M01S00166.compchm +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
00174  M01S00167.compchm +++|          ENDIF
00175  M01S00168.compchm +++| CHM      SPACE  4,10
00176  M01S00169.compchm +++|          BASE   *
00177  M01S00170.compchm +++|          ENDX