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