Common COMPCHL

2 Modifications

Source

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

Line S00002 Modification History
`M01` (Added by)	`compchl`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00002  M02S00002.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00003  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M01S00003.compchl +++| COMPCHL  SPACE  4
00005  M01S00004.compchl +++|***       COMPCHL - REDEFINE I/O INSTRUCTIONS.
00006  M01S00005.compchl +++|*         G. R. MANSFIELD.  70/10/04.
00007  M01S00006.compchl +++|*         R. J. THIELEN.     75/11/20. MODIFIED.
00008  M01S00007.compchl +++| COMPCHL  SPACE  4
00009  M01S00008.compchl +++|***              COMPCHL REDEFINES THE I/O INSTRUCTIONS TO PRODUCE
00010  M01S00009.compchl +++|*         CHANNEL INSTRUCTIONS THAT ARE LINKED BACKWARDS TO THE
00011  M01S00010.compchl +++|*         PREVIOUS CHANNEL INSTRUCTION OR LINKED FORWARD TO THE
00012  M01S00011.compchl +++|*         FOLLOWING CHANNEL INSTRUCTION.  THE LINKAGE INFORMATION
00013  M01S00012.compchl +++|*         (BACKWARD OR FORWARD DISPLACEMENT) IS STORED IN THE *D* FIELD
00014  M01S00013.compchl +++|*         OF THE CHANNEL INSTRUCTIONS.  THE ASSEMBLED *D* FIELD WILL BE
00015  M01S00014.compchl +++|*         THE SUM OF THE LINKAGE DISPLACEMENT AND ANY VALUE PLACED IN
00016  M01S00015.compchl +++|*         THE *D* FIELD OF THE SYMBOLIC INSTRUCTION.  THIS ALLOWS BIT 5
00017  M01S00016.compchl +++|*         TO BE OPTIONALLY SPECIFIED FOR CONTROLLING CHANNEL HANGS.
00018  M01S00017.compchl +++|*
00019  M01S00018.compchl +++|*         LINKAGE DIRECTION IS CONTROLLED BY THE SYSBOL FWDL$ -
00020  M01S00019.compchl +++|*
00021  M01S00020.compchl +++|*         FWDL$ = UNDEFINED TO PRODUCE BACKWARD LINKED INSTRUCTIONS.
00022  M01S00021.compchl +++|*         FWDL$ = DEFINED TO PRODUCE FORWARD LINKED INSTRUCTIONS.
00023  M01S00022.compchl +++|*                 THIS FORM TAGS EACH INSTRUCTION WITH A TAG OF THE
00024  M01S00023.compchl +++|*                 FORM CHNN$, WHERE NN RANGES FROM 01 TO THE NUMBER OF
00025  M01S00024.compchl +++|*                 CHANNEL INSTRUCTIONS + 1 AND IS LIMITED TO 99.  THE
00026  M01S00025.compchl +++|*                 LAST INSTRUCTION IS TAGGED TWICE.
00027  M01S00026.compchl +++|*
00028  M01S00027.compchl +++|*         THE TIME AT WHICH INSTRUCTION REDEFINITION OCCURS IS
00029  M01S00028.compchl +++|*         CONTROLLED BY THE SYMBOL RICHL$ -
00030  M01S00029.compchl +++|*
00031  M01S00030.compchl +++|*         RICHL$ = UNDEFINED TO CAUSE THE CHANNEL INSTRUCTIONS TO BE
00032  M01S00031.compchl +++|*                  REDEFINED AT THE TIME *COMPCHL* IS ASSEMBLED.  THE
00033  M01S00032.compchl +++|*                  MACRO *RICHL* WILL NOT BE CREATED.
00034  M01S00033.compchl +++|*         RICHL$ = DEFINED TO CAUSE THE MACRO *RICHL* TO BE CREATED AND
00035  M01S00034.compchl +++|*                  TO DEFER INSTRUCTION REDEFINITION UNTIL *RICHL* IS
00036  M01S00035.compchl +++|*                  CALLED.  THE MACROS *RICHL* AND *RSTCHL* CAN BE USED
00037  M01S00036.compchl +++|*                  TO ENABLE OR DISABLE INSTRUCTION REDEFINITION.
00038  M01S00037.compchl +++|*
00039  M01S00038.compchl +++|*         ORIGINAL FORM MAY BE USED BY APPENDING A *.* TO THE ORIGINAL
00040  M01S00039.compchl +++|*         OPCODE.
00041  M01S00040.compchl +++|*
00042  M01S00041.compchl +++|*         INSTRUCTIONS REDEFINED -
00043  M01S00042.compchl +++|*                AJM
00044  M01S00043.compchl +++|*                IJM
00045  M01S00044.compchl +++|*                FJM
00046  M01S00045.compchl +++|*                EJM
00047  M01S00046.compchl +++|*                IAM
00048  M01S00047.compchl +++|*                OAM
00049  M01S00048.compchl +++|*                SCF
00050  M01S00049.compchl +++|*                CCF
00051  M01S00050.compchl +++|*                SFM
00052  M01S00051.compchl +++|*                CFM
00053  M01S00052.compchl +++|*                FNC
00054  M01S00053.compchl +++|*                IAN
00055  M01S00054.compchl +++|*                OAN
00056  M01S00055.compchl +++|*                ACN
00057  M01S00056.compchl +++|*                DCN
00058  M01S00057.compchl +++|*                FAN
00059  M01S00058.compchl +++| CHLM     SPACE  4
00060  M01S00059.compchl +++|**        CHLM - REDEFINE M-TYPE CHANNEL INSTRUCTIONS.
00061  M01S00060.compchl +++|*
00062  M01S00061.compchl +++|*
00063  M01S00062.compchl +++|*         CHLM   OPC,CODE
00064  M01S00063.compchl +++|*         ENTRY  *OPC* = INSTRUCTION MNEMONIC.
00065  M01S00064.compchl +++|*                *CODE* = OPERATION CODE.
00066  M01S00065.compchl +++|
00067  M01S00066.compchl +++|
00068  M01S00067.compchl +++|          PURGMAC CHLM
00069  M01S00068.compchl +++| CHLM     MACRO  OPC,CODE
00070  M01S00069.compchl +++|          PURGMAC OPC
00071  M01S00070.compchl +++| OPC.     PPOP   7,CODE
00072  M01S00071.compchl +++| OPC      MACRO  M,D
00073  M01S00072.compchl +++|          IF     -DEF,TCHS,1
00074  M01S00073.compchl +++| TCHS     SET    *
00075  M01S00074.compchl +++| FWD.BWD  IF     -DEF,FWDL$  IF REVERSE LINKING SPECIFIED
00076  M01S00001.pchl1   +++|          ERRPL  *-TCHS-40   REVERSE LINK OUT OF RANGE
00077  M01S00075.compchl +++|          OPC.   M,*-TCHS+D  REVERSE LINKED CHANNEL INSTRUCTION
00078  M01S00076.compchl +++| FWD.BWD  ELSE               PROCESS FORWARD LINKING
00079  M01S00077.compchl +++|          IF     -DEF,CH1$,2 IF INSTRUCTION TAG COUNTER NEVER USED
00080  M01S00078.compchl +++| CH1$     SET    1           INITIALIZE INSTRUCTION TAG COUNTER
00081  M01S00079.compchl +++| CH2$     DECMIC CH1$,2      INITIALIZE INSTRUCTION TAG
00082  M01S00080.compchl +++| CH"CH2$"$ EQU   *           TAG CURRENT INSTRUCTION
00083  M01S00081.compchl +++| CH1$     SET    CH1$+1      INCREMENT INSTRUCTION TAG
00084  M01S00082.compchl +++| CH2$     DECMIC CH1$,2
00085  M01S00002.pchl1   +++|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00086  M01S00083.compchl +++|          OPC.   M,CH"CH2$"$-*+D  FORWARD LINKED CHANNEL INSTRUCTION

