Deck PANSUBS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+

Line S00001 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.pansu2  ---|          IDENT  CSETA

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

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00001.pansu2  +++|          IDENT  PANSUBS
00003  M01S00002.pansu2  +++|
00004  M01S00003.pansu2  +++|          ENTRY  ABT
00005  M00S00002.pansubs +++|          ENTRY  CSETA

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00004.pansu2  +++|          ENTRY  MSG
00007  M01S00005.pansu2  +++|          ENTRY  X612TA
00008  M01S00006.pansu2  +++|          ENTRY  RFL=
00009  M00S00003.pansubs +++|          SYSCOM B1

Line S00007 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00007.pansu2  +++|          TITLE  PANSUBS - PANEL ACCESS SUBROUTINES.
00011  M01S00008.pansu2  +++|*COMMENT  PANSUBS - PANEL ACCESS SUBROUTINES.

Line S00009 Modification History
`M01` (Added by)	`pansu2`
`M02` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.

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

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Line S00010 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00010.pansu2  +++|          TITLE  ABT - ABNORMALLY TERMINATE THE JOB
00015  M01S00011.pansu2  +++| ABT      SPACE  4,10
00016  M01S00012.pansu2  +++|***       ABT - ABNORMALLY TERMINATE THE JOB.
00017  M01S00013.pansu2  +++|*
00018  M01S00014.pansu2  +++|*         R.K. FOSTER.       83/03/07.
00019  M01S00015.pansu2  +++| ABT      SPACE  4,10
00020  M01S00016.pansu2  +++|***       *ABT* PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00021  M01S00017.pansu2  +++|*         ABNORMALLY TERMINATING THE JOB.
00022  M01S00018.pansu2  +++| ABT      SPACE  4,10
00023  M01S00019.pansu2  +++|**        ABT - ABNORMALLY TERMINATE THE JOB.
00024  M01S00020.pansu2  +++|*
00025  M01S00021.pansu2  +++|*         USES   B - 1.
00026  M01S00022.pansu2  +++|*
00027  M01S00023.pansu2  +++|*         MACROS ABORT.
00028  M01S00024.pansu2  +++|
00029  M01S00025.pansu2  +++|
00030  M01S00026.pansu2  +++| ABT      SUBR               ENTRY/EXIT
00031  M01S00027.pansu2  +++|          SB1    1
00032  M01S00028.pansu2  +++|          ABORT              DUMP THE JOB
00033  M01S00029.pansu2  +++|          EQ     ABTX        RETURN
00034  M00S00004.pansubs +++|          TITLE  CSETA - SET CHARACTER SET TO ASCII.

Line S00005 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00005.pansu2  ---|*COMMENT  CSETA - SET CHARACTER SET TO ASCII.
00036  M01S00006.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
00037  M01S00007.pansu2  ---| CSETA    SPACE  4,10
00038  M00S00008.pansubs +++|***       CSETA - SET CHARACTER SET TO ASCII.
00039  M00S00009.pansubs +++|*
00040  M00S00010.pansubs +++|*         R.K. FOSTER.       83/03/07.
00041  M00S00011.pansubs +++| CSETA    SPACE  4,10
00042  M00S00012.pansubs +++|***       *CSETA* PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00043  M00S00013.pansubs +++|*         SETTING THE CHARACTER SET OF THE TERMINAL TO ASCII.

Line S00014 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00014.pansu2  ---| CSETA    SPACE  4,10
00045  M01S00015.pansu2  ---|**        COMMON DECKS.
00046  M01S00016.pansu2  ---|
00047  M01S00017.pansu2  ---|
00048  M01S00018.pansu2  ---|*CALL     COMCMAC

Line S00030 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00049  M01S00030.pansu2  +++|*         IT ALSO ALTERS *TVXD* IN *COMTVDT* IF USING 63-CHARACTER SET.
00050  M00S00019.pansubs +++| CSETA    SPACE  4,10
00051  M00S00020.pansubs +++|**        CSETA - SET CHARACTER SET TO ASCII.
00052  M00S00021.pansubs +++|*

Line S00022 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00022.pansu2  ---|*         USES   B - 1.

Line S00031 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00031.pansu2  +++|*         USES   X - 1, 2, 6.
00055  M01S00032.pansu2  +++|*                A - 1, 2, 6.
00056  M01S00033.pansu2  +++|*                B - 1, 6.
00057  M00S00023.pansubs +++|*

Line S00024 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00024.pansu2  ---|*         CALLS  CSET.

Line S00034 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00034.pansu2  +++|*         MACROS CSET.
00060  M00S00025.pansubs +++|
00061  M00S00026.pansubs +++|

