cdc:nos2.source:opl.opl871:deck:pansubs
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
cdc/nos2.source/opl.opl871/deck/pansubs.txt ยท Last modified: by 127.0.0.1