Deck PANSUBS

3 Modifications

Source

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

Line S00001 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00001  M02S00001.pansu2  ---|          IDENT  CSETA
00002  M01S00001.pansu2  +++|          IDENT  PANSUBS
00003  M01S00002.pansu2  +++|
00004  M01S00003.pansu2  +++|          ENTRY  ABT
00005  M01S00002.pansubs +++|          ENTRY  CSETA
00006  M01S00004.pansu2  +++|          ENTRY  MSG
00007  M01S00005.pansu2  +++|          ENTRY  X612TA
00008  M01S00006.pansu2  +++|          ENTRY  RFL=
00009  M01S00003.pansubs +++|          SYSCOM B1
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` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
00013  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
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  M01S00004.pansubs +++|          TITLE  CSETA - SET CHARACTER SET TO ASCII.

Line S00005 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00005.pansu2  ---|*COMMENT  CSETA - SET CHARACTER SET TO ASCII.

Line S00006 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00006.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.

Line S00007 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00007.pansu2  ---| CSETA    SPACE  4,10
00038  M01S00008.pansubs +++|***       CSETA - SET CHARACTER SET TO ASCII.
00039  M01S00009.pansubs +++|*
00040  M01S00010.pansubs +++|*         R.K. FOSTER.       83/03/07.
00041  M01S00011.pansubs +++| CSETA    SPACE  4,10
00042  M01S00012.pansubs +++|***       *CSETA* PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00043  M01S00013.pansubs +++|*         SETTING THE CHARACTER SET OF THE TERMINAL TO ASCII.

Line S00014 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00014.pansu2  ---| CSETA    SPACE  4,10

Line S00015 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00015.pansu2  ---|**        COMMON DECKS.

Line S00016 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00016.pansu2  ---|

Line S00017 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00017.pansu2  ---|

Line S00018 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00018.pansu2  ---|*CALL     COMCMAC
00049  M01S00030.pansu2  +++|*         IT ALSO ALTERS *TVXD* IN *COMTVDT* IF USING 63-CHARACTER SET.
00050  M01S00019.pansubs +++| CSETA    SPACE  4,10
00051  M01S00020.pansubs +++|**        CSETA - SET CHARACTER SET TO ASCII.
00052  M01S00021.pansubs +++|*

Line S00022 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

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

Line S00024 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00024.pansu2  ---|*         CALLS  CSET.
00059  M01S00034.pansu2  +++|*         MACROS CSET.
00060  M01S00025.pansubs +++|
00061  M01S00026.pansubs +++|

Line S00027 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00027.pansu2  ---| CSETA    PS     0           ENTRY/EXIT
00063  M01S00035.pansu2  +++| CSETA    SUBR               ENTRY/EXIT
00064  M01S00028.pansubs +++|          SB1    1
00065  M01S00029.pansubs +++|          CSET   ASCII       SET CHARACTER SET TO ASCII

Line S00030 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00030.pansu2  ---|          EQ     CSETA       RETURN

Line S00031 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00031.pansu2  ---|

Line S00032 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00032.pansu2  ---|          END

Line S00033 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00033.pansu2  ---|          IDENT  ABT

Line S00034 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00034.pansu2  ---|          ENTRY  ABT

Line S00035 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00035.pansu2  ---|          SYSCOM B1

Line S00036 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00036.pansu2  ---|          TITLE  ABT - ABNORMALLY TERMINATE THE JOB

Line S00037 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00037.pansu2  ---|*COMMENT  ABT - ABNORMALLY TERMINATE THE JOB

Line S00038 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00038.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.

Line S00039 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00039.pansu2  ---| ABT      SPACE  4,10

Line S00040 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00040.pansu2  ---|***       ABT - ABNORMALLY TERMINATE THE JOB

Line S00041 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00041.pansu2  ---|*

Line S00042 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00042.pansu2  ---|*         R.K. FOSTER.       83/03/07.

Line S00043 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00043.pansu2  ---| ABT      SPACE  4,10

Line S00044 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00044.pansu2  ---|***       *ABT* PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR

Line S00045 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00045.pansu2  ---|*         ABNORMALLY TERMINATING THE JOB.

Line S00046 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00046.pansu2  ---| ABT      SPACE  4,10

Line S00047 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00047.pansu2  ---|**        COMMON DECKS.

Line S00048 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00048.pansu2  ---|

Line S00049 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00049.pansu2  ---|

Line S00050 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00050.pansu2  ---|*CALL     COMCMAC

Line S00051 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00051.pansu2  ---| ABT      SPACE  4,10

Line S00052 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00052.pansu2  ---|**        ABT - ABNORMALLY TERMINATE THE JOB.

Line S00053 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00053.pansu2  ---|*

Line S00054 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00054.pansu2  ---|*         USES   B - 1.

Line S00055 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00055.pansu2  ---|*

Line S00056 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00056.pansu2  ---|*         CALLS  ABORT

Line S00057 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00057.pansu2  ---|

Line S00058 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00058.pansu2  ---|

Line S00059 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00059.pansu2  ---| ABT      PS     0           ENTRY/EXIT

Line S00060 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00060.pansu2  ---|          SB1    1

Line S00061 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00061.pansu2  ---|          ABORT              DUMP THE JOB

Line S00062 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00062.pansu2  ---|          EQ     ABT         RETURN

Line S00063 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00063.pansu2  ---|

Line S00064 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00064.pansu2  ---|          END

Line S00065 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00065.pansu2  ---|          IDENT  MSG

Line S00066 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00066.pansu2  ---|          ENTRY  MSG

Line S00067 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00067.pansu2  ---|          SYSCOM B1
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  M01S00068.pansubs +++|          TITLE  MSG - TERMINATION MESSAGE

Line S00069 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00069.pansu2  ---|*COMMENT  MSG - TERMINATION MESSAGE

Line S00070 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00070.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
00118  M01S00071.pansubs +++| MSG      SPACE  4,10

Line S00072 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00119  M02S00072.pansu2  ---|***       MSG - DAYFILE MESSAGE
00120  M01S00047.pansu2  +++|***       MSG - DAYFILE MESSAGE.
00121  M01S00073.pansubs +++|*
00122  M01S00074.pansubs +++|*         R.K. FOSTER.       83/03/07.
00123  M01S00075.pansubs +++| MSG      SPACE  4,10
00124  M01S00076.pansubs +++|***       *MSG  * PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00125  M01S00077.pansubs +++|*         A DAYFILE MESSAGE.
00126  M01S00078.pansubs +++| MSG      SPACE  4,10

Line S00079 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00079.pansu2  ---|**        COMMON DECKS.

Line S00080 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00080.pansu2  ---|

Line S00081 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00081.pansu2  ---|

Line S00082 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00082.pansu2  ---|*CALL     COMCMAC

Line S00083 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00083.pansu2  ---| MSG      SPACE  4,10

Line S00084 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00084.pansu2  ---|**        MSG - DAYFILE MESSAGE PRIOR TO TERMINATION
00133  M01S00048.pansu2  +++|**        MSG - DAYFILE MESSAGE PRIOR TO TERMINATION.
00134  M01S00085.pansubs +++|*
00135  M01S00086.pansubs +++|*         CALLING SEQUENCE.
00136  M01S00087.pansubs +++|*
00137  M01S00088.pansubs +++|*         *FORTRAN5* CALL -
00138  M01S00089.pansubs +++|*
00139  M01S00090.pansubs +++|*         CALL MSG(M)
00140  M01S00091.pansubs +++|*

Line S00092 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00092.pansu2  ---|*                M = MESSAGE (MUST BE ON WORD BOUNDARY)
00142  M01S00049.pansu2  +++|*                M = MESSAGE (MUST BE ON WORD BOUNDARY).
00143  M01S00093.pansubs +++|*
00144  M01S00094.pansubs +++|*         USES   B - 1.
00145  M01S00095.pansubs +++|*

Line S00096 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00096.pansu2  ---|*         CALLS  MESSAGE
00147  M01S00050.pansu2  +++|*         MACROS MESSAGE.
00148  M01S00097.pansubs +++|
00149  M01S00098.pansubs +++|

Line S00099 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00099.pansu2  ---| MSG      PS     0           ENTRY/EXIT
00151  M01S00051.pansu2  +++| MSG      SUBR               ENTRY/EXIT
00152  M01S00100.pansubs +++|          SB1    1
00153  M01S00101.pansubs +++|          SX1    X1
00154  M01S00102.pansubs +++|          MESSAGE X1,3,R

Line S00103 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00103.pansu2  ---|          EQ     MSG         RETURN

Line S00104 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00104.pansu2  ---|

Line S00105 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00105.pansu2  ---|          END

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

Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00001.pansu2  ---|          IDENT  RFL

Line S00002 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00002.pansu2  ---|          ENTRY  RFL=

Line S00003 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00160  M02S00003.pansu2  ---|          TITLE  RFL - PROVIDE RFL= ENTRY POINT.

Line S00004 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00004.pansu2  ---|*COMMENT  RFL - PROVIDE RFL= ENTRY POINT.

Line S00005 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00005.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.

Line S00006 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00006.pansu2  ---| RFL      SPACE  4,10

Line S00007 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00007.pansu2  ---|***       RFL - PROVIDE RFL= ENTRY POINT.

Line S00008 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00008.pansu2  ---|*

Line S00009 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00009.pansu2  ---|*         M. L. SWANSON.      85/01/31.

Line S00010 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00010.pansu2  ---|          SPACE  4,10

Line S00011 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00011.pansu2  ---|***       *RFL* PROVIDES AN RFL= ENTRY POINT TO SATISFY FIELD

Line S00012 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00012.pansu2  ---|*         LENGTH REQUIREMENTS FOR THE LOADER.

Line S00013 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00013.pansu2  ---|          SPACE  4,10

Line S00014 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00014.pansu2  ---|

Line S00015 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00015.pansu2  ---|          USE    //

Line S00016 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00016.pansu2  ---| RFL=     BSS    0           ENTRY/EXIT

Line S00017 Modification History
`M01` (Added by)	`pansu1`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00017.pansu2  ---|          END

Line S00106 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00106.pansu2  ---|          IDENT  X612TA

Line S00107 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00107.pansu2  ---|          ENTRY  X612TA

Line S00108 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

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

Line S00110 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00110.pansu2  ---|*COMMENT  X612TA - TRANSLATE 6/12 TO ASCII.

Line S00111 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00111.pansu2  ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
00182  M01S00112.pansubs +++| X612TA   SPACE  4,10
00183  M01S00113.pansubs +++|***       X612TA - TRANSLATE 6/12 TO ASCII.
00184  M01S00114.pansubs +++|*
00185  M01S00115.pansubs +++|*         R.K. FOSTER.       83/03/07.
00186  M01S00116.pansubs +++| X612TA   SPACE  4,10
00187  M01S00117.pansubs +++|***       *X612TA* PROVIDES AN INTERFACE TO *SMF* ROUTINES FOR
00188  M01S00118.pansubs +++|*         TRANSLATING 6/12 TO ASCII.
00189  M01S00119.pansubs +++|*
00190  M01S00120.pansubs +++|*         CALLING SEQUENCE.
00191  M01S00121.pansubs +++|*
00192  M01S00122.pansubs +++|*         *FORTRAN5* CALL -
00193  M01S00123.pansubs +++|*
00194  M01S00124.pansubs +++|*         CALL X612TA(N)
00195  M01S00125.pansubs +++|*
00196  M01S00126.pansubs +++|*                N = ICHAR (CHARACTER TO TRANSLATE).
00197  M01S00127.pansubs +++|*                IF ICHAR PRECEDED BY UPARROW, N = N + Z"40".
00198  M01S00128.pansubs +++|*                IF ICHAR PRECEDED BY ATSIGN, N = N + Z"80".
00199  M01S00129.pansubs +++| X612TA   SPACE  4,10
00200  M01S00130.pansubs +++|**        X612TA - TRANSLATE 6/12 TO ASCII.
00201  M01S00131.pansubs +++|*
00202  M01S00132.pansubs +++|*         ENTRY  (A1) = FWA OF PARAMETER.
00203  M01S00133.pansubs +++|*                (X1) = ACTUAL PARAMETER.
00204  M01S00134.pansubs +++|*
00205  M01S00135.pansubs +++|*         EXIT   (X6) = TRANSLATED CHARACTER.
00206  M01S00136.pansubs +++|*
00207  M01S00137.pansubs +++|*         USES   X - 0, 1, 2, 6.
00208  M01S00138.pansubs +++|*                A - 1, 2.
00209  M01S00139.pansubs +++|*                B - 1, 2.
00210  M01S00140.pansubs +++|
00211  M01S00141.pansubs +++|

Line S00142 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00142.pansu2  ---| X612TA   PS     0           ENTRY/EXIT
00213  M01S00053.pansu2  +++| X612TA   SUBR               ENTRY/EXIT
00214  M01S00143.pansubs +++|          SB1    1
00215  M01S00144.pansubs +++|          SA1    X1+         GET ARGUMENT
00216  M01S00145.pansubs +++|          SB2    X1          GET WORD FROM TABLE
00217  M01S00146.pansubs +++|          SA2    TVXD+B2
00218  M01S00147.pansubs +++|          MX0    -7          EXTRACT ASCII
00219  M01S00148.pansubs +++|          LX2    -18
00220  M01S00149.pansubs +++|          BX6    -X0*X2

Line S00150 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00150.pansu2  ---|          EQ     X612TA      RETURN

Line S00151 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00151.pansu2  ---| X612TA   SPACE  4,10

Line S00152 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00223  M02S00152.pansu2  ---|**        COMMON DECKS.
00224  M01S00054.pansu2  +++|          EQ     X612TAX     RETURN
00225  M01S00055.pansu2  +++|          SPACE 4,10
00226  M01S00153.pansubs +++|
00227  M01S00056.pansu2  +++|*         CHARACTER SET TRANSLATION TABLES.
00228  M01S00154.pansubs +++|
00229  M01S00155.pansubs +++|          LIST   X

Line S00156 Modification History
`M01` (Added by)	`pansubs`
`M02` (Updated by)	`pansu2`

Seq #  *Modification Id* Act 
----------------------------+
00230  M02S00156.pansu2  ---|*CALL,COMTVDT
00231  M01S00057.pansu2  +++|*CALL     COMTVDT
00232  M01S00157.pansubs +++|          LIST   -X
00233  M01S00058.pansu2  +++|          SPACE  4,10
00234  M01S00158.pansubs +++|
00235  M01S00059.pansu2  +++|          USE    //          FORCE RFL= TO FOLLOW BLANK COMMON
00236  M01S00060.pansu2  +++| RFL=     BSS    0
00237  M01S00159.pansubs +++|          END