Line S00027 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00027.pansu2  ---| CSETA    PS     0           ENTRY/EXIT

Line S00035 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00035.pansu2  +++| CSETA    SUBR               ENTRY/EXIT
00064  M00S00028.pansubs +++|          SB1    1
00065  M00S00029.pansubs +++|          CSET   ASCII       SET CHARACTER SET TO ASCII

Line S00030 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00030.pansu2  ---|          EQ     CSETA       RETURN
00067  M01S00031.pansu2  ---|
00068  M01S00032.pansu2  ---|          END
00069  M01S00033.pansu2  ---|          IDENT  ABT
00070  M01S00034.pansu2  ---|          ENTRY  ABT
00071  M01S00035.pansu2  ---|          SYSCOM B1
00072  M01S00036.pansu2  ---|          TITLE  ABT - ABNORMALLY TERMINATE THE JOB
00073  M01S00037.pansu2  ---|*COMMENT  ABT - ABNORMALLY TERMINATE THE JOB
00074  M01S00038.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
00075  M01S00039.pansu2  ---| ABT      SPACE  4,10
00076  M01S00040.pansu2  ---|***       ABT - ABNORMALLY TERMINATE THE JOB
00077  M01S00041.pansu2  ---|*
00078  M01S00042.pansu2  ---|*         R.K. FOSTER.       83/03/07.
00079  M01S00043.pansu2  ---| ABT      SPACE  4,10
00080  M01S00044.pansu2  ---|***       *ABT* PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00081  M01S00045.pansu2  ---|*         ABNORMALLY TERMINATING THE JOB.
00082  M01S00046.pansu2  ---| ABT      SPACE  4,10
00083  M01S00047.pansu2  ---|**        COMMON DECKS.
00084  M01S00048.pansu2  ---|
00085  M01S00049.pansu2  ---|
00086  M01S00050.pansu2  ---|*CALL     COMCMAC
00087  M01S00051.pansu2  ---| ABT      SPACE  4,10
00088  M01S00052.pansu2  ---|**        ABT - ABNORMALLY TERMINATE THE JOB.
00089  M01S00053.pansu2  ---|*
00090  M01S00054.pansu2  ---|*         USES   B - 1.
00091  M01S00055.pansu2  ---|*
00092  M01S00056.pansu2  ---|*         CALLS  ABORT
00093  M01S00057.pansu2  ---|
00094  M01S00058.pansu2  ---|
00095  M01S00059.pansu2  ---| ABT      PS     0           ENTRY/EXIT
00096  M01S00060.pansu2  ---|          SB1    1
00097  M01S00061.pansu2  ---|          ABORT              DUMP THE JOB
00098  M01S00062.pansu2  ---|          EQ     ABT         RETURN
00099  M01S00063.pansu2  ---|
00100  M01S00064.pansu2  ---|          END
00101  M01S00065.pansu2  ---|          IDENT  MSG
00102  M01S00066.pansu2  ---|          ENTRY  MSG
00103  M01S00067.pansu2  ---|          SYSCOM B1

Line S00036 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00104  M01S00036.pansu2  +++|          SA1    CSMR        READ INSTALLATION OPTION
00105  M01S00037.pansu2  +++|          SB6    TVXD64      ASSUME 64 CHARACTER SET
00106  M01S00038.pansu2  +++|          NG     X1,CSE1     IF 64 CHARACTER SET
00107  M01S00039.pansu2  +++|          SB6    TVXD63      SET 63 CHARACTER SET
00108  M01S00040.pansu2  +++| CSE1     SA1    B6+         READ MODIFICATION TABLE ENTRY
00109  M01S00041.pansu2  +++|          NG     X1,CSETAX   IF END OF TABLE, RETURN
00110  M01S00042.pansu2  +++|          SA2    A1+B1       READ SUBSTITUTION
00111  M01S00043.pansu2  +++|          SB6    B6+2
00112  M01S00044.pansu2  +++|          BX6    X2          STORE SUBSTITUTION
00113  M01S00045.pansu2  +++|          SA6    TVXD+X1
00114  M01S00046.pansu2  +++|          EQ     CSE1        CONTINUE
00115  M00S00068.pansubs +++|          TITLE  MSG - TERMINATION MESSAGE

Line S00069 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00116  M01S00069.pansu2  ---|*COMMENT  MSG - TERMINATION MESSAGE
00117  M01S00070.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
00118  M00S00071.pansubs +++| MSG      SPACE  4,10

Line S00072 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00119  M01S00072.pansu2  ---|***       MSG - DAYFILE MESSAGE

