Common COMPCHL

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compchl +++|          CTEXT  COMPCHL - REDEFINE I/O INSTRUCTIONS.

Line S00002 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00002.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M00S00003.compchl +++| COMPCHL  SPACE  4
00005  M00S00004.compchl +++|***       COMPCHL - REDEFINE I/O INSTRUCTIONS.
00006  M00S00005.compchl +++|*         G. R. MANSFIELD.  70/10/04.
00007  M00S00006.compchl +++|*         R. J. THIELEN.     75/11/20. MODIFIED.
00008  M00S00007.compchl +++| COMPCHL  SPACE  4
00009  M00S00008.compchl +++|***              COMPCHL REDEFINES THE I/O INSTRUCTIONS TO PRODUCE
00010  M00S00009.compchl +++|*         CHANNEL INSTRUCTIONS THAT ARE LINKED BACKWARDS TO THE
00011  M00S00010.compchl +++|*         PREVIOUS CHANNEL INSTRUCTION OR LINKED FORWARD TO THE
00012  M00S00011.compchl +++|*         FOLLOWING CHANNEL INSTRUCTION.  THE LINKAGE INFORMATION
00013  M00S00012.compchl +++|*         (BACKWARD OR FORWARD DISPLACEMENT) IS STORED IN THE *D* FIELD
00014  M00S00013.compchl +++|*         OF THE CHANNEL INSTRUCTIONS.  THE ASSEMBLED *D* FIELD WILL BE
00015  M00S00014.compchl +++|*         THE SUM OF THE LINKAGE DISPLACEMENT AND ANY VALUE PLACED IN
00016  M00S00015.compchl +++|*         THE *D* FIELD OF THE SYMBOLIC INSTRUCTION.  THIS ALLOWS BIT 5
00017  M00S00016.compchl +++|*         TO BE OPTIONALLY SPECIFIED FOR CONTROLLING CHANNEL HANGS.
00018  M00S00017.compchl +++|*
00019  M00S00018.compchl +++|*         LINKAGE DIRECTION IS CONTROLLED BY THE SYSBOL FWDL$ -
00020  M00S00019.compchl +++|*
00021  M00S00020.compchl +++|*         FWDL$ = UNDEFINED TO PRODUCE BACKWARD LINKED INSTRUCTIONS.
00022  M00S00021.compchl +++|*         FWDL$ = DEFINED TO PRODUCE FORWARD LINKED INSTRUCTIONS.
00023  M00S00022.compchl +++|*                 THIS FORM TAGS EACH INSTRUCTION WITH A TAG OF THE
00024  M00S00023.compchl +++|*                 FORM CHNN$, WHERE NN RANGES FROM 01 TO THE NUMBER OF
00025  M00S00024.compchl +++|*                 CHANNEL INSTRUCTIONS + 1 AND IS LIMITED TO 99.  THE
00026  M00S00025.compchl +++|*                 LAST INSTRUCTION IS TAGGED TWICE.
00027  M00S00026.compchl +++|*
00028  M00S00027.compchl +++|*         THE TIME AT WHICH INSTRUCTION REDEFINITION OCCURS IS
00029  M00S00028.compchl +++|*         CONTROLLED BY THE SYMBOL RICHL$ -
00030  M00S00029.compchl +++|*
00031  M00S00030.compchl +++|*         RICHL$ = UNDEFINED TO CAUSE THE CHANNEL INSTRUCTIONS TO BE
00032  M00S00031.compchl +++|*                  REDEFINED AT THE TIME *COMPCHL* IS ASSEMBLED.  THE
00033  M00S00032.compchl +++|*                  MACRO *RICHL* WILL NOT BE CREATED.
00034  M00S00033.compchl +++|*         RICHL$ = DEFINED TO CAUSE THE MACRO *RICHL* TO BE CREATED AND
00035  M00S00034.compchl +++|*                  TO DEFER INSTRUCTION REDEFINITION UNTIL *RICHL* IS
00036  M00S00035.compchl +++|*                  CALLED.  THE MACROS *RICHL* AND *RSTCHL* CAN BE USED
00037  M00S00036.compchl +++|*                  TO ENABLE OR DISABLE INSTRUCTION REDEFINITION.
00038  M00S00037.compchl +++|*
00039  M00S00038.compchl +++|*         ORIGINAL FORM MAY BE USED BY APPENDING A *.* TO THE ORIGINAL
00040  M00S00039.compchl +++|*         OPCODE.
00041  M00S00040.compchl +++|*
00042  M00S00041.compchl +++|*         INSTRUCTIONS REDEFINED -
00043  M00S00042.compchl +++|*                AJM
00044  M00S00043.compchl +++|*                IJM
00045  M00S00044.compchl +++|*                FJM
00046  M00S00045.compchl +++|*                EJM
00047  M00S00046.compchl +++|*                IAM
00048  M00S00047.compchl +++|*                OAM
00049  M00S00048.compchl +++|*                SCF
00050  M00S00049.compchl +++|*                CCF
00051  M00S00050.compchl +++|*                SFM
00052  M00S00051.compchl +++|*                CFM
00053  M00S00052.compchl +++|*                FNC
00054  M00S00053.compchl +++|*                IAN
00055  M00S00054.compchl +++|*                OAN
00056  M00S00055.compchl +++|*                ACN
00057  M00S00056.compchl +++|*                DCN
00058  M00S00057.compchl +++|*                FAN
00059  M00S00058.compchl +++| CHLM     SPACE  4
00060  M00S00059.compchl +++|**        CHLM - REDEFINE M-TYPE CHANNEL INSTRUCTIONS.
00061  M00S00060.compchl +++|*
00062  M00S00061.compchl +++|*
00063  M00S00062.compchl +++|*         CHLM   OPC,CODE
00064  M00S00063.compchl +++|*         ENTRY  *OPC* = INSTRUCTION MNEMONIC.
00065  M00S00064.compchl +++|*                *CODE* = OPERATION CODE.
00066  M00S00065.compchl +++|
00067  M00S00066.compchl +++|
00068  M00S00067.compchl +++|          PURGMAC CHLM
00069  M00S00068.compchl +++| CHLM     MACRO  OPC,CODE
00070  M00S00069.compchl +++|          PURGMAC OPC
00071  M00S00070.compchl +++| OPC.     PPOP   7,CODE
00072  M00S00071.compchl +++| OPC      MACRO  M,D
00073  M00S00072.compchl +++|          IF     -DEF,TCHS,1
00074  M00S00073.compchl +++| TCHS     SET    *
00075  M00S00074.compchl +++| FWD.BWD  IF     -DEF,FWDL$  IF REVERSE LINKING SPECIFIED