Line S00084 Modification History
`M01` (Added by)	`compchl`
`M02` (Updated by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00084.pchl1   ---|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00088  M01S00085.compchl +++| FWD.BWD  ENDIF
00089  M01S00086.compchl +++| TCHS     SET    *-2
00090  M01S00087.compchl +++| OPC      ENDM
00091  M01S00088.compchl +++| CHLM     ENDM
00092  M01S00089.compchl +++| CHLN     SPACE  4
00093  M01S00090.compchl +++|**        CHLN - REDEFINE N-TYPE CHANNEL INSTRUCTIONS.
00094  M01S00091.compchl +++|*
00095  M01S00092.compchl +++|*
00096  M01S00093.compchl +++|*         CHLN   OPC
00097  M01S00094.compchl +++|*         ENTRY  *OPC* = INSTRUCTION MNEMONIC.
00098  M01S00095.compchl +++|*                *CODE* = OPERATION CODE.
00099  M01S00096.compchl +++|
00100  M01S00097.compchl +++|
00101  M01S00098.compchl +++|          PURGMAC CHLN
00102  M01S00099.compchl +++| CHLN     MACRO  OPC,CODE
00103  M01S00100.compchl +++|          PURGMAC OPC
00104  M01S00101.compchl +++| OPC.     PPOP   4,CODE
00105  M01S00102.compchl +++| OPC      MACRO  D
00106  M01S00103.compchl +++|          IF     -DEF,TCHS,1
00107  M01S00104.compchl +++| TCHS     SET    *
00108  M01S00105.compchl +++| FWD.BWD  IF     -DEF,FWDL$  IF REVERSE LINKING SPECIFIED
00109  M01S00003.pchl1   +++|          ERRPL  *-TCHS-40   REVERSE LINK OUT OF RANGE
00110  M01S00106.compchl +++|          OPC.   *-TCHS+D    REVERSE LINKED CHANNEL INSTRUCTION
00111  M01S00107.compchl +++| FWD.BWD  ELSE               PROCESS FORWARD LINKING
00112  M01S00108.compchl +++|          IF     -DEF,CH1$,2 IF INSTRUCTION TAG COUNTER NEVER USED
00113  M01S00109.compchl +++| CH1$     SET    1           INITIALIZE INSTRUCTION TAG COUNTER
00114  M01S00110.compchl +++| CH2$     DECMIC CH1$,2      INITIALIZE INSTRUCTION TAG
00115  M01S00111.compchl +++| CH"CH2$"$ EQU   *           TAG CURRENT INSTRUCTION
00116  M01S00112.compchl +++| CH1$     SET    CH1$+1      INCREMENT INSTRUCTION TAG
00117  M01S00113.compchl +++| CH2$     DECMIC CH1$,2
00118  M01S00004.pchl1   +++|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00119  M01S00114.compchl +++|          OPC.   CH"CH2$"$-*+D  FORWARD LINKED CHANNEL INSTRUCTION

Line S00115 Modification History
`M01` (Added by)	`compchl`
`M02` (Updated by)	`pchl1`

Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00115.pchl1   ---|          ERRPL  CH"CH2$"$-*-40  FORWARD LINK OUT OF RANGE
00121  M01S00116.compchl +++| FWD.BWD  ENDIF
00122  M01S00117.compchl +++| TCHS     SET    *-1
00123  M01S00118.compchl +++| OPC      ENDM
00124  M01S00119.compchl +++| CHLN     ENDM
00125  M01S00120.compchl +++| RICHL    SPACE  4
00126  M01S00121.compchl +++|***       RICHL - REDEFINE CHANNEL INSTRUCTIONS.
00127  M01S00122.compchl +++|*
00128  M01S00123.compchl +++|*         RICHL
00129  M01S00124.compchl +++|*         EACH TIME *RICHL* IS CALLED, INSTRUCTION REDEFINITION OCCURS.
00130  M01S00125.compchl +++|*         *RICHL* IS CREATED ONLY IF *RICHL$* IS DEFINED.
00131  M01S00126.compchl +++|
00132  M01S00127.compchl +++|
00133  M01S00128.compchl +++|          IF     DEF,RICHL$,2
00134  M01S00129.compchl +++|          PURGMAC RICHL
00135  M01S00130.compchl +++| RICHL    MACRO
00136  M01S00131.compchl +++|
00137  M01S00132.compchl +++|          CHLM   AJM,6400
00138  M01S00133.compchl +++|          CHLM   SCF,6440
00139  M01S00134.compchl +++|          CHLM   IJM,6500
00140  M01S00135.compchl +++|          CHLM   CCF,6540
00141  M01S00136.compchl +++|          CHLM   FJM,6600
00142  M01S00137.compchl +++|          CHLM   SFM,6640
00143  M01S00138.compchl +++|          CHLM   EJM,6700
00144  M01S00139.compchl +++|          CHLM   CFM,6740
00145  M01S00140.compchl +++|          CHLM   IAM,7100
00146  M01S00141.compchl +++|          CHLM   OAM,7300
00147  M01S00142.compchl +++|          CHLM   FNC,7700
00148  M01S00143.compchl +++|
00149  M01S00144.compchl +++|          CHLN   IAN,7000
00150  M01S00145.compchl +++|          CHLN   OAN,7200
00151  M01S00146.compchl +++|          CHLN   ACN,7400
00152  M01S00147.compchl +++|          CHLN   DCN,7500
00153  M01S00148.compchl +++|          CHLN   FAN,7600
00154  M01S00149.compchl +++|
00155  M01S00150.compchl +++|
00156  M01S00151.compchl +++|
00157  M01S00152.compchl +++|
00158  M01S00153.compchl +++|**        TLCL - TERMINATE LINKED CHANNEL LIST.
00159  M01S00154.compchl +++|*
00160  M01S00155.compchl +++|*         THIS CODE MAKES AN ENTRY IN THE UNLABELED REMOVE TABLE TO
00161  M01S00156.compchl +++|*         FORCE TERMINATION OF THE CHANNEL LIST WHEN THE END OF PROGRAM
00162  M01S00157.compchl +++|*         IS REACHED.  THE CHANNEL LIST CAN BE TERMINATED EARLY BY
00163  M01S00158.compchl +++|*         USING AN UNLABELED *HERE* PSEUDO INSTRUCTION.  IT SHOULD BE
00164  M01S00159.compchl +++|*         NOTED THAT ONCE AN UNLABELED *HERE* PSEUDO INSTRUCTION HAS
00165  M01S00160.compchl +++|*         CAUSED THE FORWARD LINKED CHANNEL INSTRUCTION LIST TO BE
00166  M01S00161.compchl +++|*         TERMINATED, THE REDEFINED CHANNEL INSTRUCTIONS ARE RESTORED
00167  M01S00162.compchl +++|*         TO THEIR STANDARD FORM.
00168  M01S00163.compchl +++|
00169  M01S00164.compchl +++|
00170  M01S00165.compchl +++| TLCL     IF     DEF,FWDL$   IF FORWARD LINKING SPECIFIED
00171  M01S00166.compchl +++|          RMT
00172  M01S00167.compchl +++|          IF     DEF,CH1$,1  IF CHANNEL INSTRUCTIONS PROCESSED
00173  M01S00168.compchl +++| CH"CH2$"$ EQU   TCHS        TERMINATE LAST INSTRUCTION IN CHAIN
00174  M01S00169.compchl +++|          RSTCHL             RESTORE CHANNEL INSTRUCTIONS
00175  M01S00170.compchl +++|          RMT
00176  M01S00171.compchl +++| TLCL     ENDIF
00177  M01S00172.compchl +++|
00178  M01S00173.compchl +++| RICHL    ENDM
00179  M01S00174.compchl +++| RSTC     SPACE  4
00180  M01S00175.compchl +++|***       RSTCHL - RESTORE CHANNEL INSTRUCTIONS.
00181  M01S00176.compchl +++|*
00182  M01S00177.compchl +++|*         RSTCHL
00183  M01S00178.compchl +++|*         EACH TIME *RSTCHL* IS CALLED, INSTRUCTION RESTORATION OCCURS.
00184  M01S00179.compchl +++|
00185  M01S00180.compchl +++|
00186  M01S00181.compchl +++|          PURGMAC RSTCHL
00187  M01S00182.compchl +++| RSTCHL   MACRO
00188  M01S00183.compchl +++|          PURGMAC AJM
00189  M01S00184.compchl +++|          PURGMAC SCF
00190  M01S00185.compchl +++|          PURGMAC IJM
00191  M01S00186.compchl +++|          PURGMAC CCF
00192  M01S00187.compchl +++|          PURGMAC FJM
00193  M01S00188.compchl +++|          PURGMAC SFM
00194  M01S00189.compchl +++|          PURGMAC EJM
00195  M01S00190.compchl +++|          PURGMAC CFM
00196  M01S00191.compchl +++|          PURGMAC IAN
00197  M01S00192.compchl +++|          PURGMAC IAM
00198  M01S00193.compchl +++|          PURGMAC OAN
00199  M01S00194.compchl +++|          PURGMAC OAM
00200  M01S00195.compchl +++|          PURGMAC ACN
00201  M01S00196.compchl +++|          PURGMAC DCN
00202  M01S00197.compchl +++|          PURGMAC FAN
00203  M01S00198.compchl +++|          PURGMAC FNC
00204  M01S00199.compchl +++| AJM      OPSYN  AJM.
00205  M01S00200.compchl +++| SCF      OPSYN  SCF.
00206  M01S00201.compchl +++| IJM      OPSYN  IJM.
00207  M01S00202.compchl +++| CCF      OPSYN  CCF.
00208  M01S00203.compchl +++| FJM      OPSYN  FJM.
00209  M01S00204.compchl +++| SFM      OPSYN  SFM.
00210  M01S00205.compchl +++| EJM      OPSYN  EJM.
00211  M01S00206.compchl +++| CFM      OPSYN  CFM.
00212  M01S00207.compchl +++| IAN      OPSYN  IAN.
00213  M01S00208.compchl +++| IAM      OPSYN  IAM.
00214  M01S00209.compchl +++| OAN      OPSYN  OAN.
00215  M01S00210.compchl +++| OAM      OPSYN  OAM.
00216  M01S00211.compchl +++| ACN      OPSYN  ACN.
00217  M01S00212.compchl +++| DCN      OPSYN  DCN.
00218  M01S00213.compchl +++| FAN      OPSYN  FAN.
00219  M01S00214.compchl +++| FNC      OPSYN  FNC.
00220  M01S00215.compchl +++|          ENDM
00221  M01S00216.compchl +++|          SPACE  4
00222  M01S00217.compchl +++|          ENDX