Line S00047 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00120  M01S00047.pansu2  +++|***       MSG - DAYFILE MESSAGE.
00121  M00S00073.pansubs +++|*
00122  M00S00074.pansubs +++|*         R.K. FOSTER.       83/03/07.
00123  M00S00075.pansubs +++| MSG      SPACE  4,10
00124  M00S00076.pansubs +++|***       *MSG  * PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00125  M00S00077.pansubs +++|*         A DAYFILE MESSAGE.
00126  M00S00078.pansubs +++| MSG      SPACE  4,10

Line S00079 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00079.pansu2  ---|**        COMMON DECKS.
00128  M01S00080.pansu2  ---|
00129  M01S00081.pansu2  ---|
00130  M01S00082.pansu2  ---|*CALL     COMCMAC
00131  M01S00083.pansu2  ---| MSG      SPACE  4,10
00132  M01S00084.pansu2  ---|**        MSG - DAYFILE MESSAGE PRIOR TO TERMINATION

Line S00048 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00048.pansu2  +++|**        MSG - DAYFILE MESSAGE PRIOR TO TERMINATION.
00134  M00S00085.pansubs +++|*
00135  M00S00086.pansubs +++|*         CALLING SEQUENCE.
00136  M00S00087.pansubs +++|*
00137  M00S00088.pansubs +++|*         *FORTRAN5* CALL -
00138  M00S00089.pansubs +++|*
00139  M00S00090.pansubs +++|*         CALL MSG(M)
00140  M00S00091.pansubs +++|*

Line S00092 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00141  M01S00092.pansu2  ---|*                M = MESSAGE (MUST BE ON WORD BOUNDARY)

Line S00049 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00142  M01S00049.pansu2  +++|*                M = MESSAGE (MUST BE ON WORD BOUNDARY).
00143  M00S00093.pansubs +++|*
00144  M00S00094.pansubs +++|*         USES   B - 1.
00145  M00S00095.pansubs +++|*

Line S00096 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00146  M01S00096.pansu2  ---|*         CALLS  MESSAGE

Line S00050 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00147  M01S00050.pansu2  +++|*         MACROS MESSAGE.
00148  M00S00097.pansubs +++|
00149  M00S00098.pansubs +++|

Line S00099 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00099.pansu2  ---| MSG      PS     0           ENTRY/EXIT

Line S00051 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00151  M01S00051.pansu2  +++| MSG      SUBR               ENTRY/EXIT
00152  M00S00100.pansubs +++|          SB1    1
00153  M00S00101.pansubs +++|          SX1    X1
00154  M00S00102.pansubs +++|          MESSAGE X1,3,R

Line S00103 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00103.pansu2  ---|          EQ     MSG         RETURN
00156  M01S00104.pansu2  ---|
00157  M01S00105.pansu2  ---|          END

Line S00001 Modification History
`M01` (Added by)	`pansu1`
`M02` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00001.pansu2  ---|          IDENT  RFL
00159  M02S00002.pansu2  ---|          ENTRY  RFL=
00160  M02S00003.pansu2  ---|          TITLE  RFL - PROVIDE RFL= ENTRY POINT.
00161  M02S00004.pansu2  ---|*COMMENT  RFL - PROVIDE RFL= ENTRY POINT.
00162  M02S00005.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
00163  M02S00006.pansu2  ---| RFL      SPACE  4,10
00164  M02S00007.pansu2  ---|***       RFL - PROVIDE RFL= ENTRY POINT.
00165  M02S00008.pansu2  ---|*
00166  M02S00009.pansu2  ---|*         M. L. SWANSON.      85/01/31.
00167  M02S00010.pansu2  ---|          SPACE  4,10
00168  M02S00011.pansu2  ---|***       *RFL* PROVIDES AN RFL= ENTRY POINT TO SATISFY FIELD
00169  M02S00012.pansu2  ---|*         LENGTH REQUIREMENTS FOR THE LOADER.
00170  M02S00013.pansu2  ---|          SPACE  4,10
00171  M02S00014.pansu2  ---|
00172  M02S00015.pansu2  ---|          USE    //
00173  M02S00016.pansu2  ---| RFL=     BSS    0           ENTRY/EXIT
00174  M02S00017.pansu2  ---|          END

Line S00106 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00106.pansu2  ---|          IDENT  X612TA
00176  M01S00107.pansu2  ---|          ENTRY  X612TA
00177  M01S00108.pansu2  ---|          SYSCOM B1

Line S00052 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00178  M01S00052.pansu2  +++|          EQ     MSGX        RETURN
00179  M00S00109.pansubs +++|          TITLE  X612TA - TRANSLATE 6/12 TO ASCII.