Line S00001 Modification History
`M01` (Added by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00001.pchl1   +++|          ERRPL  *-TCHS-40   REVERSE LINK OUT OF RANGE
00077  M00S00075.compchl +++|          OPC.   M,*-TCHS+D  REVERSE LINKED CHANNEL INSTRUCTION
00078  M00S00076.compchl +++| FWD.BWD  ELSE               PROCESS FORWARD LINKING
00079  M00S00077.compchl +++|          IF     -DEF,CH1$,2 IF INSTRUCTION TAG COUNTER NEVER USED
00080  M00S00078.compchl +++| CH1$     SET    1           INITIALIZE INSTRUCTION TAG COUNTER
00081  M00S00079.compchl +++| CH2$     DECMIC CH1$,2      INITIALIZE INSTRUCTION TAG
00082  M00S00080.compchl +++| CH"CH2$"$ EQU   *           TAG CURRENT INSTRUCTION
00083  M00S00081.compchl +++| CH1$     SET    CH1$+1      INCREMENT INSTRUCTION TAG
00084  M00S00082.compchl +++| CH2$     DECMIC CH1$,2

Line S00002 Modification History
`M01` (Added by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00002.pchl1   +++|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00086  M00S00083.compchl +++|          OPC.   M,CH"CH2$"$-*+D  FORWARD LINKED CHANNEL INSTRUCTION

Line S00084 Modification History
`M01` (Removed by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00084.pchl1   ---|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00088  M00S00085.compchl +++| FWD.BWD  ENDIF
00089  M00S00086.compchl +++| TCHS     SET    *-2
00090  M00S00087.compchl +++| OPC      ENDM
00091  M00S00088.compchl +++| CHLM     ENDM
00092  M00S00089.compchl +++| CHLN     SPACE  4
00093  M00S00090.compchl +++|**        CHLN - REDEFINE N-TYPE CHANNEL INSTRUCTIONS.
00094  M00S00091.compchl +++|*
00095  M00S00092.compchl +++|*
00096  M00S00093.compchl +++|*         CHLN   OPC
00097  M00S00094.compchl +++|*         ENTRY  *OPC* = INSTRUCTION MNEMONIC.
00098  M00S00095.compchl +++|*                *CODE* = OPERATION CODE.
00099  M00S00096.compchl +++|
00100  M00S00097.compchl +++|
00101  M00S00098.compchl +++|          PURGMAC CHLN
00102  M00S00099.compchl +++| CHLN     MACRO  OPC,CODE
00103  M00S00100.compchl +++|          PURGMAC OPC
00104  M00S00101.compchl +++| OPC.     PPOP   4,CODE
00105  M00S00102.compchl +++| OPC      MACRO  D
00106  M00S00103.compchl +++|          IF     -DEF,TCHS,1
00107  M00S00104.compchl +++| TCHS     SET    *
00108  M00S00105.compchl +++| FWD.BWD  IF     -DEF,FWDL$  IF REVERSE LINKING SPECIFIED

Line S00003 Modification History
`M01` (Added by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00109  M01S00003.pchl1   +++|          ERRPL  *-TCHS-40   REVERSE LINK OUT OF RANGE
00110  M00S00106.compchl +++|          OPC.   *-TCHS+D    REVERSE LINKED CHANNEL INSTRUCTION
00111  M00S00107.compchl +++| FWD.BWD  ELSE               PROCESS FORWARD LINKING
00112  M00S00108.compchl +++|          IF     -DEF,CH1$,2 IF INSTRUCTION TAG COUNTER NEVER USED
00113  M00S00109.compchl +++| CH1$     SET    1           INITIALIZE INSTRUCTION TAG COUNTER
00114  M00S00110.compchl +++| CH2$     DECMIC CH1$,2      INITIALIZE INSTRUCTION TAG
00115  M00S00111.compchl +++| CH"CH2$"$ EQU   *           TAG CURRENT INSTRUCTION
00116  M00S00112.compchl +++| CH1$     SET    CH1$+1      INCREMENT INSTRUCTION TAG
00117  M00S00113.compchl +++| CH2$     DECMIC CH1$,2

Line S00004 Modification History
`M01` (Added by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00118  M01S00004.pchl1   +++|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00119  M00S00114.compchl +++|          OPC.   CH"CH2$"$-*+D  FORWARD LINKED CHANNEL INSTRUCTION

Line S00115 Modification History
`M01` (Removed by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00120  M01S00115.pchl1   ---|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00121  M00S00116.compchl +++| FWD.BWD  ENDIF
00122  M00S00117.compchl +++| TCHS     SET    *-1
00123  M00S00118.compchl +++| OPC      ENDM
00124  M00S00119.compchl +++| CHLN     ENDM
00125  M00S00120.compchl +++| RICHL    SPACE  4
00126  M00S00121.compchl +++|***       RICHL - REDEFINE CHANNEL INSTRUCTIONS.
00127  M00S00122.compchl +++|*
00128  M00S00123.compchl +++|*         RICHL
00129  M00S00124.compchl +++|*         EACH TIME *RICHL* IS CALLED, INSTRUCTION REDEFINITION OCCURS.
00130  M00S00125.compchl +++|*         *RICHL* IS CREATED ONLY IF *RICHL$* IS DEFINED.
00131  M00S00126.compchl +++|
00132  M00S00127.compchl +++|
00133  M00S00128.compchl +++|          IF     DEF,RICHL$,2
00134  M00S00129.compchl +++|          PURGMAC RICHL
00135  M00S00130.compchl +++| RICHL    MACRO
00136  M00S00131.compchl +++|
00137  M00S00132.compchl +++|          CHLM   AJM,6400
00138  M00S00133.compchl +++|          CHLM   SCF,6440
00139  M00S00134.compchl +++|          CHLM   IJM,6500
00140  M00S00135.compchl +++|          CHLM   CCF,6540
00141  M00S00136.compchl +++|          CHLM   FJM,6600
00142  M00S00137.compchl +++|          CHLM   SFM,6640
00143  M00S00138.compchl +++|          CHLM   EJM,6700
00144  M00S00139.compchl +++|          CHLM   CFM,6740
00145  M00S00140.compchl +++|          CHLM   IAM,7100
00146  M00S00141.compchl +++|          CHLM   OAM,7300
00147  M00S00142.compchl +++|          CHLM   FNC,7700
00148  M00S00143.compchl +++|
00149  M00S00144.compchl +++|          CHLN   IAN,7000
00150  M00S00145.compchl +++|          CHLN   OAN,7200
00151  M00S00146.compchl +++|          CHLN   ACN,7400
00152  M00S00147.compchl +++|          CHLN   DCN,7500
00153  M00S00148.compchl +++|          CHLN   FAN,7600
00154  M00S00149.compchl +++|
00155  M00S00150.compchl +++|
00156  M00S00151.compchl +++|
00157  M00S00152.compchl +++|
00158  M00S00153.compchl +++|**        TLCL - TERMINATE LINKED CHANNEL LIST.
00159  M00S00154.compchl +++|*
00160  M00S00155.compchl +++|*         THIS CODE MAKES AN ENTRY IN THE UNLABELED REMOVE TABLE TO
00161  M00S00156.compchl +++|*         FORCE TERMINATION OF THE CHANNEL LIST WHEN THE END OF PROGRAM
00162  M00S00157.compchl +++|*         IS REACHED.  THE CHANNEL LIST CAN BE TERMINATED EARLY BY
00163  M00S00158.compchl +++|*         USING AN UNLABELED *HERE* PSEUDO INSTRUCTION.  IT SHOULD BE
00164  M00S00159.compchl +++|*         NOTED THAT ONCE AN UNLABELED *HERE* PSEUDO INSTRUCTION HAS
00165  M00S00160.compchl +++|*         CAUSED THE FORWARD LINKED CHANNEL INSTRUCTION LIST TO BE
00166  M00S00161.compchl +++|*         TERMINATED, THE REDEFINED CHANNEL INSTRUCTIONS ARE RESTORED
00167  M00S00162.compchl +++|*         TO THEIR STANDARD FORM.
00168  M00S00163.compchl +++|
00169  M00S00164.compchl +++|
00170  M00S00165.compchl +++| TLCL     IF     DEF,FWDL$   IF FORWARD LINKING SPECIFIED
00171  M00S00166.compchl +++|          RMT
00172  M00S00167.compchl +++|          IF     DEF,CH1$,1  IF CHANNEL INSTRUCTIONS PROCESSED
00173  M00S00168.compchl +++| CH"CH2$"$ EQU   TCHS        TERMINATE LAST INSTRUCTION IN CHAIN
00174  M00S00169.compchl +++|          RSTCHL             RESTORE CHANNEL INSTRUCTIONS
00175  M00S00170.compchl +++|          RMT
00176  M00S00171.compchl +++| TLCL     ENDIF
00177  M00S00172.compchl +++|
00178  M00S00173.compchl +++| RICHL    ENDM
00179  M00S00174.compchl +++| RSTC     SPACE  4
00180  M00S00175.compchl +++|***       RSTCHL - RESTORE CHANNEL INSTRUCTIONS.
00181  M00S00176.compchl +++|*
00182  M00S00177.compchl +++|*         RSTCHL
00183  M00S00178.compchl +++|*         EACH TIME *RSTCHL* IS CALLED, INSTRUCTION RESTORATION OCCURS.
00184  M00S00179.compchl +++|
00185  M00S00180.compchl +++|
00186  M00S00181.compchl +++|          PURGMAC RSTCHL
00187  M00S00182.compchl +++| RSTCHL   MACRO
00188  M00S00183.compchl +++|          PURGMAC AJM
00189  M00S00184.compchl +++|          PURGMAC SCF
00190  M00S00185.compchl +++|          PURGMAC IJM
00191  M00S00186.compchl +++|          PURGMAC CCF
00192  M00S00187.compchl +++|          PURGMAC FJM
00193  M00S00188.compchl +++|          PURGMAC SFM
00194  M00S00189.compchl +++|          PURGMAC EJM
00195  M00S00190.compchl +++|          PURGMAC CFM
00196  M00S00191.compchl +++|          PURGMAC IAN
00197  M00S00192.compchl +++|          PURGMAC IAM
00198  M00S00193.compchl +++|          PURGMAC OAN
00199  M00S00194.compchl +++|          PURGMAC OAM
00200  M00S00195.compchl +++|          PURGMAC ACN
00201  M00S00196.compchl +++|          PURGMAC DCN
00202  M00S00197.compchl +++|          PURGMAC FAN
00203  M00S00198.compchl +++|          PURGMAC FNC
00204  M00S00199.compchl +++| AJM      OPSYN  AJM.
00205  M00S00200.compchl +++| SCF      OPSYN  SCF.
00206  M00S00201.compchl +++| IJM      OPSYN  IJM.
00207  M00S00202.compchl +++| CCF      OPSYN  CCF.
00208  M00S00203.compchl +++| FJM      OPSYN  FJM.
00209  M00S00204.compchl +++| SFM      OPSYN  SFM.
00210  M00S00205.compchl +++| EJM      OPSYN  EJM.
00211  M00S00206.compchl +++| CFM      OPSYN  CFM.
00212  M00S00207.compchl +++| IAN      OPSYN  IAN.
00213  M00S00208.compchl +++| IAM      OPSYN  IAM.
00214  M00S00209.compchl +++| OAN      OPSYN  OAN.
00215  M00S00210.compchl +++| OAM      OPSYN  OAM.
00216  M00S00211.compchl +++| ACN      OPSYN  ACN.
00217  M00S00212.compchl +++| DCN      OPSYN  DCN.
00218  M00S00213.compchl +++| FAN      OPSYN  FAN.
00219  M00S00214.compchl +++| FNC      OPSYN  FNC.
00220  M00S00215.compchl +++|          ENDM
00221  M00S00216.compchl +++|          SPACE  4
00222  M00S00217.compchl +++|          ENDX