Line S00110 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00180  M01S00110.pansu2  ---|*COMMENT  X612TA - TRANSLATE 6/12 TO ASCII.
00181  M01S00111.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
00182  M00S00112.pansubs +++| X612TA   SPACE  4,10
00183  M00S00113.pansubs +++|***       X612TA - TRANSLATE 6/12 TO ASCII.
00184  M00S00114.pansubs +++|*
00185  M00S00115.pansubs +++|*         R.K. FOSTER.       83/03/07.
00186  M00S00116.pansubs +++| X612TA   SPACE  4,10
00187  M00S00117.pansubs +++|***       *X612TA* PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00188  M00S00118.pansubs +++|*         TRANSLATING 6/12 TO ASCII.
00189  M00S00119.pansubs +++|*
00190  M00S00120.pansubs +++|*         CALLING SEQUENCE.
00191  M00S00121.pansubs +++|*
00192  M00S00122.pansubs +++|*         *FORTRAN5* CALL -
00193  M00S00123.pansubs +++|*
00194  M00S00124.pansubs +++|*         CALL X612TA(N)
00195  M00S00125.pansubs +++|*
00196  M00S00126.pansubs +++|*                N = ICHAR (CHARACTER TO TRANSLATE).
00197  M00S00127.pansubs +++|*                IF ICHAR PRECEDED BY UPARROW, N = N + Z"40".
00198  M00S00128.pansubs +++|*                IF ICHAR PRECEDED BY ATSIGN, N = N + Z"80".
00199  M00S00129.pansubs +++| X612TA   SPACE  4,10
00200  M00S00130.pansubs +++|**        X612TA - TRANSLATE 6/12 TO ASCII.
00201  M00S00131.pansubs +++|*
00202  M00S00132.pansubs +++|*         ENTRY  (A1) = FWA OF PARAMETER.
00203  M00S00133.pansubs +++|*                (X1) = ACTUAL PARAMETER.
00204  M00S00134.pansubs +++|*
00205  M00S00135.pansubs +++|*         EXIT   (X6) = TRANSLATED CHARACTER.
00206  M00S00136.pansubs +++|*
00207  M00S00137.pansubs +++|*         USES   X - 0, 1, 2, 6.
00208  M00S00138.pansubs +++|*                A - 1, 2.
00209  M00S00139.pansubs +++|*                B - 1, 2.
00210  M00S00140.pansubs +++|
00211  M00S00141.pansubs +++|

Line S00142 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00212  M01S00142.pansu2  ---| X612TA   PS     0           ENTRY/EXIT

Line S00053 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00213  M01S00053.pansu2  +++| X612TA   SUBR               ENTRY/EXIT
00214  M00S00143.pansubs +++|          SB1    1
00215  M00S00144.pansubs +++|          SA1    X1+         GET ARGUMENT
00216  M00S00145.pansubs +++|          SB2    X1          GET WORD FROM TABLE
00217  M00S00146.pansubs +++|          SA2    TVXD+B2
00218  M00S00147.pansubs +++|          MX0    -7          EXTRACT ASCII
00219  M00S00148.pansubs +++|          LX2    -18
00220  M00S00149.pansubs +++|          BX6    -X0*X2

Line S00150 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00150.pansu2  ---|          EQ     X612TA      RETURN
00222  M01S00151.pansu2  ---| X612TA   SPACE  4,10
00223  M01S00152.pansu2  ---|**        COMMON DECKS.

Line S00054 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00224  M01S00054.pansu2  +++|          EQ     X612TAX     RETURN
00225  M01S00055.pansu2  +++|          SPACE 4,10
00226  M00S00153.pansubs +++|

Line S00056 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00227  M01S00056.pansu2  +++|*         CHARACTER SET TRANSLATION TABLES.
00228  M00S00154.pansubs +++|
00229  M00S00155.pansubs +++|          LIST   X

Line S00156 Modification History
`M01` (Removed by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00230  M01S00156.pansu2  ---|*CALL,COMTVDT

Line S00057 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00231  M01S00057.pansu2  +++|*CALL     COMTVDT
00232  M00S00157.pansubs +++|          LIST   -X

Line S00058 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00233  M01S00058.pansu2  +++|          SPACE  4,10
00234  M00S00158.pansubs +++|

Line S00059 Modification History
`M01` (Added by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00235  M01S00059.pansu2  +++|          USE    //          FORCE RFL= TO FOLLOW BLANK COMMON
00236  M01S00060.pansu2  +++| RFL=     BSS    0
00237  M00S00159.pansubs +++|          END