Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.trmdef +++| IDENT TRMDEF,FETS
| Line S00002 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00002 M01S00002.trmd16 ---| SST
00003 M01S00003.trmd16 ---| ABS
| Line S00001 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00004 M01S00001.trmd16 +++| ABS
00005 M01S00002.trmd16 +++| SST
00006 M00S00004.trmdef +++| ENTRY TRMDEF
00007 M01S00003.trmd16 +++| ENTRY ARG=
00008 M00S00005.trmdef +++| ENTRY RFL=
00009 M00S00006.trmdef +++| SYSCOM B1
00010 M00S00007.trmdef +++| BASE DECIMAL
00011 M00S00008.trmdef +++|*COMMENT TRMDEF - DEFINE TERMINAL CHARACTERISTICS.
| Line S00009 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00012 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00014 M00S00010.trmdef +++|
00015 M00S00011.trmdef +++| TRMDEF TITLE TRMDEF - DEFINE TERMINAL CHARACTERISTICS.
00016 M00S00012.trmdef +++| SPACE 4,10
00017 M00S00013.trmdef +++|***** TRMDEF - DEFINE TERMINAL CHARACTERISTICS.
00018 M00S00014.trmdef +++|*
00019 M00S00015.trmdef +++|* B. M. SLIWINSKI. 79/02/22.
00020 M00S00016.trmdef +++|* J. P. LITTLE. 85/07/12.
00021 M00S00017.trmdef +++|*
00022 M00S00018.trmdef +++|* *TRMDEF* MAKES IT POSSIBLE FOR INTERACTIVE USERS TO CHANGE
00023 M00S00019.trmdef +++|* THE CHARACTERISTICS OF THEIR CONNECTED TERMINAL THROUGH THE
00024 M00S00020.trmdef +++|* USE OF THE *TRMDEF* COMMAND.
00025 M00S00021.trmdef +++| SPACE 4,10
00026 M00S00022.trmdef +++|*** *TRMDEF* ACCEPTS AS INPUT A SINGLE COMMAND.
00027 M00S00023.trmdef +++|* VALIDATION OF THE SPECIFIED PARAMETERS FOR CORRECT TYPE,
00028 M00S00024.trmdef +++|* RANGE, AND TERMINAL TYPE IS DONE IN THE ORDER THEY APPEAR
00029 M00S00025.trmdef +++|* ON THE COMMAND. THE CONNECTED TERMINAL TYPE IS USED
00030 M00S00026.trmdef +++|* FOR VALIDATIONS OF OTHER PARAMETERS UNTIL A CHANGE OF
00031 M00S00027.trmdef +++|* TERMINAL CLASS (*TC*) IS ENCOUNTERED. IF THIS CHANGE IS
00032 M00S00028.trmdef +++|* LEGAL, THEN SUBSEQUENT PARAMETERS WILL USE THIS TERMINAL
00033 M00S00029.trmdef +++|* CLASS FOR VALIDATION.
00034 M00S00030.trmdef +++|*
00035 M00S00031.trmdef +++|* IF ALL CHANGES ARE LEGAL, A CONTROL BYTE PARAMETER STRING
00036 M00S00032.trmdef +++|* IS BUILT. THERE ARE TWO TYPES OF CONTROL BYTE STRINGS THAT
00037 M00S00033.trmdef +++|* ARE BUILT, 0010B AND 0016B, DEPENDING ON THE TYPE OF NETWORK
00038 M00S00034.trmdef +++|* THAT THE TERMINAL IS CONNECTED TO. IF THE NETWORK CONNECTION
00039 M00S00035.trmdef +++|* IS OF TYPE NAM/CDNA, THEN CONTROL BYTE 0010B IS BUILT (UNLESS
00040 M00S00036.trmdef +++|* ALL THE PARAMETERS ENTERED ARE CCP TERMINAL DEFINITIONS).
00041 M00S00037.trmdef +++|* IF THE NETWORK CONNECTION IS OF TYPE NAM/CCP, THEN CONTROL
| Line S00038 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00042 M01S00038.trmd16 ---|* BYTE 0010B IS BUILT. IF CONTROL BYTE 0016B IS BUILT, IT HAS
| Line S00004 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00043 M01S00004.trmd16 +++|* BYTE 0016 IS BUILT. IF CONTROL BYTE 0016 IS BUILT, IT HAS
00044 M00S00039.trmdef +++|* THE FOLLOWING FORM:
00045 M00S00040.trmdef +++|*
00046 M00S00041.trmdef +++|* 12/CB,12/FN,12/FV,...,12/FN,12/FV,EOL
00047 M00S00042.trmdef +++|* CB = CONTROL BYTE 0016B.
00048 M00S00043.trmdef +++|* FN = 4000B + FIELD NUMBER.
00049 M00S00044.trmdef +++|* FV = 4000B + FIELD VALUE.
00050 M00S00045.trmdef +++|*
00051 M00S00046.trmdef +++|* IF CONTROL BYTE 0010B IS BUILT, IT HAS THE FOLLOWING FORM
00052 M00S00047.trmdef +++|*
00053 M00S00048.trmdef +++|* 12/CB,12/AN,12/OC(N),12/AV(0),...,12/AV(N),12/AN,12/AV,EOL
00054 M00S00049.trmdef +++|* CB = CONTROL BYTE 0010B.
00055 M00S00050.trmdef +++|* AN = 4000B + ATTRIBUTE NUMBER.
00056 M00S00051.trmdef +++|* OC(N) = OCTET COUNTER.
00057 M00S00052.trmdef +++|* AV(0) = 4000B + ATTRIBUTE VALUE(0).
00058 M00S00053.trmdef +++|* AV(N) = 4000B + ATTRIBUTE VALUE(N).
00059 M00S00054.trmdef +++|*
00060 M00S00055.trmdef +++|* THIS STRING IS WRITTEN TO *OUTPUT* OR THE FILE SPECIFIED
00061 M00S00056.trmdef +++|* ON THE COMMAND.
00062 M00S00057.trmdef +++| SPACE 4,10
00063 M00S00058.trmdef +++|*** COMMAND CALL.
00064 M00S00059.trmdef +++|*
00065 M00S00060.trmdef +++|* TRMDEF,XX=VALUE,...,XX=VALUE,L=FN.
00066 M00S00061.trmdef +++|* OR
00067 M00S00062.trmdef +++|* TRMDEF,XX=VALUE/VALUE/...,XX=VALUE,L=FN.
00068 M00S00063.trmdef +++|*
00069 M00S00064.trmdef +++|* XX = ONE - THREE CHARACTER MNEMONIC FOR THE
00070 M00S00065.trmdef +++|* TERMINAL DEFINITION PARAMETER.
00071 M00S00066.trmdef +++|* VALUE = LEGAL VALUE FOR A GIVEN TERMINAL DEFINITION
00072 M00S00067.trmdef +++|* PARAMETER. SOME PARAMETERS MAY HAVE MULTIPLE
00073 M00S00068.trmdef +++|* VALUES WITH THE FORMAT: XX=VALUE/VALUE...
00074 M00S00069.trmdef +++|* L = OUTPUT FILE.
00075 M00S00070.trmdef +++|* IF FN IS SPECIFIED, WRITE OUTPUT TO FILE *FN*.
00076 M00S00071.trmdef +++|* THE DEFAULT IS *OUTPUT*.
00077 M00S00072.trmdef +++|*
00078 M00S00073.trmdef +++|*
00079 M00S00074.trmdef +++|* THE POSSIBLE MNEMONICS FOR *XX* ARE AS FOLLOWS.
00080 M00S00075.trmdef +++|*
00081 M00S00076.trmdef +++|* XX DESCRIPTION
00082 M00S00077.trmdef +++|* -- -----------
00083 M00S00078.trmdef +++|* AB ABORT BLOCK
00084 M00S00079.trmdef +++|* BR BREAK KEY
00085 M00S00080.trmdef +++|* BS BACKSPACE CHARACTER
00086 M00S00081.trmdef +++|* B1 USER BREAK 1 (INTERRUPTION CHARACTER)
00087 M00S00082.trmdef +++|* B2 USER BREAK 2 (TERMINATION CHARACTER)
00088 M00S00083.trmdef +++|* CI CARRIAGE RETURN IDLE COUNT
00089 M00S00084.trmdef +++|* CN CANCEL CHARACTER
00090 M00S00085.trmdef +++|* CP CURSOR POSITIONING
00091 M00S00086.trmdef +++|* CT CONTROL CHARACTER
00092 M00S00087.trmdef +++|* DL SINGLE MESSAGE TRANSPARENT
00093 M00S00088.trmdef +++|* EB END OF BLOCK
00094 M00S00089.trmdef +++|* EL END OF LINE
00095 M00S00090.trmdef +++|* EP ECHOPLEX MODE
00096 M00S00091.trmdef +++|* FA FULL ASCII
00097 M00S00092.trmdef +++|* HD HOST AVAILABILITY DISPLAY
00098 M00S00093.trmdef +++|* IC INPUT FLOW CONTROL
00099 M00S00094.trmdef +++|* IN INPUT DEVICE
00100 M00S00095.trmdef +++|* LI LINE FEED IDLE COUNT
00101 M00S00096.trmdef +++|* LK LOCK OUT CONTROL
00102 M00S00097.trmdef +++|* OC OUTPUT FLOW CONTROL
00103 M00S00098.trmdef +++|* OP OUTPUT DEVICE
00104 M00S00099.trmdef +++|* PA PARITY
00105 M00S00100.trmdef +++|* PG PAGE WAIT
00106 M00S00101.trmdef +++|* PL PAGE LENGTH
00107 M00S00102.trmdef +++|* PW PAGE WIDTH
00108 M00S00103.trmdef +++|* SE SPECIAL EDITING MODE
00109 M00S00104.trmdef +++|* TC TERMINAL CLASS
00110 M00S00105.trmdef +++|* XL MULTI MESSAGE
00111 M00S00106.trmdef +++|*
00112 M00S00107.trmdef +++|* CDCNET TERMINAL DEFINITIONS.
00113 M00S00108.trmdef +++|*
00114 M00S00109.trmdef +++|* AC ATTENTION CHARACTER
00115 M00S00110.trmdef +++|* ACA ATTENTION CHARACTER ACTION
00116 M00S00111.trmdef +++|* BC BACKSPACE CHARACTER
00117 M00S00112.trmdef +++|* BKA BREAK KEY ACTION
00118 M00S00113.trmdef +++|* BLC BEGIN LINE CHARACTER
00119 M00S00114.trmdef +++|* CFC CHARACTER FLOW CONTROL
00120 M00S00115.trmdef +++|* CLC CANCEL LINE CHARACTER
00121 M00S00116.trmdef +++|* CRD CARRIAGE RETURN DELAY
00122 M00S00117.trmdef +++|* CRS CARRIAGE RETURN SEQUENCE
00123 M00S00118.trmdef +++|* CS CODE SET
00124 M00S00119.trmdef +++|* E ECHOPLEX
00125 M00S00120.trmdef +++|* ELC END LINE CHARACTER
00126 M00S00121.trmdef +++|* ELP END LINE POSITIONING
00127 M00S00122.trmdef +++|* EOS END OUTPUT SEQUENCE
00128 M00S00123.trmdef +++|* EPA END PAGE ACTION
00129 M00S00124.trmdef +++|* EPC END PARTIAL CHARACTER
00130 M00S00125.trmdef +++|* EPP END PARTIAL POSITION
00131 M00S00126.trmdef +++|* FFD FORM FEED DELAY
00132 M00S00127.trmdef +++|* FFS FORM FEED SEQUENCE
00133 M00S00128.trmdef +++|* FL FOLD LINE
00134 M00S00129.trmdef +++|* HP HOLD PAGE
00135 M00S00130.trmdef +++|* HPO HOLD PAGE OVER
00136 M00S00131.trmdef +++|* IBS INPUT BLOCK SIZE
00137 M00S00132.trmdef +++|* IEM INPUT EDITING MODE
00138 M00S00133.trmdef +++|* IOM INPUT OUTPUT MODE
00139 M00S00134.trmdef +++|* LFD LINE FEED DELAY
00140 M00S00135.trmdef +++|* LFS LINE FEED SEQUENCE
00141 M00S00136.trmdef +++|* NCC NETWORK CONTROL CHARACTER
00142 M00S00137.trmdef +++|* P PARITY TYPE
00143 M00S00138.trmdef +++|* PCF PARTIAL CHARACTER FORWARDING
00144 M00S00139.trmdef +++|* PL PAGE LENGTH
00145 M00S00140.trmdef +++|* PW PAGE WIDTH
| Line S00001 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00146 M01S00001.252l678 +++|* RA RESPONSE ACTION
00147 M00S00141.trmdef +++|* SA STATUS ACTION
00148 M00S00142.trmdef +++|* SBC STORE BACKSPACE CHARACTER
00149 M00S00143.trmdef +++|* SND STORE NULS DELS
00150 M00S00144.trmdef +++|* TCM TRANSPARENT CHARACTER MODE
00151 M00S00145.trmdef +++|* TFC TRANSPARENT FORWARD CHARACTER
00152 M00S00146.trmdef +++|* TLM TRANSPARENT LENGTH MODE
00153 M00S00147.trmdef +++|* TM TERMINAL MODEL
00154 M00S00148.trmdef +++|* TML TRANSPARENT MESSAGE LENGTH
00155 M00S00149.trmdef +++|* TTC TRANSPARENT TERMINATE CHARACTER
00156 M00S00150.trmdef +++|* TTM TRANSPARENT TIMEOUT MODE
00157 M00S00151.trmdef +++|*
00158 M00S00152.trmdef +++|* UNSUPPORTED STANDARD TERMINAL DEFINITIONS.
00159 M00S00153.trmdef +++|*
00160 M00S00154.trmdef +++|* AR AUTOMATIC CHARACTER RECOGNITION
00161 M00S00155.trmdef +++|* BF BLOCKING FACTOR - 0, 1, 2
00162 M00S00156.trmdef +++|* CH DISPLAY TERMINAL CHARACTERISTICS
00163 M00S00157.trmdef +++|* HN HOST NODE SELECTION - NUMBER
00164 M00S00158.trmdef +++|* HS HOST SELECTION - NAME
00165 M00S00159.trmdef +++|* MS MESSAGE TO NETWORK OPERATOR - MESSAGETEXT
00166 M00S00160.trmdef +++|* TM TERMINATE TERMINAL - HOST CONNECTION
00167 M00S00161.trmdef +++|*
00168 M00S00162.trmdef +++|*
00169 M00S00163.trmdef +++|* VALUES CAN BE SPECIFIED IN THE FOLLOWING WAYS.
00170 M00S00164.trmdef +++|*
00171 M00S00165.trmdef +++|* FORM DESCRIPTION
00172 M00S00166.trmdef +++|* ---- -----------
00173 M00S00167.trmdef +++|* NN DECIMAL VALUE
00174 M00S00168.trmdef +++|* Y ALPHANUMERIC CHARACTER WITH DISPLAY CODE LESS THAN 45B
00175 M00S00169.trmdef +++|* $Y$ ANY ALPHANUMERIC CHARACTER
00176 M00S00170.trmdef +++|* IIIB OCTAL VALUE OF AN *ASCII* CHARACTER
00177 M00S00171.trmdef +++|* XHH HEXADECIMAL VALUE OF AN *ASCII* CHARACTER
00178 M00S00172.trmdef +++|* T ALPHANUMERIC DISPLAY CODE CHARACTER OR DECIMAL VALUE
00179 M00S00173.trmdef +++| SPACE 4,10
00180 M00S00174.trmdef +++|*** DAYFILE MESSAGES.
00181 M00S00175.trmdef +++|*
00182 M00S00176.trmdef +++|* * ATTRIBUTE COMMANDS MUST BE OF ONE NETWORK TYPE.*
00183 M00S00177.trmdef +++|* ATTRIBUTES UNIQUE TO BOTH NAM/CCP AND NAM/CDNA
00184 M00S00178.trmdef +++|* WERE ENTERED ON ONE *TRMDEF* REQUEST.
00185 M00S00179.trmdef +++|*
00186 M00S00180.trmdef +++|* * ERROR IN TRMDEF ARGUMENT.*
00187 M00S00181.trmdef +++|* THE COMMAND CONTAINED INCORRECT SYNTAX OR AN
00188 M00S00182.trmdef +++|* UNKNOWN PARAMETER.
00189 M00S00183.trmdef +++|*
00190 M00S00184.trmdef +++|* * INCORRECT JOB ORIGIN TYPE FOR TRMDEF.*
00191 M00S00185.trmdef +++|* THE JOB ORIGIN TYPE OF THE JOB REQUESTING *TRMDEF*
00192 M00S00186.trmdef +++|* WAS NOT TIME-SHARING.
00193 M00S00187.trmdef +++|*
00194 M00S00188.trmdef +++|* * INCORRECT TERMINAL TYPE FOR TRMDEF.*
00195 M00S00189.trmdef +++|* THE *TRMDEF* REQUEST CAME FROM A TERMINAL WHICH WAS
00196 M00S00190.trmdef +++|* NOT A NETWORK TERMINAL.
00197 M00S00191.trmdef +++|*
| Line S00001 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00198 M01S00001.251l664 +++|* * LITERAL STRING IS NOT ALLOWED FOR THIS PARAMETER.*
00199 M01S00002.251l664 +++|* LITERAL STRING PROCESSING HAS BEEN DISABLED FOR
00200 M01S00003.251l664 +++|* THE CDCNET PARAMETERS CRS, EOS, FFS, LFS, TFC, AND
00201 M01S00004.251l664 +++|* TTC.
00202 M01S00005.251l664 +++|*
00203 M00S00192.trmdef +++|* * NETWORK TYPE DOES NOT SUPPORT ATTRIBUTE COMMAND.*
00204 M00S00193.trmdef +++|* THE *TRMDEF* REQUEST CAME FROM A TERMINAL THAT WAS
00205 M00S00194.trmdef +++|* OF A DIFFERENT NETWORK TYPE THAN THE PARAMETERS
00206 M00S00195.trmdef +++|* ENTERED.
00207 M00S00196.trmdef +++|*
00208 M00S00197.trmdef +++|* * TRMDEF COMPLETE.*
00209 M00S00198.trmdef +++|* INDICATES COMMAND PROCESSED WITH NO ERRORS.
00210 M00S00199.trmdef +++|* OUTPUT WRITTEN TO FILE AS DETERMINED BY *L* PARAMETER.
00211 M00S00200.trmdef +++|*
00212 M00S00201.trmdef +++|* * TRMDEF ERRORS.*
00213 M00S00202.trmdef +++|* AN INCORRECT VALUE WAS ENTERED FOR ONE OR MORE
00214 M00S00203.trmdef +++|* PARAMETERS. ADDITIONAL ERROR MESSAGES ARE WRITTEN
00215 M00S00204.trmdef +++|* TO THE FILE SPECIFIED BY THE *L* PARAMETER.
| Line S00005 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00216 M01S00005.trmd16 +++| TITLE MACRO DEFINITIONS.
00217 M01S00006.trmd16 +++|** VSS - SET UP FIELD VALUE, WORD COUNT, AND EQUIVALENCE
00218 M01S00007.trmd16 +++|* CODE FOR ABBREVIATED AND FULL ATTRIBUTE VALUES.
00219 M01S00008.trmd16 +++|*
00220 M01S00009.trmd16 +++|* VSS STRINGA,STRINGB,S
00221 M01S00010.trmd16 +++|*
00222 M01S00011.trmd16 +++|* ENTRY *STRINGA* = ABBREVIATED CHARACTER STRING.
00223 M01S00012.trmd16 +++|* *STRINGB* = FULL CHARACTER STRING.
00224 M01S00013.trmd16 +++|* *S* = FIELD VALUE FLAG.
00225 M01S00014.trmd16 +++|
00226 M01S00015.trmd16 +++|
00227 M01S00016.trmd16 +++| PURGMAC VSS
00228 M01S00017.trmd16 +++| VSS MACRO STRINGA,STRINGB,S
00229 M01S00018.trmd16 +++| V1 MICRO 1,10,*STRINGA*
00230 M01S00019.trmd16 +++| V2 MICRO 1,10,*STRINGB*
00231 M01S00020.trmd16 +++| V3 MICRO 11,10,*STRINGB*
00232 M01S00021.trmd16 +++| LEN SET 1
00233 M01S00022.trmd16 +++| .A IFC NE,*"V3"**
00234 M01S00023.trmd16 +++| LEN SET 2
00235 M01S00024.trmd16 +++| .A ENDIF
00236 M01S00025.trmd16 +++| .B IFC NE,*S**
00237 M01S00026.trmd16 +++| VAL SET 0
00238 M01S00027.trmd16 +++| .B ELSE
00239 M01S00028.trmd16 +++| VAL SET VAL+1
00240 M01S00029.trmd16 +++| .B ENDIF
00241 M01S00030.trmd16 +++| VFD 24/0,18/VAL+4000B,18/1
00242 M01S00031.trmd16 +++| VFD 60/0L"V1"
00243 M01S00032.trmd16 +++| .C IFC EQ,*"V2"**
00244 M01S00033.trmd16 +++| VFD 24/0,18/VAL+4000B,18/2
00245 M01S00034.trmd16 +++| .C ELSE
00246 M01S00035.trmd16 +++| VFD 24/0,18/VAL+4000B,18/LEN
00247 M01S00036.trmd16 +++| VFD 60/0L"V2"
00248 M01S00037.trmd16 +++| .D IFC NE,*"V3"**
00249 M01S00038.trmd16 +++| VFD 60/0L"V3"
00250 M01S00039.trmd16 +++| .D ENDIF
00251 M01S00040.trmd16 +++| .C ENDIF
00252 M01S00041.trmd16 +++| ENDM
00253 M01S00042.trmd16 +++| TITLE ASSEMBLY CONSTANTS AND FETS.
00254 M00S00205.trmdef +++| SPACE 4,10
00255 M00S00206.trmdef +++|**** ASSEMBLY CONSTANTS.
00256 M00S00207.trmdef +++|
00257 M00S00208.trmdef +++|
00258 M00S00209.trmdef +++| CBUFL EQU 40 PARAMETER STRING BUFFER LENGTH - CCP
00259 M00S00210.trmdef +++| DBUFL EQU 40 PARAMETER STRING BUFFER LENGTH - CDNA
| Line S00211 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00260 M01S00211.trmd16 ---| OBUFL EQU 60 OUTPUT BUFFER LENGTH
00261 M01S00212.trmd16 ---| TTPVL EQU 25D PARAMETER VALUE TABLE LENGTH
00262 M01S00213.trmd16 ---|
| Line S00043 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00263 M01S00043.trmd16 +++| OBUFL EQU 120 OUTPUT BUFFER LENGTH
00264 M01S00044.trmd16 +++| TTPVL EQU 50D PARAMETER VALUE TABLE LENGTH
00265 M00S00214.trmdef +++| LTCN EQU 18D LARGEST TERMINAL CLASS + 1
| Line S00215 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00266 M01S00215.trmd16 ---|
00267 M00S00216.trmdef ---| TCNT EQU 3 TRANSMISSION CODE FOR NETWORK TERMINAL
00268 M00S00217.trmdef ---| TTFN EQU 0 INDEX INTO TFLD TABLE--FIRST WORD
00269 M00S00218.trmdef ---| TFVR EQU 1 INDEX INTO TFLD TABLE--SECOND WORD
00270 M00S00219.trmdef ---| TFLG EQU 2 LENGTH OF TABLE ENTRY
00271 M00S00220.trmdef ---|
00272 M00S00221.trmdef ---|* TERMINAL DEFINITION FIELD NUMBERS.
00273 M00S00222.trmdef ---|
00274 M00S00223.trmdef ---|* CONTROL BYTE 0016B FIELD NUMBERS
00275 M00S00224.trmdef ---|
00276 M00S00225.trmdef ---| ABFN EQU 4051B *AB*
00277 M00S00226.trmdef ---| BRFN EQU 4063B *BR*
00278 M00S00227.trmdef ---| BSFN EQU 4047B *BS*
00279 M00S00228.trmdef ---| B1FN EQU 4052B *B1*
00280 M00S00229.trmdef ---| B2FN EQU 4053B *B2*
00281 M00S00230.trmdef ---| CBFN EQU 4102B *EB=XX*
00282 M00S00231.trmdef ---| CCFN EQU 4056B *CI=CA*
00283 M00S00232.trmdef ---| CIFN EQU 4054B *CI*
00284 M00S00233.trmdef ---| CLFN EQU 4077B *EL=XX*
00285 M00S00234.trmdef ---| CNFN EQU 4046B *CN*
00286 M00S00235.trmdef ---| CPFN EQU 4107B *CP*
00287 M00S00236.trmdef ---| CTFN EQU 4050B *CT*
00288 M00S00237.trmdef ---| C1FN EQU 4071B *DL/XL=CNNNN*
00289 M00S00238.trmdef ---| C2FN EQU 4072B *DL/XL=CNNNN*
00290 M00S00239.trmdef ---| EBFN EQU 4101B *EB=EB/EL*
00291 M00S00240.trmdef ---| ELFN EQU 4076B *EL=EB/EL*
00292 M00S00241.trmdef ---| EPFN EQU 4061B *EP*
00293 M00S00242.trmdef ---| FAFN EQU 4067B *FA*
00294 M00S00243.trmdef ---| HDFN EQU 4041B *HD*
00295 M00S00244.trmdef ---| ICFN EQU 4103B *IC*
00296 M00S00245.trmdef ---| INFN EQU 4065B *IN*
00297 M00S00246.trmdef ---| LIFN EQU 4055B *LI*
00298 M00S00247.trmdef ---| LCFN EQU 4057B *LI=CA*
00299 M00S00248.trmdef ---| LKFN EQU 4040B *LK*
00300 M00S00249.trmdef ---| MXFN EQU 4106B *MMXPT*
00301 M00S00250.trmdef ---| OCFN EQU 4104B *OC*
00302 M00S00251.trmdef ---| OPFN EQU 4066B *OP*
00303 M00S00252.trmdef ---| PAFN EQU 4062B *PA*
00304 M00S00253.trmdef ---| PGFN EQU 4045B *PG*
00305 M00S00254.trmdef ---| PLFN EQU 4044B *PL*
00306 M00S00255.trmdef ---| PWFN EQU 4043B *PW*
00307 M00S00256.trmdef ---| SEFN EQU 4060B *SE*
00308 M00S00257.trmdef ---| TCFN EQU 4042B *TC*
00309 M00S00258.trmdef ---| TOFN EQU 4074B *XL=TO*
00310 M00S00259.trmdef ---| XBFN EQU 4100B *EB=XHH*
00311 M00S00260.trmdef ---| XHFN EQU 4073B *DL/XL=XHH*
00312 M00S00261.trmdef ---| XLFN EQU 4075B *EL=XHH*
00313 M00S00262.trmdef ---| XPFN EQU 4064B *XPT*
00314 M00S00263.trmdef ---| YHFN EQU 4105B *XL=YHH*
00315 M00S00264.trmdef ---|
00316 M00S00265.trmdef ---|* CONTROL BYTE 0010B ATTRIBUTE NUMBERS
00317 M00S00266.trmdef ---|
00318 M00S00267.trmdef ---| IOMF EQU 4201B *IOM*
00319 M00S00268.trmdef ---| IEMF EQU 4202B *IEM*
00320 M00S00269.trmdef ---| TCMF EQU 4203B *TCM*
00321 M00S00270.trmdef ---| TFCF EQU 4204B *TFC*
00322 M00S00271.trmdef ---| TTCF EQU 4205B *TTC*
00323 M00S00272.trmdef ---| TTMF EQU 4206B *TTM*
00324 M00S00273.trmdef ---| TLMF EQU 4207B *TLM*
00325 M00S00274.trmdef ---| TMLF EQU 4210B *TML*
00326 M00S00275.trmdef ---| PCFF EQU 4211B *PCF*
00327 M00S00276.trmdef ---| ACAF EQU 4212B *ACA*
00328 M00S00277.trmdef ---| BKAF EQU 4213B *BKA*
00329 M00S00278.trmdef ---| IBSF EQU 4214B *IBS*
00330 M00S00279.trmdef ---| SNDF EQU 4215B *SND*
00331 M00S00280.trmdef ---| SBCF EQU 4216B *SBC*
| Line S00001 Modification History |
M01 (Added by) | trmd17 |
M02 (Removed by) | trmd17a |
Seq # *Modification Id* Act
----------------------------+
00332 M02S00001.trmd17a ---| FKCF EQU 4225B *FKC*
00333 M00S00281.trmdef ---| NCCF EQU 4300B *NCC*
00334 M00S00282.trmdef ---| CLCF EQU 4301B *CLC*
00335 M00S00283.trmdef ---| ELCF EQU 4302B *ELC*
00336 M00S00284.trmdef ---| BLCF EQU 4303B *BLC*
00337 M00S00285.trmdef ---| BCFN EQU 4304B *BC*
00338 M00S00286.trmdef ---| EPCF EQU 4305B *EPC*
00339 M00S00287.trmdef ---| ACCF EQU 4306B *AC*
00340 M00S00288.trmdef ---| PL2F EQU 4307B *PL*
00341 M00S00289.trmdef ---| PW2F EQU 4310B *PW*
00342 M00S00290.trmdef ---| HPFN EQU 4311B *HP*
00343 M00S00291.trmdef ---| HPOF EQU 4312B *HPO*
00344 M00S00292.trmdef ---| FLFN EQU 4313B *FL*
00345 M00S00293.trmdef ---| EOSF EQU 4314B *EOS*
00346 M00S00294.trmdef ---| CRSF EQU 4315B *CRS*
00347 M00S00295.trmdef ---| LFSF EQU 4316B *LFS*
00348 M00S00296.trmdef ---| FFSF EQU 4317B *FFS*
00349 M00S00297.trmdef ---| EPAF EQU 4320B *EPA*
00350 M00S00298.trmdef ---| CRDF EQU 4321B *CRD*
00351 M00S00299.trmdef ---| LFDF EQU 4322B *LFD*
00352 M00S00300.trmdef ---| FFDF EQU 4323B *FFD*
00353 M00S00301.trmdef ---| ELPF EQU 4324B *ELP*
00354 M00S00302.trmdef ---| EPPF EQU 4325B *EPP*
00355 M00S00303.trmdef ---| CFCF EQU 4326B *CFC*
00356 M00S00304.trmdef ---| TMFN EQU 4327B *TM*
00357 M00S00305.trmdef ---| CSFN EQU 4330B *CS*
00358 M00S00306.trmdef ---| PPFN EQU 4331B *P*
00359 M00S00307.trmdef ---| EEFN EQU 4332B *E*
00360 M00S00308.trmdef ---| SAFN EQU 4333B *SA*
| Line S00002 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00361 M01S00002.252l678 +++| RAFN EQU 4334B *RA*
| Line S00001 Modification History |
M01 (Added by) | trmd17a |
Seq # *Modification Id* Act
----------------------------+
00362 M01S00001.trmd17a +++| FKCF EQU 4337B *FKC*
00363 M00S00309.trmdef +++|****
00364 M00S00310.trmdef +++| SPACE 4
00365 M00S00311.trmdef +++|*CALL COMCMAC
00366 M00S00312.trmdef +++|*CALL COMSEJT
00367 M00S00313.trmdef +++| SPACE 4
00368 M00S00314.trmdef +++| ORG 110B
00369 M00S00315.trmdef +++|
00370 M00S00316.trmdef +++|* FETS.
00371 M00S00317.trmdef +++|
00372 M00S00318.trmdef +++| FETS BSS 0
00373 M00S00319.trmdef +++|
00374 M00S00320.trmdef +++| O BSS 0 OUTPUT FILE FET
00375 M00S00321.trmdef +++| OUTPUT FILEB OBUF,OBUFL,FET=8
00376 M00S00322.trmdef +++|
00377 M00S00323.trmdef +++| Z BSS 0 TERMINAL FILE FET
00378 M00S00324.trmdef +++| ZZZZZG0 FILEB TMES,TMESL+1,DTY=2RTT
| Line S00325 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00379 M01S00325.trmd16 ---|
| Line S00045 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00380 M01S00045.trmd16 +++| TITLE MAIN PROGRAM.
00381 M00S00326.trmdef +++|* VALIDATE JOB ORIGIN AND TERMINAL TYPE.
00382 M00S00327.trmdef +++|
00383 M00S00328.trmdef +++| TRMDEF SB1 1
00384 M00S00329.trmdef +++| SA1 JOPR GET JOB ORIGIN TYPE
00385 M00S00330.trmdef +++| MX0 -12
00386 M00S00331.trmdef +++| LX1 -24
00387 M00S00332.trmdef +++| BX1 -X0*X1
00388 M00S00333.trmdef +++| SX2 X1-TXOT TIME-SHARING ORIGIN CODE
00389 M00S00334.trmdef +++| NZ X2,ERR2 IF NOT *TXOT* JOB ORIGIN TYPE
00390 M00S00335.trmdef +++| TSTATUS TRMB GET TERMINAL STATUS
00391 M00S00336.trmdef +++| SA4 TRMB+1 GET CONNECTION STATUS
00392 M00S00337.trmdef +++| MX0 -6
00393 M00S00338.trmdef +++| LX4 12
00394 M00S00339.trmdef +++| BX6 -X0*X4
00395 M00S00340.trmdef +++| SX2 X6-NICS
00396 M00S00341.trmdef +++| ZR X2,ERR1 IF NOT INTERACTIVE
00397 M00S00342.trmdef +++| SX2 X6-DTCS
00398 M00S00343.trmdef +++| NZ X2,TRM0 IF NOT DETACHED
00399 M00S00344.trmdef +++| REQUEST Z,U,N ASSIGN FILE TO TERMINAL
00400 M00S00345.trmdef +++| WRITEW Z,TMES,TMESL
00401 M00S00346.trmdef +++| WRITER Z,R CAUSE SUSPENSION
00402 M00S00347.trmdef +++| RETURN Z,R
00403 M00S00348.trmdef +++| EQ TRMDEF REISSUE REQUEST
00404 M00S00349.trmdef +++|
00405 M00S00350.trmdef +++| TRM0 LX4 -24 GET TRANSMISSION CODE
00406 M00S00351.trmdef +++| BX2 -X0*X4
00407 M00S00352.trmdef +++| SX3 X2-TCNT NETWORK TERMINAL CODE
00408 M00S00353.trmdef +++| LX4 -24
00409 M00S00354.trmdef +++| NZ X3,ERR1 IF NOT A NETWORK TERMINAL
00410 M00S00355.trmdef +++| MX0 -8
00411 M00S00356.trmdef +++| BX6 -X0*X4
00412 M00S00357.trmdef +++| SA6 A4-B1 SAVE TERMINAL CLASS
00413 M00S00358.trmdef +++|
00414 M00S00359.trmdef +++|* PROCESS COMMAND ARGUMENTS.
00415 M00S00360.trmdef +++|
00416 M00S00361.trmdef +++| SB2 CCDR COMMAND
00417 M00S00362.trmdef +++| RJ USB UNPACK DATA BLOCK TO STRING BUFFER
| Line S00363 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00418 M01S00363.trmd16 ---| RJ POP PICK OUT PARAMETER
| Line S00046 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00419 M01S00046.trmd16 +++| TRM0.1 SA1 B6+ SKIP PREFIX $, /, SPACE
00420 M01S00047.trmd16 +++| SX1 X1-1R9-1
00421 M01S00048.trmd16 +++| NG X1,TRM0.2 IF ALPHANUMERIC CHARACTER
00422 M01S00049.trmd16 +++| SB6 B6+1
00423 M01S00050.trmd16 +++| EQ TRM0.1 CHECK NEXT CHARACTER
00424 M01S00051.trmd16 +++|
00425 M01S00052.trmd16 +++| TRM0.2 RJ POP PICK OUT PARAMETER
00426 M00S00364.trmdef +++| ZR B6,ERR3 IF NO ARGUMENTS
00427 M00S00365.trmdef +++| RJ PCS PROCESS COMMAND
00428 M00S00366.trmdef +++| NZ X1,ERR3 IF ERROR IN ARGUMENTS
00429 M00S00367.trmdef +++| SB6 B0+ INITIALIZE TABLE INDEX
00430 M00S00368.trmdef +++| SX6 B0+ TERMINATE PARAMETER TABLE
00431 M00S00369.trmdef +++| SA6 X5+B1
00432 M00S00370.trmdef +++|
00433 M00S00371.trmdef +++|* VALIDATE EACH PARAMETER FOR CORRECT ARGUMENT TYPE.
00434 M00S00372.trmdef +++|
00435 M00S00373.trmdef +++| TRM1 SA1 TTPV+B6 GET PARAMETER
00436 M00S00374.trmdef +++| ZR X1,TRM9 IF END OF PARAMETERS
00437 M00S00375.trmdef +++| SB7 X1+ INDEX
00438 M00S00376.trmdef +++| RJ CAS CHECK IF ATTRIBUTE SUPPORTED
00439 M00S00377.trmdef +++| NG X2,TRM8 IF ATTRIBUTE UNSUPPORTED
00440 M00S00378.trmdef +++| RJ SAF SET ATTRIBUTE FLAGS
| Line S00379 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00441 M01S00379.trmd16 ---| SA1 TTPV+B6 GET PARAMETER
| Line S00053 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00442 M01S00053.trmd16 +++| SA1 TTPV+B6+1 GET PARAMETER VALUE
00443 M00S00380.trmdef +++| MX0 42
00444 M00S00381.trmdef +++| BX1 X0*X1 ISOLATE VALUE
00445 M00S00382.trmdef +++| SA2 TTFN+B7 GET TABLE ENTRY
| Line S00383 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00446 M01S00383.trmd16 ---| SB5 X2+
| Line S00054 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00447 M01S00054.trmd16 +++| SB5 X2
00448 M00S00384.trmdef +++| SX6 B0 CLEAR MULTIPLE PARAMETER FLAG
00449 M00S00385.trmdef +++| NE B5,B1,TRM2 IF NOT MULTIPLE PARAMETER
00450 M00S00386.trmdef +++| RJ PMP PROCESS MULTIPLE PARAMETER
00451 M00S00387.trmdef +++| NZ X3,TRM9 IF ERROR IN PARAMETER
00452 M00S00388.trmdef +++| TRM2 SA6 PMPA SET MULTIPLE PARAMETER FLAG
00453 M00S00389.trmdef +++| ZR B5,TRM6 IF EXPECTING A DECIMAL NUMBER
00454 M00S00390.trmdef +++| NG B5,TRM3 IF EXPECTING A CHARACTER
| Line S00391 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00455 M01S00391.trmd16 ---| SB3 B5 EQUIVALENCE TABLE ADDRESS
| Line S00392 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00456 M01S00392.251l664 ---| SB2 7
| Line S00006 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00457 M01S00006.251l664 +++| SB2 10B
| Line S00007 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00458 M02S00007.trmd16 ---| EQ B2,B3,TRM2.3 IF PARAMETER DISABLED
| Line S00055 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00459 M01S00055.trmd16 +++| EQ B2,B5,ERR6.2 IF PARAMETER DISABLED
| Line S00008 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00460 M02S00008.trmd16 ---| SB2 B2-1
| Line S00393 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00461 M01S00393.trmd16 ---| EQ B2,B3,TRM2.2 PROCESS DOUBLE OCTET
00462 M01S00394.trmd16 ---| SB2 B2-1
00463 M01S00395.trmd16 ---| TRM2.1 EQ B2,B3,TRM2.3 IF VARIABLE CHARACTERS IN VALUE
00464 M01S00396.trmd16 ---| SB2 B2-1
00465 M01S00397.trmd16 ---| EQ B1,B2,TRM2.4 IF EQUIVALENCE VALUE
00466 M01S00398.trmd16 ---| EQ TRM2.1 CONTINUE
| Line S00056 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00467 M01S00056.trmd16 +++| GT B5,B2,TRM2.2 IF EQUIVALENCE VALUE
00468 M01S00057.trmd16 +++| SB2 B2-B1
00469 M01S00058.trmd16 +++| EQ B2,B5,TRM2.1 PROCESS DOUBLE OCTET
00470 M01S00059.trmd16 +++| SB2 B2-B1
00471 M01S00060.trmd16 +++| EQ B2,B5,TRM3 IF *TTC* OR *TFC*
00472 M01S00061.trmd16 +++| RJ VCP VARIABLE CHARACTER PROCESSOR
00473 M01S00062.trmd16 +++| EQ TRM8 PROCESS NEXT PARAMETER
00474 M00S00399.trmdef +++|
| Line S00400 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00475 M01S00400.trmd16 ---| TRM2.2 RJ PDO PROCESS DOUBLE OCTET
| Line S00063 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00476 M01S00063.trmd16 +++| TRM2.1 RJ PDO PROCESS DOUBLE OCTET
00477 M00S00401.trmdef +++| EQ TRM8 PROCESS NEXT PARAMETER
00478 M00S00402.trmdef +++|
| Line S00403 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00479 M01S00403.trmd16 ---| TRM2.3 RJ VCP VARIABLE CHARACTER PROCESSOR
00480 M01S00404.trmd16 ---| EQ TRM8 PROCESS NEXT PARAMETER
00481 M01S00405.trmd16 ---|
00482 M01S00406.trmd16 ---| TRM2.4 SX6 B0+ CLEAR VALUE
| Line S00064 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00483 M01S00064.trmd16 +++| TRM2.2 SX6 B0+ CLEAR VALUE
00484 M00S00407.trmdef +++| RJ PEV PROCESS EQUIVALENCE VALUE
00485 M00S00408.trmdef +++| ZR X4,ERR4 IF NO EQUIVALENCE FOUND
00486 M00S00409.trmdef +++| EQ TRM7 CONTINUE PROCESSING
00487 M00S00410.trmdef +++|
00488 M00S00411.trmdef +++|* PROCESS CHARACTER
00489 M00S00412.trmdef +++|
00490 M00S00413.trmdef +++| TRM3 RJ PCP PROCESS CHARACTER PARAMETER
00491 M00S00414.trmdef +++| NZ X4,ERR4 IF ERROR ON PARAMETER
00492 M01S00065.trmd16 +++| PL B5,TRM8 IF *TTC* OR *TFC*
00493 M00S00415.trmdef +++|
00494 M00S00416.trmdef +++|* SET UP FIELD NUMBER/FIELD VALUE PAIR.
00495 M00S00417.trmdef +++|
00496 M00S00418.trmdef +++| TRM4 SA1 PMPA
00497 M00S00419.trmdef +++| SA2 TMPV+B7 GET FIELD NUMBER
00498 M00S00420.trmdef +++| LX2 18
00499 M00S00421.trmdef +++| NZ X1,TRM5 IF MULTIPLE PARAMETER
00500 M00S00422.trmdef +++| SA2 TTFN+B7 GET FIELD NUMBER
00501 M00S00423.trmdef +++| LX2 18
00502 M00S00424.trmdef +++| PL X2,TRM5 IF NOT *LI* OR *CI* PARAMETER
00503 M00S00425.trmdef +++| MX0 -48
00504 M00S00426.trmdef +++| BX2 -X0*X2
00505 M00S00427.trmdef +++| TRM5 SX4 X6+4000B FIELD VALUE
00506 M00S00428.trmdef +++| AX2 36
00507 M00S00429.trmdef +++| MX0 -12
00508 M00S00430.trmdef +++| BX2 -X0*X2
00509 M00S00431.trmdef +++| SB2 B1 INDICATE VALIDATE RANGE
00510 M00S00432.trmdef +++| EQ TRM7 ENTER INTO BUFFER
00511 M00S00433.trmdef +++|
00512 M00S00434.trmdef +++|* PROCESS DECIMAL NUMBER
00513 M00S00435.trmdef +++|
00514 M00S00436.trmdef +++| TRM6 BX5 X1 DECIMAL NUMBER TO BE CONVERTED
00515 M00S00437.trmdef +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION
00516 M00S00438.trmdef +++| ZR X4,TRM4 IF NO ERROR IN CONVERSION
00517 M00S00439.trmdef +++| SA2 PMPA
00518 M00S00440.trmdef +++| NZ X2,ERR4 IF MULTIPLE PARAMETER
00519 M00S00441.trmdef +++| SA2 TTFN+B7 GET TABLE ENTRY
00520 M00S00442.trmdef +++| LX2 18
00521 M00S00443.trmdef +++| PL X2,ERR4 IF NOT *CI* OR *LI* PARAMETER
| Line S00444 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00522 M01S00444.trmd16 ---| SA1 TTPV+B6 GET ARGUMENT
| Line S00066 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00523 M01S00066.trmd16 +++| SA1 TTPV+B6+1 GET ARGUMENT
00524 M00S00445.trmdef +++| MX0 42
00525 M00S00446.trmdef +++| BX1 X0*X1
00526 M00S00447.trmdef +++| LX1 12
00527 M00S00448.trmdef +++| SX6 X1-2RCA
00528 M00S00449.trmdef +++| NZ X6,ERR4 IF NOT *CA* ARGUMENT
00529 M00S00450.trmdef +++| SX4 4001B FIELD VALUE FOR *CA*
00530 M00S00451.trmdef +++| MX0 12
00531 M00S00452.trmdef +++| BX2 X0*X2
00532 M00S00453.trmdef +++| LX2 11-59 FIELD NUMBER
00533 M00S00454.trmdef +++| SB2 -B1 INDICATE DO NOT VALIDATE RANGE
00534 M00S00455.trmdef +++|
00535 M00S00456.trmdef +++|* ENTER FIELD NUMBER/FIELD VALUE PAIR INTO BUFFER.
00536 M00S00457.trmdef +++|
00537 M00S00458.trmdef +++| TRM7 RJ VFT VALIDATE FIELD VALUE
00538 M00S00459.trmdef +++| NG X6,ERR4 IF INCORRECT FIELD VALUE
00539 M00S00460.trmdef +++| RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B
00540 M00S00461.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B
| Line S00462 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00541 M01S00462.trmd16 ---| TRM8 SB6 B6+B1 INCREMENT TABLE INDEX
| Line S00067 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00542 M01S00067.trmd16 +++| TRM8 SB6 B6+2 INCREMENT TABLE INDEX
00543 M00S00463.trmdef +++| EQ TRM1 PROCESS NEXT PARAMETER
00544 M00S00464.trmdef +++|
00545 M00S00465.trmdef +++|* COMPLETE PROCESSING.
00546 M00S00466.trmdef +++|
00547 M00S00467.trmdef +++| TRM9 SA1 TRMC GET ERROR COUNT
00548 M00S00468.trmdef +++| NZ X1,ERR7 IF ERROR ON COMMAND
00549 M00S00469.trmdef +++| ZR B6,ERR3 IF NO CHANGES ENTERED
00550 M00S00470.trmdef +++| RJ CCT CHECK CONNECTION TYPE
00551 M00S00471.trmdef +++| NZ X1,ERR1 IF NO NETWORK CONNECTION
00552 M00S00472.trmdef +++| RJ CAF CHECK ATTRIBUTE FLAGS
00553 M00S00473.trmdef +++| NZ X5,ERR6 IF ATTRIBUTE MIX ERROR
00554 M00S00474.trmdef +++| NZ X7,ERR6.1 IF CONNECTION TYPE ERROR
00555 M00S00475.trmdef +++| NZ X3,TRM10 IF CONTROL BYTE 0010B SEQUENCE
00556 M00S00476.trmdef +++| RJ PPS PACK PARAMETER STRING - CCP
00557 M00S00477.trmdef +++| EQ TRM11 IF CONTROL BYTE 0016B SEQUENCE
| Line S00478 Modification History |
M01 (Removed by) | trmd11 |
Seq # *Modification Id* Act
----------------------------+
00558 M01S00478.trmd11 ---| TRM10 RJ PPT PACK PARAMETER STRING - CDNA
| Line S00001 Modification History |
M01 (Added by) | trmd11 |
Seq # *Modification Id* Act
----------------------------+
00559 M01S00001.trmd11 +++| TRM10 SA1 TRMG GET SPECIAL ERROR COUNT
00560 M01S00002.trmd11 +++| NZ X1,ERR7 IF *PL* OR *PW* ERROR
00561 M01S00003.trmd11 +++| RJ PPT PACK PARAMETER STRING - CDNA
00562 M00S00479.trmdef +++| TRM11 WRITEW O,OBUF,B7 OUTPUT PARAMETER STRING
00563 M00S00480.trmdef +++|
00564 M00S00481.trmdef +++|* IT IS NECESSARY TO SPECIFY RECALL ON THE FOLLOWING *WRITER*
00565 M00S00482.trmdef +++|* IN ORDER TO ASSURE THAT THE DAYFILE MESSAGE FOLLOWING IT
00566 M00S00483.trmdef +++|* IS SENT BACK TO THE TERMINAL. USING RECALL PREVENTS THE
00567 M00S00484.trmdef +++|* DAYFILE MESSAGE FROM BEING APPENDED TO THE *0016* CONTROL
00568 M00S00485.trmdef +++|* BYTE PARAMETER STRING AND THEN LOST DURING PROCESSING BY
00569 M00S00486.trmdef +++|* *1TO*.
00570 M00S00487.trmdef +++|
00571 M00S00488.trmdef +++| WRITER O,R
00572 M00S00489.trmdef +++| MESSAGE (=C* TRMDEF COMPLETE.*),3
| Line S00490 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00573 M01S00490.trmd16 ---| ENDRUN
| Line S00068 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00574 M01S00068.trmd16 +++| TRM12 ENDRUN
00575 M00S00491.trmdef +++|
00576 M00S00492.trmdef +++| TRMA CON 1 INDEX TO *CBUF*
00577 M00S00493.trmdef +++| TRMB BSS 2 TERMINAL CLASS FOR VALIDATION
00578 M00S00494.trmdef +++| TRMC CON 0 ERROR COUNT
00579 M00S00495.trmdef +++| TRMD CON 1 INDEX TO *DBUF*
00580 M00S00496.trmdef +++| TRMF CON 0,0,0 NETWORK ATTRIBUTE FLAGS
| Line S00004 Modification History |
M01 (Added by) | trmd11 |
Seq # *Modification Id* Act
----------------------------+
00581 M01S00004.trmd11 +++| TRMG CON 0 SPECIAL ERROR COUNT
00582 M00S00497.trmdef +++|
00583 M00S00498.trmdef +++|
00584 M00S00499.trmdef +++|* ERROR MESSAGES ISSUED.
00585 M00S00500.trmdef +++|
00586 M00S00501.trmdef +++| ERR1 MESSAGE (=C* INCORRECT TERMINAL TYPE FOR TRMDEF.*)
00587 M00S00502.trmdef +++| EQ ERR8 END PROCESSING
00588 M00S00503.trmdef +++|
00589 M00S00504.trmdef +++| ERR2 MESSAGE (=C* INCORRECT JOB ORIGIN TYPE FOR TRMDEF.*)
| Line S00505 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00590 M01S00505.trmd16 ---| EQ ERR8 END PROCESSING
| Line S00069 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00591 M01S00069.trmd16 +++| EQ TRM12 END PROCESSING
00592 M00S00506.trmdef +++|
00593 M00S00507.trmdef +++| ERR3 MESSAGE (=C* ERROR IN TRMDEF ARGUMENT.*)
00594 M00S00508.trmdef +++| EQ ERR8 END PROCESSING
00595 M00S00509.trmdef +++|
00596 M00S00510.trmdef +++| ERR4 SA3 PMPA
00597 M00S00511.trmdef +++| ZR X3,ERR5 IF NOT MULTIPLE PARAMETER
00598 M00S00512.trmdef +++| SA1 TMPV+B7 GET TABLE ENTRY
00599 M00S00513.trmdef +++| MX0 6
00600 M00S00514.trmdef +++| BX1 X0*X1 GET PARAMETER OPTION
00601 M00S00515.trmdef +++| LX1 -12
00602 M00S00516.trmdef +++| LX0 -12
00603 M00S00517.trmdef +++| SA2 BEMC+BEMCL-1 CREATE MULTI-VALUE ERROR MESSAGE
00604 M00S00518.trmdef +++| BX2 -X0*X2
00605 M00S00519.trmdef +++| BX6 X1+X2
00606 M00S00520.trmdef +++| SA1 PMPC
00607 M00S00521.trmdef +++| SB5 X1
00608 M00S00522.trmdef +++| SA6 A2
00609 M00S00523.trmdef +++| SA2 BEMC
00610 M00S00524.trmdef +++| SA1 TTFN+B5 GET TABLE ENTRY
00611 M00S00525.trmdef +++| RJ BEM BUILD ERROR MESSAGE
00612 M00S00526.trmdef +++| SA2 =4L- RESTORE ERROR MESSAGE
00613 M00S00527.trmdef +++| BX2 X6
00614 M00S00528.trmdef +++| SA6 BEMC+BEMCL-1
00615 M00S00529.trmdef +++| EQ TRM8 PROCESS NEXT PARAMETER
00616 M00S00530.trmdef +++|
00617 M00S00531.trmdef +++| ERR5 SA2 BEMC
00618 M00S00532.trmdef +++| SA1 TTFN+B7
00619 M00S00533.trmdef +++| RJ BEM BUILD ERROR MESSAGE
00620 M00S00534.trmdef +++| EQ TRM8 PROCESS NEXT PARAMETER
00621 M00S00535.trmdef +++|
00622 M00S00536.trmdef +++| ERR6 MESSAGE MSG1
00623 M00S00537.trmdef +++| EQ ERR7 END PROCESSING
00624 M00S00538.trmdef +++|
00625 M00S00539.trmdef +++| ERR6.1 MESSAGE MSG2
| Line S00009 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00626 M01S00009.251l664 +++| EQ ERR7 END PROCESSING
00627 M01S00010.251l664 +++|
00628 M01S00011.251l664 +++| ERR6.2 MESSAGE MSG3
| Line S00540 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00629 M01S00540.251l664 ---|
00630 M00S00541.trmdef ---| ERR7 WRITEW O,OBUF,X1
00631 M00S00542.trmdef ---| WRITER O,R
00632 M00S00543.trmdef ---| MESSAGE (=C* TRMDEF ERRORS.*)
00633 M00S00544.trmdef ---| ERR8 ABORT
00634 M00S00545.trmdef ---|
00635 M00S00546.trmdef ---| MSG1 DATA C* ATTRIBUTE COMMANDS MUST BE OF ONE NETWORK TYPE.*
00636 M00S00547.trmdef ---| MSG2 DATA C* NETWORK TYPE DOES NOT SUPPORT ATTRIBUTE COMMAND.*
00637 M01S00548.251l664 ---|
00638 M01S00549.251l664 ---|
00639 M01S00550.251l664 ---|
| Line S00012 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00640 M01S00012.251l664 +++| MSG3 DATA C* LITERAL STRING IS NOT ALLOWED FOR THIS PARAMETER.*
00641 M00S00551.trmdef +++| TITLE SUBROUTINES.
00642 M00S00552.trmdef +++| BEM SPACE 4,15
00643 M00S00553.trmdef +++|** BEM - BUILD ERROR MESSAGE.
00644 M00S00554.trmdef +++|*
00645 M00S00555.trmdef +++|* ENTRY (X1) = ATTRIBUTE MNEMONIC.
00646 M00S00556.trmdef +++|* (A2) = ADDRESS OF ERROR MESSAGE TEXT.
00647 M00S00557.trmdef +++|*
00648 M00S00558.trmdef +++|* EXIT (TRMC) UPDATED.
00649 M00S00559.trmdef +++|*
00650 M00S00560.trmdef +++|* USES X - 1, 2, 3, 6, 7.
00651 M00S00561.trmdef +++|* A - 2, 3, 6, 7.
00652 M00S00562.trmdef +++|* B - 5.
00653 M00S00563.trmdef +++|
00654 M00S00564.trmdef +++|
00655 M00S00565.trmdef +++| BEM SUBR ENTRY/EXIT
00656 M00S00566.trmdef +++| SB5 BEMAL LENGTH OF ERROR MESSAGE
00657 M00S00567.trmdef +++| ERRNZ BEMAL-BEMCL MESSAGE NOT SAME LENGTH
00658 M00S00568.trmdef +++| MX6 18
00659 M00S00569.trmdef +++| BX1 X6*X1 GET ATTRIBUTE
00660 M00S00570.trmdef +++| SA3 TRMC GET BUFFER INDEX
00661 M00S00571.trmdef +++| BX6 X2 FORM ERROR MESSAGE
00662 M00S00572.trmdef +++| SX7 X3+B5 UPDATE BUFFER INDEX
00663 M00S00573.trmdef +++| SA6 X3+OBUF ENTER INTO OUTPUT BUFFER
00664 M00S00574.trmdef +++| SB5 B5-B1
00665 M00S00575.trmdef +++| SA7 A3 RESET INDEX
00666 M00S00576.trmdef +++| BEM3 SA2 A2+B1 GET NEXT WORD OF ERROR MESSAGE
00667 M00S00577.trmdef +++| SB5 B5-B1
00668 M00S00578.trmdef +++| BX6 X2
00669 M00S00579.trmdef +++| SA6 A6+B1 ENTER INTO OUTPUT BUFFER
00670 M00S00580.trmdef +++| NE B5,B1,BEM3 IF NOT LAST WORD OF ERROR MESSAGE
00671 M00S00581.trmdef +++| SA2 A2+B1 PLACE ATTRIBUTE MNEMONIC IN MESSAGE
00672 M00S00582.trmdef +++| LX1 36
00673 M00S00583.trmdef +++| BX6 X1+X2
00674 M00S00584.trmdef +++| SA6 A6+B1
00675 M00S00585.trmdef +++| EQ BEMX RETURN BUILT ERROR MESSAGE
00676 M00S00586.trmdef +++|
00677 M00S00587.trmdef +++|
00678 M00S00588.trmdef +++| BEMA DATA 10LUNSUPPORTE
00679 M00S00589.trmdef +++| DATA 10LD ATTRIBUT
00680 M00S00590.trmdef +++| DATA 4LE -
00681 M00S00591.trmdef +++| BEMAL EQU *-BEMA
00682 M00S00592.trmdef +++|
00683 M00S00593.trmdef +++| BEMC DATA 10LINCORRECT
00684 M00S00594.trmdef +++| DATA 10LVALUE FOR
00685 M00S00595.trmdef +++| DATA 4L-
00686 M00S00596.trmdef +++| BEMCL EQU *-BEMC
00687 M00S00597.trmdef +++| CAF SPACE 4,15
00688 M00S00598.trmdef +++|** CAF - CHECK ATTRIBUTE FLAGS.
00689 M00S00599.trmdef +++|*
00690 M00S00600.trmdef +++|* ENTRY (X2) = CONNECTION STATUS.
00691 M00S00601.trmdef +++|*
00692 M00S00602.trmdef +++|* EXIT IF (X3) = 0 THEN BUILD CONTROL BYTE 0016B.
00693 M00S00603.trmdef +++|* = 1 THEN BUILD CONTROL BYTE 0010B.
00694 M00S00604.trmdef +++|* IF (X5) = 0 THEN NO ERROR.
00695 M00S00605.trmdef +++|* = 1 THEN ATTRIBUTE MIX ERROR.
00696 M00S00606.trmdef +++|* IF (X7) = 0 THEN NO ERROR.
00697 M00S00607.trmdef +++|* = 1 THEN CONNECTION TYPE ERROR.
00698 M00S00608.trmdef +++|*
00699 M00S00609.trmdef +++|* USES X - 3, 4, 5, 7.
00700 M00S00610.trmdef +++|* A - 4.
00701 M00S00611.trmdef +++|*
00702 M00S00612.trmdef +++|* DEFINE (TRMF) = CCP FLAG.
00703 M00S00613.trmdef +++|* (TRMF+1) = CDNA FLAG.
00704 M00S00614.trmdef +++|* (TRMF+2) = COMMON FLAG.
00705 M00S00615.trmdef +++|
00706 M00S00616.trmdef +++|
00707 M00S00617.trmdef +++| CAF SUBR ENTRY/EXIT
00708 M00S00618.trmdef +++| BX3 X3-X3 INITIALIZE FLAGS
00709 M00S00619.trmdef +++| BX5 X5-X5
00710 M00S00620.trmdef +++| BX7 X7-X7
00711 M00S00621.trmdef +++| SA4 TRMF
00712 M00S00622.trmdef +++| NZ X4,CAF5 IF CCP ATTRIBUTE ON LIST
00713 M00S00623.trmdef +++| SA4 TRMF+1
00714 M00S00624.trmdef +++| NZ X4,CAF3 IF CDNA ATTRIBUTE ON LIST
00715 M00S00625.trmdef +++| SA4 TRMF+2
00716 M00S00626.trmdef +++| NZ X4,CAF1 IF COMMON ATTRIBUTE ON LIST
00717 M00S00627.trmdef +++| SX5 B1 SET ATTRIBUTE MIX ERROR FLAG
00718 M00S00628.trmdef +++| EQ CAFX RETURN (F,F,F)
00719 M00S00629.trmdef +++|
00720 M00S00630.trmdef +++| CAF1 NZ X2,CAF2 IF NAM/CDNA CONNECTION
00721 M00S00631.trmdef +++| EQ CAFX RETURN (F,F,T - CCP)
00722 M00S00632.trmdef +++|
00723 M00S00633.trmdef +++| CAF2 SX3 B1+
00724 M00S00634.trmdef +++| EQ CAFX RETURN (F,F,T - CDNA)
00725 M00S00635.trmdef +++|
00726 M00S00636.trmdef +++| CAF3 NZ X2,CAF4 IF NAM/CDNA CONNECTION
00727 M00S00637.trmdef +++| SX7 B1+ SET CONNECTION TYPE ERROR FLAG
00728 M00S00638.trmdef +++| EQ CAFX RETURN (F,T,TF - CCP)
00729 M00S00639.trmdef +++|
00730 M00S00640.trmdef +++| CAF4 SX3 B1+
00731 M00S00641.trmdef +++| EQ CAFX RETURN (F,T,TF - CDNA)
00732 M00S00642.trmdef +++|
00733 M00S00643.trmdef +++| CAF5 SA4 TRMF+1
00734 M00S00644.trmdef +++| NZ X4,CAF6 IF CDNA ATTRIBUTE ON LIST
00735 M00S00645.trmdef +++| EQ CAFX RETURN (T,F,TF - XOR)
00736 M00S00646.trmdef +++|
00737 M00S00647.trmdef +++| CAF6 SX5 B1+ SET ATTRIBUTE MIX ERROR FLAG
00738 M00S00648.trmdef +++| EQ CAFX RETURN (T,T,TF - XOR)
00739 M00S00649.trmdef +++| CAS SPACE 4,15
00740 M00S00650.trmdef +++|** CAS - CHECK IF ATTRIBUTE IS SUPPORTED.
00741 M00S00651.trmdef +++|*
00742 M00S00652.trmdef +++|* ENTRY (B7) = INDEX TO *TFLD* TABLE.
00743 M00S00653.trmdef +++|*
00744 M00S00654.trmdef +++|* EXIT (X2) = .GE. 0 ATTRIBUTE SUPPORTED.
00745 M00S00655.trmdef +++|* .LT. 0 ATTRIBUTE UNSUPPORTED.
00746 M00S00656.trmdef +++|*
00747 M00S00657.trmdef +++|* USES X - 1, 2.
00748 M00S00658.trmdef +++|* A - 1, 2.
00749 M00S00659.trmdef +++|
00750 M00S00660.trmdef +++|
00751 M00S00661.trmdef +++| CAS SUBR ENTRY/EXIT
00752 M00S00662.trmdef +++| SA2 TFVR+B7 ATTRIBUTE SUPPORT CHECK
00753 M00S00663.trmdef +++| LX2 59-36 ISOLATE FLAG BIT
00754 M00S00664.trmdef +++| PL X2,CASX IF ATTRIBUTE SUPPORTED
00755 M00S00665.trmdef +++| SA2 BEMA *UNSUPPORTED ATTRIBUTE*
00756 M00S00666.trmdef +++| SA1 TTFN+B7
00757 M00S00667.trmdef +++| RJ BEM BUILD ERROR MESSAGE
00758 M00S00668.trmdef +++| SX2 -1 SET UNSUPPORTED EXIT CONDITION
00759 M00S00669.trmdef +++| EQ CASX COMPLETE PROCESSING
00760 M00S00670.trmdef +++| CCT SPACE 4,15
00761 M00S00671.trmdef +++|** CCT - CHECK CONNECTION TYPE.
00762 M00S00672.trmdef +++|*
00763 M00S00673.trmdef +++|* ENTRY NONE.
00764 M00S00674.trmdef +++|*
00765 M00S00675.trmdef +++|* EXIT IF (X1) = 0 THEN NO ERROR.
00766 M00S00676.trmdef +++|* IF (X2) = 0 THEN NAM/CCP CONNECTION.
00767 M00S00677.trmdef +++|* = 1 THEN NAM/CDNA CONNECTION.
00768 M00S00678.trmdef +++|*
00769 M00S00679.trmdef +++|* USES X - 0, 1, 2, 4.
00770 M00S00680.trmdef +++|* A - 1, 4.
00771 M00S00681.trmdef +++|
00772 M00S00682.trmdef +++|
00773 M00S00683.trmdef +++| CCT SUBR ENTRY/EXIT
00774 M00S00684.trmdef +++| BX1 X1-X1 CLEAR ERROR FLAG
00775 M00S00685.trmdef +++| SA4 TRMB+1 GET CONNECTION TYPE
00776 M00S00686.trmdef +++| MX0 -3
00777 M00S00687.trmdef +++| LX4 6
00778 M00S00688.trmdef +++| BX4 -X0*X4
00779 M00S00689.trmdef +++| ZR X4,CCT1 IF NO NAM CONNECTION
00780 M00S00690.trmdef +++| SX4 X4-1
00781 M00S00691.trmdef +++| ZR X4,CCT2 IF NAM/CCP CONNECTION
00782 M00S00692.trmdef +++| SX4 X4-1
| Line S00693 Modification History |
M01 (Removed by) | 243l647 |
Seq # *Modification Id* Act
----------------------------+
00783 M01S00693.243l647 ---| ZR X4,CCT3 IF NAM/CDNA CONNECTION
| Line S00001 Modification History |
M01 (Added by) | 243l647 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00784 M02S00001.251l664 ---| ZR X4,CCT2 IF NAM/CDNA CONNECTION
| Line S00013 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00785 M01S00013.251l664 +++| ZR X4,CCT3 IF NAM/CDNA CONNECTION
00786 M00S00694.trmdef +++|
00787 M00S00695.trmdef +++| CCT1 SX1 B1+ SET ERROR FLAG
00788 M00S00696.trmdef +++| EQ CCTX RETURN
00789 M00S00697.trmdef +++|
00790 M00S00698.trmdef +++| CCT2 BX2 X2-X2 NAM/CCP CONNECTION
00791 M00S00699.trmdef +++| EQ CCTX RETURN
00792 M00S00700.trmdef +++|
00793 M00S00701.trmdef +++| CCT3 SX2 B1+ NAM/CDNA CONNECTION
00794 M00S00702.trmdef +++| EQ CCTX RETURN
00795 M00S00703.trmdef +++| EFP SPACE 4,15
00796 M00S00704.trmdef +++|** EFP - ENTER FIELD NUMBER/FIELD VALUE PAIR INTO BUFFER.
00797 M00S00705.trmdef +++|*
00798 M00S00706.trmdef +++|* *EFP* CREATES THE PARAMETER STRING FOR CONTROL BYTE 0016B
00799 M00S00707.trmdef +++|* DATA STREAM PROCESSING.
00800 M00S00708.trmdef +++|*
00801 M00S00709.trmdef +++|* ENTRY (X2) = FIELD NUMBER.
00802 M00S00710.trmdef +++|* (X4) = FIELD VALUE.
00803 M00S00711.trmdef +++|* (TRMA) = INDEX TO BUFFER.
00804 M00S00712.trmdef +++|* (CBUF) = BUFFER OF FIELD NUMBER/FIELD VALUE PAIRS.
00805 M00S00713.trmdef +++|*
00806 M00S00714.trmdef +++|* EXIT (TRMA) UPDATED.
00807 M00S00715.trmdef +++|*
00808 M00S00716.trmdef +++|* USES X - 5, 6, 7.
00809 M00S00717.trmdef +++|* A - 5, 6, 7.
00810 M00S00718.trmdef +++|*
00811 M00S00719.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST.
00812 M00S00720.trmdef +++|* (B7) = INDEX INTO TABLES.
00813 M00S00721.trmdef +++|
00814 M00S00722.trmdef +++|
00815 M00S00723.trmdef +++| EFP SUBR ENTRY/EXIT
00816 M00S00724.trmdef +++| SA5 TRMA BUFFER INDEX
00817 M00S00725.trmdef +++| BX6 X2
00818 M00S00726.trmdef +++| BX7 X4
00819 M00S00727.trmdef +++| SA6 X5+CBUF ENTER FIELD NUMBER INTO BUFFER
00820 M00S00728.trmdef +++| SX6 X5+2 INCREMENT INDEX
00821 M00S00729.trmdef +++| SA7 A6+B1 ENTER FIELD VALUE INTO BUFFER
00822 M00S00730.trmdef +++| SA6 A5 RESET BUFFER INDEX
00823 M00S00731.trmdef +++| EQ EFPX RETURN
00824 M00S00732.trmdef +++| EFQ SPACE 4,15
00825 M00S00733.trmdef +++|** EFQ - ENTER ATTRIBUTE NUMBER/ATTRIBUTE VALUE PAIR.
00826 M00S00734.trmdef +++|*
00827 M00S00735.trmdef +++|* *EFQ* CREATES THE PARAMETER STRING FOR CONTROL BYTE 0010B
00828 M00S00736.trmdef +++|* DATA STREAM PROCESSING.
00829 M00S00737.trmdef +++|*
00830 M00S00738.trmdef +++|* ENTRY (X2) = ATTRIBUTE NUMBER.
00831 M00S00739.trmdef +++|* (X4) = ATTRIBUTE VALUE.
00832 M00S00740.trmdef +++|* (TRMD) = INDEX TO BUFFER.
00833 M00S00741.trmdef +++|* (DBUF) = BUFFER OF ATTRIBUTE NUMBER/ATTRIBUTE VALUE
00834 M00S00742.trmdef +++|* PAIRS.
00835 M00S00743.trmdef +++|*
00836 M00S00744.trmdef +++|* EXIT (TRMD) UPDATED.
00837 M00S00745.trmdef +++|*
00838 M00S00746.trmdef +++|* USES X - 5, 6, 7.
00839 M00S00747.trmdef +++|* A - 5, 6, 7.
00840 M00S00748.trmdef +++|*
00841 M00S00749.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST.
00842 M00S00750.trmdef +++|* (B7) = INDEX INTO TABLES.
00843 M00S00751.trmdef +++|
00844 M00S00752.trmdef +++|
00845 M00S00753.trmdef +++| EFQ SUBR ENTRY/EXIT
00846 M00S00754.trmdef +++| SA5 TRMD BUFFER INDEX
00847 M00S00755.trmdef +++| BX6 X2
00848 M00S00756.trmdef +++| RJ SPC SPECIAL PAGE CHECKS FOR CDNA
00849 M00S00757.trmdef +++| SA6 X5+DBUF ENTER FIELD NUMBER INTO BUFFER
00850 M00S00758.trmdef +++| SX6 X5+3 INCREMENT INDEX
00851 M00S00759.trmdef +++| SX7 4001B ENTER DEFAULT OCTET COUNT
00852 M00S00760.trmdef +++| SA7 A6+B1 ENTER COUNT INTO BUFFER
00853 M00S00761.trmdef +++| BX7 X4
00854 M00S00762.trmdef +++| SA7 A6+2 ENTER FIELD VALUE INTO BUFFER
00855 M00S00763.trmdef +++| SA6 A5 RESET BUFFER INDEX
00856 M00S00764.trmdef +++| EQ EFQX RETURN
| Line S00070 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00857 M01S00070.trmd16 +++| HCP SPACE 4,15
00858 M01S00071.trmd16 +++|** HCP - HEXADECIMAL CHARACTER PROCESSOR.
00859 M01S00072.trmd16 +++|*
00860 M01S00073.trmd16 +++|* ENTRY (X1) = PARAMETER FROM COMMAND.
00861 M01S00074.trmd16 +++|* (X2) = FIELD NUMBER.
00862 M01S00075.trmd16 +++|* (A1) = PARAMETER FWA.
00863 M01S00076.trmd16 +++|* (B2) = PARAMETER WORD COUNT.
00864 M01S00077.trmd16 +++|* (B5) = RANGE IDENTIFIER (SEE VCP).
00865 M01S00078.trmd16 +++|*
00866 M01S00079.trmd16 +++|* EXIT CONTROL BYTE 0010 UPDATED.
00867 M01S00080.trmd16 +++|*
00868 M01S00081.trmd16 +++|* USES X - ALL.
00869 M01S00082.trmd16 +++|* A - 1, 3, 5, 6, 7.
00870 M01S00083.trmd16 +++|* B - 2, 3, 4, 6.
00871 M01S00084.trmd16 +++|*
00872 M01S00085.trmd16 +++|* CALLS EFQ, HXB.
00873 M01S00086.trmd16 +++|
00874 M01S00087.trmd16 +++|
00875 M01S00088.trmd16 +++| HCP SUBR ENTRY/EXIT
00876 M01S00089.trmd16 +++| MX0 6 DELETE HEX FLAG
00877 M01S00090.trmd16 +++| BX6 -X0*X1
00878 M01S00091.trmd16 +++| LX6 6
00879 M01S00092.trmd16 +++| SA6 A1
00880 M01S00093.trmd16 +++| EQ B2,B1,HCP2 IF VALUE IS FIVE (HEX) CHARACTERS OR LESS
00881 M01S00094.trmd16 +++| SA3 A1 ENSURE CHARACTERS NOT SPLIT ACROSS WORDS
00882 M01S00095.trmd16 +++| SB3 B2-B1
00883 M01S00096.trmd16 +++| HCP1 SB3 B3-B1
00884 M01S00097.trmd16 +++| SA5 A3
00885 M01S00098.trmd16 +++| SA3 A3+B1
00886 M01S00099.trmd16 +++| BX4 X0*X3
00887 M01S00100.trmd16 +++| LX4 6
00888 M01S00101.trmd16 +++| BX6 X5+X4 ADD LOWER HALF OF HEX CHARACTER
00889 M01S00102.trmd16 +++| SA6 A5
00890 M01S00103.trmd16 +++| BX7 -X0*X3
00891 M01S00104.trmd16 +++| LX7 6
00892 M01S00105.trmd16 +++| SA7 A3
00893 M01S00106.trmd16 +++| NZ B3,HCP1 IF NOT FINISHED
00894 M01S00107.trmd16 +++| HCP2 SB3 3
00895 M01S00108.trmd16 +++| SB4 B1 WORD COUNT TO COMPARE
00896 M01S00109.trmd16 +++| SA5 A1 RANGE COMPARISON WORD
00897 M01S00110.trmd16 +++| MX0 48
00898 M01S00111.trmd16 +++| EQ B5,B3,HCP3 IF RANGE OF 0-4 CHARACTERS
00899 M01S00112.trmd16 +++| SB3 B3-B1
00900 M01S00113.trmd16 +++| MX0 24
00901 M01S00114.trmd16 +++| EQ B5,B3,HCP3 IF RANGE OF 0-2 CHARACTERS
00902 M01S00115.trmd16 +++| SB3 B3+B3
00903 M01S00116.trmd16 +++| SB4 B1+B1
00904 M01S00117.trmd16 +++| SA5 A1+B1
00905 M01S00118.trmd16 +++| EQ B5,B3,HCP3 IF RANGE OF 0-7 CHARACTERS
00906 M01S00119.trmd16 +++| SB3 B3+B1 IF RANGE OF 0-25 CHARACTERS
00907 M01S00120.trmd16 +++| SA5 A1+B3
00908 M01S00121.trmd16 +++| SB4 B3+B1
00909 M01S00122.trmd16 +++| MX0 0
00910 M01S00123.trmd16 +++| HCP3 GT B2,B4,ERR5 IF TOO MANY CHARACTERS
00911 M01S00124.trmd16 +++| BX4 -X0*X5
00912 M01S00125.trmd16 +++| MX0 12
00913 M01S00126.trmd16 +++| LT B2,B4,HCP4 IF FEWER WORDS THAN MAXIMUM
00914 M01S00127.trmd16 +++| NZ X4,ERR5 IF TOO MANY CHARACTERS
00915 M01S00128.trmd16 +++| HCP4 SA1 A1 GET WHOLE PARAMETER VALUE
00916 M01S00129.trmd16 +++| NZ X1,HCP5 IF AT LEAST ONE CHARACTER
00917 M01S00130.trmd16 +++| BX6 X2 ENTER ATTRIBUTE NUMBER ONLY
00918 M01S00131.trmd16 +++| SA5 TRMD GET BUFFER INDEX
00919 M01S00132.trmd16 +++| SX7 4000B
00920 M01S00133.trmd16 +++| SA6 X5+DBUF
00921 M01S00134.trmd16 +++| SX6 X5+2
00922 M01S00135.trmd16 +++| SA7 A6+B1
00923 M01S00136.trmd16 +++| SA6 A5
00924 M01S00137.trmd16 +++| EQ HCPX RETURN
00925 M01S00138.trmd16 +++|
00926 M01S00139.trmd16 +++| HCP5 BX7 X2 PRESERVE X2
00927 M01S00140.trmd16 +++| BX5 X0*X1
00928 M01S00141.trmd16 +++| RJ HXB
00929 M01S00142.trmd16 +++| NZ X4,ERR4 IF ERROR ON PARAMETER
00930 M01S00143.trmd16 +++| BX2 X7
00931 M01S00144.trmd16 +++| SA0 B1 SET OCTET COUNTER
00932 M01S00145.trmd16 +++| SX4 X6+4000B
00933 M01S00146.trmd16 +++| RJ EFQ
00934 M01S00147.trmd16 +++| BX1 -X0*X1 CLEAR CHARACTER
00935 M01S00148.trmd16 +++| LX1 12
00936 M01S00149.trmd16 +++| ZR X1,HCP7 IF NO MORE CHARACTERS REMAIN
00937 M01S00150.trmd16 +++| HCP6 BX5 X0*X1
00938 M01S00151.trmd16 +++| RJ HXB
00939 M01S00152.trmd16 +++| NZ X4,ERR4 IF ERROR ON PARAMETER
00940 M01S00153.trmd16 +++| SX7 X6+4000B
00941 M01S00154.trmd16 +++| SA0 A0+B1 INCREMENT OCTET COUNTER
00942 M01S00155.trmd16 +++| SA5 TRMD GET BUFFER INDEX
00943 M01S00156.trmd16 +++| SA7 X5+DBUF ENTER FIELD VALUE INTO BUFFER
00944 M01S00157.trmd16 +++| SX7 X5+B1 INCREMENT INDEX
00945 M01S00158.trmd16 +++| SA7 A5
00946 M01S00159.trmd16 +++| BX1 -X0*X1
00947 M01S00160.trmd16 +++| LX1 12
00948 M01S00161.trmd16 +++| NZ X1,HCP6 IF MORE CHARACTERS REMAIN
00949 M01S00162.trmd16 +++| HCP7 SB2 B2-B1
00950 M01S00163.trmd16 +++| ZR B2,HCP8 IF PROCESSING COMPLETE
00951 M01S00164.trmd16 +++| SB6 B6+B1
00952 M01S00165.trmd16 +++| SA1 TTPV+B6+1
00953 M01S00166.trmd16 +++| NZ X1,HCP6 IF NOT THROUGH WITH PARAMETER
00954 M01S00167.trmd16 +++| HCP8 SA5 TRMD GET OCTET COUNT BYTE
00955 M01S00168.trmd16 +++| SX6 A0+B1
00956 M01S00169.trmd16 +++| IX5 X5-X6
00957 M01S00170.trmd16 +++| SX7 A0+4000B
00958 M01S00171.trmd16 +++| SA7 X5+DBUF ENTER FIELD VALUE INTO BUFFER
00959 M01S00172.trmd16 +++| EQ HCPX RETURN
00960 M00S00765.trmdef +++| PCP SPACE 4,15
00961 M00S00766.trmdef +++|** PCP - PROCESS CHARACTER PARAMETER VALUE.
00962 M00S00767.trmdef +++|*
00963 M00S00768.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND.
00964 M00S00769.trmdef +++|* (B7) = INDEX INTO TABLES.
00965 M01S00173.trmd16 +++|* (B5) = *TTC*/*TFC* FLAG.
00966 M00S00770.trmdef +++|*
00967 M00S00771.trmdef +++|* EXIT (X4) .NE. 0 IF ERROR IN PARAMETER.
00968 M00S00772.trmdef +++|* (X6) = CONVERTED CHARACTER.
00969 M00S00773.trmdef +++|* (B7) RESTORED.
00970 M01S00174.trmd16 +++|* (B5) RESTORED.
00971 M00S00774.trmdef +++|*
00972 M00S00775.trmdef +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
| Line S00776 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00973 M01S00776.trmd16 ---|* A - 2, 7.
00974 M01S00777.trmd16 ---|* B - 7.
| Line S00175 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00975 M01S00175.trmd16 +++|* A - 0, 1, 2, 5, 6, 7.
| Line S00176 Modification History |
M01 (Added by) | trmd16 |
M02 (Removed by) | trmd16a |
Seq # *Modification Id* Act
----------------------------+
00976 M02S00176.trmd16a ---|* B - 5, 6, 7.
| Line S00001 Modification History |
M01 (Added by) | trmd16a |
Seq # *Modification Id* Act
----------------------------+
00977 M01S00001.trmd16a +++|* B - 4, 5, 6, 7.
00978 M00S00778.trmdef +++|*
00979 M00S00779.trmdef +++|* CALLS DXB, HXB.
00980 M00S00780.trmdef +++|*
00981 M00S00781.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST.
00982 M00S00782.trmdef +++|
00983 M00S00783.trmdef +++|
| Line S00177 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00984 M01S00177.trmd16 +++| PCP5 SX6 A0
00985 M01S00178.trmd16 +++| IX5 X5-X6
00986 M01S00179.trmd16 +++| SX7 X6+4000B
00987 M01S00180.trmd16 +++| SA7 X5+DBUF
00988 M01S00181.trmd16 +++|
00989 M00S00784.trmdef +++| PCP SUBR ENTRY/EXIT
| Line S00785 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00990 M01S00785.trmd16 ---| MX0 -54
| Line S00182 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
00991 M01S00182.trmd16 +++| SX7 B5+
00992 M01S00183.trmd16 +++| SA7 PCPB
00993 M01S00184.trmd16 +++| NG B5,PCP0 IF NOT *TTC* OR *TFC*
00994 M01S00185.trmd16 +++| ZR X1,ERR5 IF NOTHING ENTERED
00995 M01S00186.trmd16 +++| SA2 TTFN+B7
00996 M01S00187.trmd16 +++| MX0 -12
00997 M01S00188.trmd16 +++| AX2 18
00998 M01S00189.trmd16 +++| BX6 -X0*X2 FIELD NUMBER ISOLATED
00999 M01S00190.trmd16 +++| SA5 TRMD
01000 M01S00191.trmd16 +++| SA0 B0 INITIALIZE OCTET COUNTER
01001 M01S00192.trmd16 +++| SA6 X5+DBUF
01002 M01S00193.trmd16 +++| SX7 4000B
01003 M01S00194.trmd16 +++| SA7 A6+B1
01004 M01S00195.trmd16 +++| SX6 X5+2
01005 M01S00196.trmd16 +++| SA6 A5
01006 M01S00197.trmd16 +++| PCP0 MX0 -54
01007 M00S00786.trmdef +++| BX4 -X0*X1
01008 M00S00787.trmdef +++| SA2 PMPA
01009 M00S00788.trmdef +++| NZ X2,PCP1 IF MULTIPLE PARAMETER
01010 M00S00789.trmdef +++| ZR X4,PCP3 IF SINGLE CHARACTER ENTERED
01011 M00S00790.trmdef +++| BX2 X0*X1
01012 M00S00791.trmdef +++| LX2 6
01013 M00S00792.trmdef +++| SX4 X2-1RX
01014 M00S00793.trmdef +++| ZR X4,PCP2 IF *XHH* ARGUMENT
01015 M00S00794.trmdef +++| BX5 X1
01016 M00S00795.trmdef +++| SX7 B7
01017 M00S00796.trmdef +++| SA7 PCPA SAVE TABLE INDEX
01018 M00S00797.trmdef +++| SB7 0 ASSUME OCTAL BASE FOR CONVERSION
01019 M00S00798.trmdef +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION
01020 M00S00799.trmdef +++| SA2 PCPA RESTORE TABLE INDEX
01021 M00S00800.trmdef +++| SB7 X2+
| Line S00801 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01022 M01S00801.trmd16 ---| EQ PCPX RETURN
| Line S00198 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01023 M01S00198.trmd16 +++| EQ PCP4 CHECK FOR *TTC* OR *TFC*
01024 M00S00802.trmdef +++|
01025 M00S00803.trmdef +++| PCP1 BX2 X0*X1
01026 M00S00804.trmdef +++| BX5 -X0*X1
01027 M00S00805.trmdef +++| SX4 B1 RETURN AN ERROR
01028 M00S00806.trmdef +++| LX2 6
01029 M00S00807.trmdef +++| ZR X5,PCPX IF NO CHARACTER WAS SPECIFIED
01030 M00S00808.trmdef +++| SX4 X2-1RX
01031 M00S00809.trmdef +++| ZR X4,PCP2 IF *XHH* ARGUMENT
01032 M00S00810.trmdef +++| SX4 X2-1RY
01033 M00S00811.trmdef +++| ZR X4,PCP2 IF *YHH* ARGUMENT
01034 M00S00812.trmdef +++| EQ PCPX RETURN
01035 M00S00813.trmdef +++|
01036 M00S00814.trmdef +++| PCP2 MX0 -42
01037 M00S00815.trmdef +++| BX4 -X0*X1
01038 M00S00816.trmdef +++| NZ X4,PCPX IF TOO MANY CHARACTERS ENTERED
01039 M00S00817.trmdef +++| MX0 -54
01040 M00S00818.trmdef +++| BX5 -X0*X1
01041 M00S00819.trmdef +++| LX5 6
01042 M00S00820.trmdef +++| RJ HXB HEX DISPLAY CODE TO BINARY CONVERSION
| Line S00821 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01043 M01S00821.trmd16 ---| EQ PCPX RETURN
| Line S00199 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01044 M01S00199.trmd16 +++| EQ PCP4 CHECK FOR *TTC* OR *TFC*
01045 M00S00822.trmdef +++|
01046 M00S00823.trmdef +++| PCP3 LX1 6
01047 M00S00824.trmdef +++| SA2 X1+TVXD GET OCTAL EQUIVALENT
01048 M00S00825.trmdef +++| LX2 0-18
01049 M00S00826.trmdef +++| MX0 -12
01050 M00S00827.trmdef +++| BX6 -X0*X2 FIELD VALUE
| Line S00828 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01051 M01S00828.trmd16 ---| EQ PCPX RETURN
| Line S00200 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01052 M01S00200.trmd16 +++| PCP4 SA2 PCPB *TTC*/*TFC* FLAG
01053 M01S00201.trmd16 +++| SB5 X2
01054 M01S00202.trmd16 +++| SA0 A0+B1
01055 M01S00203.trmd16 +++| NG B5,PCPX IF NOT *TTC* OR *TFC*
| Line S00204 Modification History |
M01 (Added by) | trmd16 |
M02 (Removed by) | trmd16a |
Seq # *Modification Id* Act
----------------------------+
01056 M02S00204.trmd16a ---| SB7 A0-4
01057 M02S00205.trmd16a ---| GT B7,ERR5 IF TOO MANY CHARACTERS
| Line S00002 Modification History |
M01 (Added by) | trmd16a |
Seq # *Modification Id* Act
----------------------------+
01058 M01S00002.trmd16a +++| SB4 A0-4
01059 M01S00003.trmd16a +++| GT B4,ERR5 IF TOO MANY CHARACTERS
| Line S00206 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01060 M01S00206.trmd16 +++| SA5 TRMD
01061 M01S00207.trmd16 +++| SX6 X6+4000B
01062 M01S00208.trmd16 +++| SA6 X5+DBUF
01063 M01S00209.trmd16 +++| SX7 X5+B1
01064 M01S00210.trmd16 +++| SA7 A5
01065 M01S00211.trmd16 +++| SA2 TTPV+B6
01066 M01S00212.trmd16 +++| SA1 A2+2
01067 M01S00213.trmd16 +++| BX2 X2-X1
01068 M01S00214.trmd16 +++| NZ X2,PCP5 IF NEXT ENTRY NOT *TTC* OR *TFC*
01069 M01S00215.trmd16 +++| SA1 A1+B1 GET PARAMETER VALUE
01070 M01S00216.trmd16 +++| SB6 B6+2
01071 M01S00217.trmd16 +++| EQ PCP0 CHECK NEXT ENTRY
01072 M00S00829.trmdef +++|
01073 M00S00830.trmdef +++| PCPA BSS 1 TEMPORARY STORAGE FOR TABLE INDEX
01074 M01S00218.trmd16 +++| PCPB BSS 1 *TTC*/*TFC* FLAG
01075 M00S00831.trmdef +++| PCS SPACE 4,20
01076 M00S00832.trmdef +++|** PCS - PROCESS COMMAND ARGUMENTS.
01077 M00S00833.trmdef +++|*
01078 M00S00834.trmdef +++|* ENTRY (B6) = ADDRESS OF STRING BUFFER.
01079 M00S00835.trmdef +++|* = 0 IF NO MORE PARAMETERS.
01080 M00S00836.trmdef +++|* SET BY *POP*.
01081 M00S00837.trmdef +++|*
01082 M00S00838.trmdef +++|* EXIT *TTPV* TABLE BUILT.
01083 M00S00839.trmdef +++|* OUTPUT FILE NAME SET.
01084 M00S00840.trmdef +++|* (X1) .NE. 0 IF ERROR.
01085 M00S00841.trmdef +++|* (X5) = ADDRESS OF LAST ENTERED PARAMETER IF NO ERROR.
01086 M00S00842.trmdef +++|*
01087 M00S00843.trmdef +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
01088 M00S00844.trmdef +++|* A - 2, 3, 4, 6, 7.
01089 M00S00845.trmdef +++|* B - 3.
01090 M00S00846.trmdef +++|*
01091 M00S00847.trmdef +++|* CALLS POP.
01092 M00S00848.trmdef +++|
01093 M00S00849.trmdef +++|
01094 M00S00850.trmdef +++| PCS SUBR ENTRY/EXIT
01095 M00S00851.trmdef +++| SX1 B0+ CLEAR ERROR
01096 M00S00852.trmdef +++| SX5 TTPV-1 INITIALIZE TABLE ADDRESS
01097 M00S00853.trmdef +++| PCS1 ZR B6,PCSX IF NO MORE ARGUMENTS
01098 M00S00854.trmdef +++| RJ POP PICK OUT NEXT PARAMETER
01099 M00S00855.trmdef +++| MX1 18
01100 M00S00856.trmdef +++| NG B5,PCSX IF ERROR
01101 M00S00857.trmdef +++| BX2 X2-X2
01102 M00S00858.trmdef +++|
01103 M00S00859.trmdef +++|* SEARCH FOR MATCH IN ARGUMENT TABLE.
01104 M00S00860.trmdef +++|
01105 M00S00861.trmdef +++| ZR X6,PCSX IF BLANK ARGUMENT
01106 M00S00862.trmdef +++| SA3 TFLD GET FIRST OPTION
01107 M00S00863.trmdef +++| ZR B6,PCS2 IF TERMINATOR ENCOUNTERED
01108 M00S00864.trmdef +++| SA2 B6-B1 SEPARATOR
01109 M00S00865.trmdef +++| PCS2 BX7 X1*X3
01110 M00S00866.trmdef +++| ZR X3,PCSX IF END OF TABLE
01111 M00S00867.trmdef +++| BX4 X7-X6
01112 M00S00868.trmdef +++| SX7 A3
01113 M00S00869.trmdef +++| SA3 A3+TFLG GET NEXT OPTION
01114 M00S00870.trmdef +++| NZ X4,PCS2 IF NO MATCH
01115 M00S00871.trmdef +++| SX5 X5+B1
01116 M00S00872.trmdef +++| SA7 X5 SAVE TABLE ENTRY ADDRESS
01117 M00S00873.trmdef +++|
01118 M00S00874.trmdef +++|* PROCESS EQUIVALENCED VALUE.
01119 M00S00875.trmdef +++|
01120 M00S00876.trmdef +++| SX7 X2-1R=
01121 M00S00877.trmdef +++| NZ X7,PCSX IF ARGUMENT NOT EQUIVALENCED
01122 M00S00878.trmdef +++| BX4 X6 SAVE ATTRIBUTE
01123 M00S00879.trmdef +++| PCS3 RJ POP PICK OUT VALUE
01124 M00S00880.trmdef +++| SX1 B1+
01125 M00S00881.trmdef +++| NG B5,PCSX IF ERROR
01126 M00S00882.trmdef +++| RJ ZCA ZERO CHARACTER ATTRIBUTE CHECKER
01127 M00S00883.trmdef +++| SX5 B2 RESTORE *TTPV* POINTER
01128 M00S00884.trmdef +++| ZR X3,PCS3.1 IF BLANK ARGUMENT CHECK SKIPPED
| Line S00885 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01129 M01S00885.trmd16 ---| ZR X6,PCSX IF BLANK ARGUMENT
| Line S00219 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01130 M01S00219.trmd16 +++| SA2 POPA
01131 M01S00220.trmd16 +++| ZR X2,PCSX IF BLANK ARGUMENT
01132 M00S00886.trmdef +++| PCS3.1 BX1 X1-X1 CLEAR ERROR
01133 M00S00887.trmdef +++|
01134 M00S00888.trmdef +++|* ENTER ARGUMENT.
01135 M00S00889.trmdef +++|
01136 M00S00890.trmdef +++| SA2 X5
01137 M00S00891.trmdef +++| SX7 X2-TFLD
01138 M00S00892.trmdef +++| NZ X7,PCS4 IF NOT *L* PARAMETER
01139 M00S00893.trmdef +++| SX5 X5-1 NO ENTRY FOR *L*
01140 M00S00894.trmdef +++| SX2 3
01141 M00S00895.trmdef +++| BX6 X6+X2
01142 M00S00896.trmdef +++| SA6 O SET OUTPUT FILE NAME
01143 M00S00897.trmdef +++| EQ PCS1 PROCESS NEXT PARAMETER
01144 M00S00898.trmdef +++|
| Line S00899 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01145 M01S00899.trmd16 ---| PCS4 BX7 X2+X6 ADD VALUE TO TABLE ADDRESS
| Line S00221 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01146 M01S00221.trmd16 +++| PCS4 SB5 B5+B1 GET PARAMETER WORD LENGTH
01147 M01S00222.trmd16 +++| SX7 B5+ INSERT IN *TTPV* ENTRY
01148 M01S00223.trmd16 +++| LX7 59-5
01149 M01S00224.trmd16 +++| BX7 X7+X2 ADD TABLE ADDRESS
01150 M00S00900.trmdef +++| SA7 A2
01151 M01S00225.trmd16 +++| SB2 B0+
01152 M01S00226.trmd16 +++| PCS5 SA4 POPA+B2 SAVE PARAMETER VALUE
01153 M01S00227.trmd16 +++| SX5 X5+B1
01154 M01S00228.trmd16 +++| BX7 X4
01155 M01S00229.trmd16 +++| SA7 X5
01156 M01S00230.trmd16 +++| SB2 B2+1
01157 M01S00231.trmd16 +++| SB5 B5-B1
01158 M01S00232.trmd16 +++| NZ B5,PCS5 IF NOT THROUGH WITH PARAMETER
01159 M00S00901.trmdef +++| ZR B6,PCS1 IF TERMINATOR ENCOUNTERED
01160 M00S00902.trmdef +++| SA4 B6-B1 SEPARATOR
01161 M00S00903.trmdef +++| SX7 X4-1R/
01162 M00S00904.trmdef +++| NZ X7,PCS1 IF NOT A MULTI VALUE PARAMETER
| Line S00905 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01163 M01S00905.trmd16 ---| SX5 A2+B1 SAVE TABLE ENTRY ADDRESS
| Line S00233 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01164 M01S00233.trmd16 +++| SX5 A2+2 SAVE TABLE ENTRY ADDRESS
01165 M00S00906.trmdef +++| BX7 X2
01166 M00S00907.trmdef +++| SA7 X5
01167 M00S00908.trmdef +++| EQ PCS3 PROCESS MULTI VALUE
01168 M00S00909.trmdef +++| PDO SPACE 4,15
01169 M00S00910.trmdef +++|** PDO - PROCESS DOUBLE OCTETS.
01170 M00S00911.trmdef +++|*
01171 M00S00912.trmdef +++|* *PDO* ADDS A PAIR OF OCTETS TO CONTROL BYTE 0010B IF
01172 M00S00913.trmdef +++|* THE ATTRIBUTE VALUE IS LARGER THAN WHAT CAN BE CONTAINED
01173 M00S00914.trmdef +++|* IN EIGHT BITS. THIS ROUTINE IS APPLICABLE FOR THE
01174 M00S00915.trmdef +++|* FOLLOWING ATTRIBUTE NAMES: CRD, FFD, IBS, LFD, TML.
01175 M00S00916.trmdef +++|*
01176 M00S00917.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND.
01177 M00S00918.trmdef +++|* (B7) = INDEX INTO TABLE.
01178 M00S00919.trmdef +++|*
01179 M00S00920.trmdef +++|* EXIT CONTROL BYTE 0010B UPDATED.
01180 M00S00921.trmdef +++|*
01181 M00S00922.trmdef +++|* USES X - 0, 2, 3, 4, 5, 6, 7.
01182 M00S00923.trmdef +++|* A - 2, 3, 6, 7.
01183 M00S00924.trmdef +++|*
01184 M00S00925.trmdef +++|* CALLS DXB, EFQ, VFT.
01185 M00S00926.trmdef +++|
01186 M00S00927.trmdef +++| PDO SUBR ENTRY/EXIT
01187 M00S00928.trmdef +++| BX5 X1 GET FIELD VALUE
01188 M00S00929.trmdef +++| RJ DXB DISPLAY CODE TO BINARY
01189 M00S00930.trmdef +++| SA2 TTFN+B7 GET FIELD NUMBER
01190 M00S00931.trmdef +++| NZ X4,ERR3 IF ERROR IN TRANSLATION
01191 M00S00932.trmdef +++| MX0 -12
01192 M00S00933.trmdef +++| AX2 18
01193 M00S00934.trmdef +++| BX2 -X0*X2 FIELD NUMBER ISOLATED
01194 M00S00935.trmdef +++| RJ VFT VALIDATE FIELD VALUE
01195 M00S00936.trmdef +++| NG X6,ERR4 IF INCORRECT FIELD VALUE
01196 M00S00937.trmdef +++| MX0 -8
01197 M00S00938.trmdef +++| BX4 -X0*X6 ISOLATE SECOND OCTET
01198 M00S00939.trmdef +++| SX4 X4+4000B
01199 M00S00940.trmdef +++| AX6 8
01200 M00S00941.trmdef +++| BX3 -X0*X6 ISOLATE FIRST OCTET
01201 M00S00942.trmdef +++| NZ X3,PDO1 IF TWO OCTETS REQUIRED FOR VALUE
01202 M00S00943.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B
01203 M00S00944.trmdef +++| EQ PDOX RETURN
01204 M00S00945.trmdef +++|
01205 M00S00946.trmdef +++| PDO1 SA5 TRMD GET BUFFER INDEX
01206 M00S00947.trmdef +++| BX6 X2 GET FIELD NUMBER
01207 M00S00948.trmdef +++| SX7 4002B
01208 M00S00949.trmdef +++| SA6 X5+DBUF ENTER FIELD NUMBER INTO BUFFER
01209 M00S00950.trmdef +++| SX6 X5+4 INCREMENT INDEX
01210 M00S00951.trmdef +++| SA7 A6+B1 ENTER OCTER COUNTER INTO BUFFER
01211 M00S00952.trmdef +++| SX7 X3+4000B GET FIRST OCTET
01212 M00S00953.trmdef +++| SA7 A6+2 ENTER FIRST OCTET INTO BUFFER
01213 M00S00954.trmdef +++| SX7 X4 GET SECOND OCTET
01214 M00S00955.trmdef +++| SA7 A6+3 ENTER SECOND OCTET INTO BUFFER
01215 M00S00956.trmdef +++| SA6 A5 RESET BUFFER INDEX
01216 M00S00957.trmdef +++| EQ PDOX RETURN
01217 M00S00958.trmdef +++| PEV SPACE 4,15
01218 M00S00959.trmdef +++|** PEV - PROCESS EQUIVALENCED VALUE ARGUMENT TYPE.
01219 M00S00960.trmdef +++|*
01220 M00S00961.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND.
01221 M00S00962.trmdef +++|* (X2) = TABLE ENTRY FROM *TFLD*.
01222 M00S00963.trmdef +++|* (B5) = ADDRESS OF FIELD VALUE EQUIVALENCED CODE.
01223 M00S00964.trmdef +++|*
01224 M00S00965.trmdef +++|* EXIT (X2) = FIELD NUMBER.
01225 M00S00966.trmdef +++|* (X4) = FIELD VALUE.
01226 M00S00967.trmdef +++|* = 0 IF EQUIVALENCE VALUE NOT FOUND.
| Line S00014 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
01227 M01S00014.251l664 +++|* (X6) = NORMALIZED FIELD VALUE TO BE VALIDATED.
01228 M00S00968.trmdef +++|* (B2) .GE. 0, VALIDATE FIELD VALUE RANGE.
01229 M00S00969.trmdef +++|*
| Line S00970 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
01230 M01S00970.251l664 ---|* USES X - 0, 2, 3, 4, 6.
| Line S00015 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01231 M02S00015.trmd16 ---|* USES X - 0, 2, 3, 4, 6, 7.
| Line S00971 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01232 M01S00971.trmd16 ---|* A - 4.
01233 M01S00972.trmd16 ---|* B - 2, 4, 5.
| Line S00234 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01234 M01S00234.trmd16 +++|* USES X - 0, 1, 2, 4, 6, 7.
01235 M01S00235.trmd16 +++|* A - 1, 4.
01236 M01S00236.trmd16 +++|* B - 2, 3, 4, 5, 6.
01237 M00S00973.trmdef +++|*
01238 M00S00974.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST.
01239 M00S00975.trmdef +++|* (B7) = INDEX INTO TABLES.
01240 M00S00976.trmdef +++|
01241 M00S00977.trmdef +++|
01242 M00S00978.trmdef +++| PEV SUBR ENTRY/EXIT
01243 M00S00979.trmdef +++| SB4 3777B SET FIELD VALUE
| Line S00016 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01244 M02S00016.trmd16 ---| SX7 B5+ PRESERVE TABLE INDEX
| Line S00237 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01245 M01S00237.trmd16 +++| SA1 TTPV+B6 GET PARAMETER WORD COUNT
01246 M01S00238.trmd16 +++| SX7 B5 PRESERVE TABLE INDEX
01247 M01S00239.trmd16 +++| AX1 54
01248 M01S00240.trmd16 +++| SB3 X1
01249 M01S00241.trmd16 +++| SA1 A1+B1 GET WHOLE PARAMETER VALUE
01250 M00S00980.trmdef +++| PEV1 SA4 B5 GET EQUIVALENCE CODE
01251 M00S00981.trmdef +++| ZR X4,PEVX IF NO EQUIVALENCE FOUND
| Line S00982 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01252 M01S00982.trmd16 ---| MX3 42
01253 M01S00983.trmd16 ---| BX3 X4*X3 GET EQUIVALENCE CODE PORTION OF PARAMETER
01254 M01S00984.trmd16 ---| BX3 X3-X1 GET VALUE FLAG
01255 M00S00985.trmdef ---| SB5 B5+B1
| Line S00242 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01256 M01S00242.trmd16 +++| SB2 X4
01257 M00S00986.trmdef +++| SB4 B4+B1
| Line S00987 Modification History |
M01 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01258 M01S00987.trmd16 ---| NZ X3,PEV1 IF MATCH NOT FOUND
| Line S00988 Modification History |
M01 (Removed by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01259 M02S00988.trmd16 ---| SX4 B4 FIELD VALUE
01260 M02S00989.trmd16 ---| SB4 B4-4000B GET VALUE TO VALIDATE
| Line S00017 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01261 M02S00017.trmd16 ---| SX7 X7-BOOL
| Line S00243 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01262 M01S00243.trmd16 +++| MX0 24
01263 M01S00244.trmd16 +++| BX0 X0*X4
01264 M01S00245.trmd16 +++| NZ X0,PEV2 IF SHORT PARAMETER
01265 M01S00246.trmd16 +++| LX4 0-18
01266 M01S00247.trmd16 +++| SB5 B5+B2
01267 M01S00248.trmd16 +++| NE B3,B2,PEV1 IF WORD COUNTS DIFFERENT
01268 M01S00249.trmd16 +++| SB4 X4 SET FIELD VALUE
01269 M01S00250.trmd16 +++| SA4 A4+B1 GET EQUIVALENCE CODE
01270 M01S00251.trmd16 +++| PEV2 BX4 X4-X1
01271 M01S00252.trmd16 +++| NZ X4,PEV1 IF NO MATCH
01272 M01S00253.trmd16 +++| SB2 B2-B1
01273 M01S00254.trmd16 +++| LE B2,PEV3 IF DONE COMPARING
01274 M01S00255.trmd16 +++| SA4 A4+B1
01275 M01S00256.trmd16 +++| SA1 A1+B1
01276 M01S00257.trmd16 +++| SB6 B6+1
01277 M01S00258.trmd16 +++| EQ PEV2 CHECK NEXT WORD
01278 M01S00259.trmd16 +++|
01279 M01S00260.trmd16 +++| PEV3 SX7 X7-BOOL CHECK FOR TABLE *BOOL*
| Line S00018 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
01280 M01S00018.251l664 +++| MX0 -1
01281 M01S00019.251l664 +++| SX4 B4
| Line S00020 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01282 M02S00020.trmd16 ---| NZ X7,PEV2 IF NOT SEARCHING TABLE *BOOL*
| Line S00261 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01283 M01S00261.trmd16 +++| NZ X7,PEV4 IF NOT SEARCHING TABLE *BOOL*
| Line S00021 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
01284 M01S00021.251l664 +++| BX4 -X0*X4 NORMALIZE BOOLEAN VALUE
01285 M01S00022.251l664 +++| SB4 X4+4000B
01286 M01S00023.251l664 +++| SX4 B4
| Line S00024 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01287 M02S00024.trmd16 ---| PEV2 SB4 B4-4000B GET VALUE TO VALIDATE
| Line S00262 Modification History |
M01 (Added by) | trmd16 |
Seq # *Modification Id* Act
----------------------------+
01288 M01S00262.trmd16 +++| PEV4 SB4 B4-4000B GET VALUE TO VALIDATE
01289 M00S00990.trmdef +++| SX6 B4
01290 M00S00991.trmdef +++| MX0 -12
01291 M00S00992.trmdef +++| LX2 -18
01292 M00S00993.trmdef +++| BX2 -X0*X2 FIELD NUMBER
01293 M00S00994.trmdef +++| SB2 B1 VALIDATE RANGE
01294 M00S00995.trmdef +++| EQ PEVX RETURN
01295 M00S00996.trmdef +++| PMP SPACE 4,20
01296 M00S00997.trmdef +++|** PMP - PROCESS MULTIPLE VALUE PARAMETER.
01297 M00S00998.trmdef +++|*
01298 M00S00999.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND.
01299 M00S01000.trmdef +++|* (X2) = *TFLD* TABLE ENTRY.
01300 M00S01001.trmdef +++|* (X6) = 0.
01301 M00S01002.trmdef +++|* (B7) = INDEX TO *TFLD* TABLE.
01302 M00S01003.trmdef +++|*
01303 M00S01004.trmdef +++|* EXIT (X1) = PARAMETER FROM COMMAND.
01304 M00S01005.trmdef +++|* (X2) = *TMPV* TABLE ENTRY.
01305 M00S01006.trmdef +++|* (X3) = 0, IF NO ERROR IN PARAMETER FORMAT.
01306 M00S01007.trmdef +++|* (X6) = 1, INDICATES A MULTIPLE VALUE PARAMETER.
01307 M00S01008.trmdef +++|* (B5) = EQUIVALENCE TABLE ADDRESS.
01308 M00S01009.trmdef +++|* (B7) = INDEX INTO *TMPV* TABLE.
01309 M00S01010.trmdef +++|*
01310 M00S01011.trmdef +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7.
01311 M00S01012.trmdef +++|* A - 2, 3, 6, 7.
01312 M00S01013.trmdef +++|* B - 3, 5, 7.
01313 M00S01014.trmdef +++|
01314 M00S01015.trmdef +++|
01315 M00S01016.trmdef +++| PMP SUBR ENTRY/EXIT
01316 M00S01017.trmdef +++| SA3 PMPC GET PREVIOUS INDEX
01317 M00S01018.trmdef +++| SB5 X3
01318 M00S01019.trmdef +++| EQ B5,B7,PMP1 IF SAME PARAMETER
01319 M00S01020.trmdef +++| SX7 B7 SAVE NEW INDEX
01320 M00S01021.trmdef +++| SA7 PMPC
01321 M00S01022.trmdef +++| PMP1 MX0 -12 GET INDEX TO *TMPV* TABLE
01322 M00S01023.trmdef +++| AX2 18
01323 M00S01024.trmdef +++| BX2 -X0*X2
01324 M00S01025.trmdef +++| SB3 X2
01325 M00S01026.trmdef +++| BX3 X1 GET FIRST CHARACTER OF PARAMETER VALUE
01326 M00S01027.trmdef +++| MX0 6
01327 M00S01028.trmdef +++| BX3 X0*X3
01328 M00S01029.trmdef +++| PMP2 SA2 TMPV+B3 FIND MATCH IN TABLE
01329 M00S01030.trmdef +++| BX4 X0*X2
01330 M00S01031.trmdef +++| BX5 X4-X3
01331 M00S01032.trmdef +++| ZR X5,PMP3 IF MATCH
01332 M00S01033.trmdef +++| ZR X4,PMP3 IF POSSIBLE MATCH
01333 M00S01034.trmdef +++| LX2 24
01334 M00S01035.trmdef +++| NG X2,PMP5 IF END OF TABLE
01335 M00S01036.trmdef +++| SB3 B3+B1 INCREMENT INDEX
01336 M00S01037.trmdef +++| EQ PMP2 CHECK NEXT ENTRY FOR MATCH
01337 M00S01038.trmdef +++|
01338 M00S01039.trmdef +++| PMP3 LX4 6
01339 M00S01040.trmdef +++| SX5 X4-1RC
01340 M00S01041.trmdef +++| NZ X5,PMP4 IF NOT C FORMAT
01341 M00S01042.trmdef +++| MX3 54 STRIP OFF LEADING C
01342 M00S01043.trmdef +++| LX1 6
01343 M00S01044.trmdef +++| BX1 X3*X1
01344 M00S01045.trmdef +++| PMP4 SB7 B3 RETURN INDEX TO *TMPV* TABLE
01345 M00S01046.trmdef +++| SX6 B1 SET MULTI-PARAMETER FLAG
01346 M00S01047.trmdef +++| MX3 -18 GET TABLE ADDRESS
01347 M00S01048.trmdef +++| BX3 -X3*X2
01348 M00S01049.trmdef +++| SB5 X3 RETURN EQUIVALENCE TABLE ADDRESS
01349 M00S01050.trmdef +++| SX3 B0 CLEAR ERROR FLAG
01350 M00S01051.trmdef +++| EQ PMPX RETURN
01351 M00S01052.trmdef +++|
01352 M00S01053.trmdef +++| PMP5 SA3 TRMC INCREMENT ERROR COUNT
01353 M00S01054.trmdef +++| SX3 X3+B1
01354 M00S01055.trmdef +++| BX6 X3
01355 M00S01056.trmdef +++| SA6 A3
01356 M00S01057.trmdef +++| EQ PMPX RETURN ERROR
01357 M00S01058.trmdef +++|
01358 M00S01059.trmdef +++|
01359 M00S01060.trmdef +++| PMPA CON 0 SET IF CURRENT PARAMETER HAS MULTI-VALUES
01360 M00S01061.trmdef +++| PMPC CON 0 *TTFN* TABLE INDEX
01361 M01S00263.trmd16 +++| POP SPACE 4,15
01362 M01S00264.trmd16 +++|*** POP - PICK OUT TRMDEF PARAMETER FROM STRING BUFFER.
01363 M01S00265.trmd16 +++|*
01364 M01S00266.trmd16 +++|* A LITERAL PARAMETER IS DELIMITED BY *$*. IF THE
01365 M01S00267.trmd16 +++|* LITERAL IS TO CONTAIN A *$*, *$$* MUST BE USED.
01366 M01S00268.trmd16 +++|* EG. - $A B/C$$E$ YIELDS A B/C$E
01367 M01S00269.trmd16 +++|*
01368 M01S00270.trmd16 +++|* THE ASTERISK (*) AND UNDERLINE (_) ARE CONSIDERED TO BE
01369 M01S00271.trmd16 +++|* VALID PARAMETER CHARACTERS, NOT SEPARATORS.
01370 M01S00272.trmd16 +++|*
01371 M01S00273.trmd16 +++|* *POPL* DEFINES THE MAXIMUM PARAMETER LENGTH IN WORDS.
01372 M01S00274.trmd16 +++|*
01373 M01S00275.trmd16 +++|* NOTE - THIS ROUTINE IS A MODIFIED VERSION OF *COMCPOP*.
01374 M01S00276.trmd16 +++|*
01375 M01S00277.trmd16 +++|* ENTRY (B6) = ADDRESS TO BEGIN ASSEMBLY.
01376 M01S00278.trmd16 +++|* (USBC) = ADDRESS OF LAST CHARACTER IN STRING BUFFER.
01377 M01S00279.trmd16 +++|*
01378 M01S00280.trmd16 +++|* EXIT (X6) = LAST PART OF ASSEMBLED PARAMETER OR PARAMETER
01379 M01S00281.trmd16 +++|* IF .LT. 10 CHARACTERS.
01380 M01S00282.trmd16 +++|* (B5) = PARAMETER LENGTH (IN WORDS) - 1.
01381 M01S00283.trmd16 +++|* = NEGATIVE IF BUFFER EXHAUSTED OR ERROR.
01382 M01S00284.trmd16 +++|* (B6) = 0 IF *.* OR *)* ENCOUNTERED.
01383 M01S00285.trmd16 +++|* = POSITIVE, NEXT STRING BUFFER ADDRESS.
01384 M01S00286.trmd16 +++|* (A1) = ADDRESS OF SEPARATOR.
01385 M01S00287.trmd16 +++|* (X1) = SEPARATOR.
01386 M01S00288.trmd16 +++|* (X2) = NEGATIVE IF *.* OR *)* ENCOUNTERED
01387 M01S00289.trmd16 +++|* AND NO ERRORS.
01388 M01S00290.trmd16 +++|* = 0 IF CHARACTER ENCOUNTERED WITH
01389 M01S00291.trmd16 +++|* DISPLAY CODE GREATER THAN 57B (.).
01390 M01S00292.trmd16 +++|*
01391 M01S00293.trmd16 +++|*
01392 M01S00294.trmd16 +++|* USES A - 1, 6, 7.
01393 M01S00295.trmd16 +++|* X - 1, 2, 3, 6, 7.
01394 M01S00296.trmd16 +++|* B - 1, 2, 3, 4, 5, 6, 7.
01395 M01S00297.trmd16 +++|
01396 M01S00298.trmd16 +++|
01397 M01S00299.trmd16 +++| POP13 SB5 -1 SET ERROR FLAG
01398 M01S00300.trmd16 +++| EQ POPX RETURN
01399 M01S00301.trmd16 +++|
01400 M01S00302.trmd16 +++| POP14 SX3 4100B CHECK FOR VALID TERMINATOR
01401 M01S00303.trmd16 +++| BX7 X7-X7
01402 M01S00304.trmd16 +++| AX2 X3,B2
01403 M01S00305.trmd16 +++| SA6 POPA+B5 STORE PARAMETER WORD
01404 M01S00306.trmd16 +++| SB2 B4-60 CHECK FOR EMPTY ASSEMBLE REGISTER
01405 M01S00307.trmd16 +++| EQ B2,B0,POP15 IF EMPTY ASSEMBLY REGISTER
01406 M01S00308.trmd16 +++| SB2 B5-POPL CHECK PARAMETER SIZE
01407 M01S00309.trmd16 +++| PL B2,POP13 IF PARAMETER TOO LONG
01408 M01S00310.trmd16 +++| SA7 A6+1
01409 M01S00311.trmd16 +++| POP15 LX2 59 CHECK TERMINATOR
01410 M01S00312.trmd16 +++| PL X2,POP16 IF NOT *.* OR *)*
01411 M01S00313.trmd16 +++| SB6 B0 SET TERMINATOR ENCOUNTERED
01412 M01S00314.trmd16 +++| POP16 SB4 B4-60
01413 M01S00315.trmd16 +++| NE B4,B0,POPX IF NOT EMPTY ASSEMBLY REGISTER
01414 M01S00316.trmd16 +++| EQ B5,B0,POPX IF .LT. 11D CHARACTERS
01415 M01S00317.trmd16 +++| SB5 B5-1
01416 M01S00318.trmd16 +++|
01417 M01S00319.trmd16 +++| POP SUBR ENTRY/EXIT
01418 M01S00320.trmd16 +++| SB5 -1 SET PARAMETER LENGTH INDEX
01419 M01S00321.trmd16 +++| LE B6,POPX IF NO ASSEMBLY POINTER
01420 M01S00322.trmd16 +++| SA1 USBC GET LAST CHARACTER LOCATION
01421 M01S00323.trmd16 +++| SB7 X1+1
01422 M01S00324.trmd16 +++| POP1 SB4 60 POSITION INDEX
01423 M01S00325.trmd16 +++| BX6 X6-X6 CLEAR ASSEMBLY REGISTER
01424 M01S00326.trmd16 +++| SB5 B5+B1
01425 M01S00327.trmd16 +++| POP2 SA1 B6
01426 M01S00328.trmd16 +++| LT B6,B7,POP3 IF MORE CHARACTERS IN STRING BUFFER
01427 M01S00329.trmd16 +++| SB3 POPL
01428 M01S00330.trmd16 +++| GT B5,B3,POP13 IF BUFFER FULL
01429 M01S00331.trmd16 +++| SA6 POPA+B5
01430 M01S00332.trmd16 +++| EQ POP13 SET ERROR FLAG - NO TERMINATOR
01431 M01S00333.trmd16 +++|
01432 M01S00334.trmd16 +++| POP3 SX2 X1-1R
01433 M01S00335.trmd16 +++| NZ B4,POP4 IF ASSEMBLY REGISTER NOT FULL
01434 M01S00336.trmd16 +++| SA6 POPA+B5 STORE FULL WORD
01435 M01S00337.trmd16 +++| SB2 B5-POPL
01436 M01S00338.trmd16 +++| NG B2,POP1 IF PARAMETER NOT TOO LONG
01437 M01S00339.trmd16 +++| EQ POP13 SET ERROR FLAG - PARAMETER TOO LONG
01438 M01S00340.trmd16 +++|
01439 M01S00341.trmd16 +++| POP4 SX3 X1-1R$
01440 M01S00342.trmd16 +++| SB6 B6+1
01441 M01S00343.trmd16 +++| SB2 X1-1R9
01442 M01S00344.trmd16 +++| ZR X3,POP6 IF LITERAL PARAMETER
01443 M01S00345.trmd16 +++| SX3 X1-1R*
01444 M01S00346.trmd16 +++| ZR X3,POP5 IF CHARACTER = *
01445 M01S00347.trmd16 +++| ZR X2,POP2 IF CHARACTER = * *
01446 M01S00348.trmd16 +++| ZR X1,POP14 IF CHARACTER 00
01447 M01S00349.trmd16 +++| LE B2,POP5 IF ALPHANUMERIC
01448 M01S00350.trmd16 +++| SX3 X1-65B
01449 M01S00351.trmd16 +++| NZ X3,POP14 IF NOT UNDERLINE
01450 M01S00352.trmd16 +++| POP5 SB4 B4-6
01451 M01S00353.trmd16 +++| LX7 X1,B4
01452 M01S00354.trmd16 +++| BX6 X7+X6
01453 M01S00355.trmd16 +++| EQ POP2 CHECK NEXT CHARACTER
01454 M01S00356.trmd16 +++|
01455 M01S00357.trmd16 +++| POP6 SX7 B4-60 CHECK FOR DELIMITER AS FIRST CHARACTER
01456 M01S00358.trmd16 +++| SX3 X7+B5
01457 M01S00359.trmd16 +++| NZ X3,POP13 IF DELIMITER NOT FIRST CHARACTER
01458 M01S00360.trmd16 +++| POP7 SA1 B6
01459 M01S00361.trmd16 +++| SX3 X1-1R$
01460 M01S00362.trmd16 +++| SB6 B6+B1
01461 M01S00363.trmd16 +++| GT B6,B7,POP13 IF NO MORE CHARACTERS IN STRING BUFFER
01462 M01S00364.trmd16 +++| NZ X3,POP11 IF NO DELIMITER
01463 M01S00365.trmd16 +++| SA1 B6
01464 M01S00366.trmd16 +++| SX3 X1-1R$
01465 M01S00367.trmd16 +++| SB6 B6+B1
01466 M01S00368.trmd16 +++| GT B6,B7,POP10 IF NO MORE CHARACTERS IN STRING BUFFER
01467 M01S00369.trmd16 +++| ZR X3,POP11 IF DOUBLE DELIMITER
01468 M01S00370.trmd16 +++| POP8 SX3 X1-1R*
01469 M01S00371.trmd16 +++| SB2 X1-1R$
01470 M01S00372.trmd16 +++| ZR X3,POP13 IF ILLEGAL SEPARATOR
01471 M01S00373.trmd16 +++| ZR B2,POP13 IF ILLEGAL SEPARATOR
01472 M01S00374.trmd16 +++| ZR X1,POP14 IF 00 CHARACTER
01473 M01S00375.trmd16 +++| SB2 X1-1R9
01474 M01S00376.trmd16 +++| SX3 X1-1R
01475 M01S00377.trmd16 +++| LE B2,POP13 IF ALPHANUMERIC CHARACTER
01476 M01S00378.trmd16 +++| NZ X3,POP14 IF NOT BLANK
01477 M01S00379.trmd16 +++| POP9 SA1 B6
01478 M01S00380.trmd16 +++| SB6 B6+B1
01479 M01S00381.trmd16 +++| LE B6,B7,POP8 IF MORE CHARACTERS IN STRING BUFFER
01480 M01S00382.trmd16 +++| POP10 BSS 0
01481 M01S00383.trmd16 +++| EQ POP13 SET ERROR FLAG - NO TERMINATOR
01482 M01S00384.trmd16 +++|
01483 M01S00385.trmd16 +++| POP11 NZ B4,POP12 IF ASSEMBLY WORD NOT FULL
01484 M01S00386.trmd16 +++| SA6 POPA+B5 STORE ASSEMBLY WORD
01485 M01S00387.trmd16 +++| SB2 B5-POPL
01486 M01S00388.trmd16 +++| PL B2,POP13 IF PARAMETER TOO LONG
01487 M01S00389.trmd16 +++| SB4 60
01488 M01S00390.trmd16 +++| BX6 X6-X6
01489 M01S00391.trmd16 +++| SB5 B5+B1
01490 M01S00392.trmd16 +++| POP12 SB4 B4-6
01491 M01S00393.trmd16 +++| LX7 X1,B4
01492 M01S00394.trmd16 +++| BX6 X6+X7
01493 M01S00395.trmd16 +++| EQ POP7 CHECK NEXT CHARACTER
01494 M01S00396.trmd16 +++|
01495 M01S00397.trmd16 +++| POPL EQU 6 MAXIMUM PARAMETER LENGTH IN WORDS
01496 M01S00398.trmd16 +++| POPA BSS POPL+1 ASSEMBLY BUFFER
01497 M00S01062.trmdef +++| PPS SPACE 4,15
01498 M00S01063.trmdef +++|** PPS - PACK PARAMETER STRING - CONTROL BYTE 0016B.
01499 M00S01064.trmdef +++|*
01500 M00S01065.trmdef +++|* ENTRY (TRMA) = NUMBER OF ENTRIES TO PACK.
01501 M00S01066.trmdef +++|* (CBUF) = FIELD NUMBER/FIELD VALUE PAIRS.
01502 M00S01067.trmdef +++|*
01503 M00S01068.trmdef +++|* EXIT (OBUF) = PACKED CONTROL BYTE PARAMETER STRING.
01504 M00S01069.trmdef +++|* (B7) = WORD COUNT OF PACKED STRING.
01505 M00S01070.trmdef +++|*
01506 M00S01071.trmdef +++|* USES X - 1, 5, 6.
01507 M00S01072.trmdef +++|* A - 1, 5, 6.
01508 M00S01073.trmdef +++|* B - 5, 7.
01509 M00S01074.trmdef +++|
01510 M00S01075.trmdef +++|
01511 M00S01076.trmdef +++| PPS SUBR ENTRY/EXIT
01512 M00S01077.trmdef +++| SA5 TRMA NUMBER OF ENTRIES TO PACK
01513 M00S01078.trmdef +++| SA1 CBUF GET FIRST ENTRY TO PACK
01514 M00S01079.trmdef +++| SB7 B0+ INDEX TO *OBUF*
01515 M00S01080.trmdef +++| PPS1 BX6 X6-X6
01516 M00S01081.trmdef +++| SB5 5 PACKED ENTRIES PER WORD
01517 M00S01082.trmdef +++| PPS2 BX6 X6+X1
01518 M00S01083.trmdef +++| SB5 B5-B1
01519 M00S01084.trmdef +++| SA1 A1+B1 GET NEXT ENTRY TO PACK
01520 M00S01085.trmdef +++| LX6 12
01521 M00S01086.trmdef +++| NZ B5,PPS2 IF WORD NOT FILLED
01522 M00S01087.trmdef +++| LX6 -12
01523 M00S01088.trmdef +++| SA6 B7+OBUF ENTER INTO OUTPUT BUFFER
01524 M00S01089.trmdef +++| SB7 B7+1 INCREMENT INDEX
01525 M00S01090.trmdef +++| SX5 X5-5
01526 M00S01091.trmdef +++| PL X5,PPS1 IF NOT END OF ENTRIES TO PACK
01527 M00S01092.trmdef +++| EQ PPSX RETURN
01528 M00S01093.trmdef +++| PPT SPACE 4,15
01529 M00S01094.trmdef +++|** PPT - PACK PARAMETER STRING - CONTROL BYTE 0010B.
01530 M00S01095.trmdef +++|*
01531 M00S01096.trmdef +++|* ENTRY (TRMD) = NUMBER OF ENTRIES TO PACK.
01532 M00S01097.trmdef +++|* (DBUF) = FIELD NUMBER/FIELD VALUE PAIRS.
01533 M00S01098.trmdef +++|*
01534 M00S01099.trmdef +++|* EXIT (OBUF) = PACKED CONTROL BYTE PARAMETER STRING.
01535 M00S01100.trmdef +++|* (B7) = WORD COUNT OF PACKED STRING.
01536 M00S01101.trmdef +++|*
01537 M00S01102.trmdef +++|* USES X - 1, 5, 6.
01538 M00S01103.trmdef +++|* A - 1, 5, 6.
01539 M00S01104.trmdef +++|* B - 5, 7.
01540 M00S01105.trmdef +++|
01541 M00S01106.trmdef +++|
01542 M00S01107.trmdef +++| PPT SUBR ENTRY/EXIT
01543 M00S01108.trmdef +++| SA5 TRMD NUMBER OF ENTRIES TO PACK
01544 M00S01109.trmdef +++| SA1 DBUF GET FIRST ENTRY TO PACK
01545 M00S01110.trmdef +++| SB7 B0+ INDEX TO *OBUF*
01546 M00S01111.trmdef +++| PPT1 BX6 X6-X6
01547 M00S01112.trmdef +++| SB5 5 PACKED ENTRIES PER WORD
01548 M00S01113.trmdef +++| PPT2 BX6 X6+X1
01549 M00S01114.trmdef +++| SB5 B5-B1
01550 M00S01115.trmdef +++| SA1 A1+B1 GET NEXT ENTRY TO PACK
01551 M00S01116.trmdef +++| LX6 12
01552 M00S01117.trmdef +++| NZ B5,PPT2 IF WORD NOT FILLED
01553 M00S01118.trmdef +++| LX6 -12
01554 M00S01119.trmdef +++| SA6 B7+OBUF ENTER INTO OUTPUT BUFFER
01555 M00S01120.trmdef +++| SB7 B7+1 INCREMENT INDEX
01556 M00S01121.trmdef +++| SX5 X5-5
01557 M00S01122.trmdef +++| PL X5,PPT1 IF NOT END OF ENTRIES TO PACK
01558 M00S01123.trmdef +++| EQ PPTX RETURN
01559 M00S01124.trmdef +++| PTP SPACE 4,15
01560 M00S01125.trmdef +++|** PTP - PROCESS *TC* PARAMETER.
01561 M00S01126.trmdef +++|*
01562 M00S01127.trmdef +++|* ENTRY (X6) = VALUE ENTERED FOR *TC* PARAMETER.
01563 M00S01128.trmdef +++|* (TRMB) = CURRENT TERMINAL CLASS FOR VALIDATION.
01564 M00S01129.trmdef +++|*
01565 M00S01130.trmdef +++|* EXIT (X3) .LT. 0 IF ERROR.
01566 M00S01131.trmdef +++|* (TRMB) = NEW TERMINAL CLASS FOR VALIDATION.
01567 M00S01132.trmdef +++|*
01568 M00S01133.trmdef +++|* USES X - 1, 3, 5, 7.
01569 M00S01134.trmdef +++|* A - 1, 6.
01570 M00S01135.trmdef +++|*
01571 M00S01136.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST.
01572 M00S01137.trmdef +++|* (B7) = INDEX INTO TABLES.
01573 M00S01138.trmdef +++|* (X2) = FIELD NUMBER.
01574 M00S01139.trmdef +++|* (X4) = FIELD VALUE.
01575 M00S01140.trmdef +++|
01576 M00S01141.trmdef +++|
01577 M00S01142.trmdef +++| PTP SUBR ENTRY/EXIT
01578 M00S01143.trmdef +++| SX3 -1 SET ERROR FLAG
01579 M00S01144.trmdef +++| SX5 X6-1
01580 M00S01145.trmdef +++| NG X5,PTPX IF INCORRECT TERMINAL CLASS
01581 M00S01146.trmdef +++| SX5 X6-LTCN LARGEST TERMINAL CLASS NUMBER
01582 M00S01147.trmdef +++| PL X5,PTPX IF INCORRECT TERMINAL CLASS
01583 M00S01148.trmdef +++|
01584 M00S01149.trmdef +++|* VALIDATE FOR LEGAL TERMINAL CLASS CHANGE.
01585 M00S01150.trmdef +++|
01586 M00S01151.trmdef +++| SA1 TRMB GET CONNECTED TERMINAL CLASS
01587 M00S01152.trmdef +++| BX3 X1-X6
01588 M00S01153.trmdef +++| ZR X3,PTPX IF NO TERMINAL CLASS CHANGE
01589 M00S01154.trmdef +++| SA1 X1+TLTC GET ALLOWED CHANGE LIMITS
01590 M00S01155.trmdef +++| SX7 X1 LOWER BOUND
01591 M00S01156.trmdef +++| LX1 17-35
01592 M00S01157.trmdef +++| SX1 X1 UPPER BOUND
01593 M00S01158.trmdef +++| IX3 X6-X7
01594 M00S01159.trmdef +++| NG X3,PTPX IF INCORRECT TERMINAL CLASS CHANGE
01595 M00S01160.trmdef +++| IX3 X1-X6
01596 M00S01161.trmdef +++| NG X3,PTPX IF INCORRECT TERMINAL CLASS CHANGE
01597 M00S01162.trmdef +++| PTP1 BX3 X3-X3 CLEAR ERROR FLAG
01598 M00S01163.trmdef +++| SA6 TRMB SET NEW TERMINAL CLASS
01599 M00S01164.trmdef +++| EQ PTPX RETURN
01600 M00S01165.trmdef +++| SAF SPACE 4,20
01601 M00S01166.trmdef +++|** SAF - SET ATTRIBUTE FLAGS.
01602 M00S01167.trmdef +++|*
01603 M00S01168.trmdef +++|* ENTRY (B7) = INDEX INTO TABLES.
01604 M00S01169.trmdef +++|*
01605 M00S01170.trmdef +++|* EXIT (TRMF) POINTERS UPDATED.
01606 M00S01171.trmdef +++|*
01607 M00S01172.trmdef +++|* USES X - 2, 7.
01608 M00S01173.trmdef +++|* A - 2, 7.
01609 M00S01174.trmdef +++|
01610 M00S01175.trmdef +++|
01611 M00S01176.trmdef +++| SAF SUBR ENTRY/EXIT
01612 M00S01177.trmdef +++| SX7 B1
01613 M00S01178.trmdef +++| SA2 TFVR+B7 ATTRIBUTE TYPE CHECK
01614 M00S01179.trmdef +++| LX2 59-39
01615 M00S01180.trmdef +++| NG X2,SAF1 IF COMMON ATTRIBUTE
01616 M00S01181.trmdef +++| LX2 1
01617 M00S01182.trmdef +++| NG X2,SAF2 IF NAM/CDNA ATTRIBUTE
01618 M00S01183.trmdef +++| LX2 1
01619 M00S01184.trmdef +++| NG X2,SAF3 IF NAM/CCP ATTRIBUTE
01620 M00S01185.trmdef +++|
01621 M00S01186.trmdef +++| SAF1 SA7 TRMF+2 SET COMMON FLAG
01622 M00S01187.trmdef +++| EQ SAFX RETURN
01623 M00S01188.trmdef +++|
01624 M00S01189.trmdef +++| SAF2 SA7 TRMF+1 SET CDNA FLAG
01625 M00S01190.trmdef +++| EQ SAFX RETURN
01626 M00S01191.trmdef +++|
01627 M00S01192.trmdef +++| SAF3 SA7 TRMF SET CCP FLAG
01628 M00S01193.trmdef +++| EQ SAFX RETURN
01629 M00S01194.trmdef +++| SEP SPACE 4,20
01630 M00S01195.trmdef +++|** SEP - SEND EXTRA FN/FV PAIR.
01631 M00S01196.trmdef +++|*
01632 M00S01197.trmdef +++|* ENTRY (X2) = CURRENT FIELD NUMBER.
01633 M00S01198.trmdef +++|* (X4) = CURRENT FIELD VALUE.
01634 M00S01199.trmdef +++|* (X6) = FIELD VALUE TO BE VALIDATED.
01635 M00S01200.trmdef +++|* (A2) = *TMPV* TABLE ENTRY.
| Line S00001 Modification History |
M01 (Added by) | trmd13 |
Seq # *Modification Id* Act
----------------------------+
01636 M01S00001.trmd13 +++|* (B5) = 0.
01637 M00S01201.trmdef +++|* (B7) = INDEX INTO TABLES.
01638 M00S01202.trmdef +++|*
01639 M00S01203.trmdef +++|* EXIT (X2) = CURRENT FIELD NUMBER.
01640 M00S01204.trmdef +++|* (X4) = CURRENT FIELD VALUE.
01641 M00S01205.trmdef +++|* (X6) = FIELD VALUE TO BE VALIDATED.
01642 M00S01206.trmdef +++|* (B5) .LT. 0, IF *C* VALUE TOO LARGE.
01643 M00S01207.trmdef +++|* .GE. 0, IF *C* VALUE LESS THAN 4096.
01644 M00S01208.trmdef +++|* (B7) = INDEX INTO TABLES.
01645 M00S01209.trmdef +++|*
01646 M00S01210.trmdef +++|* EXIT TO VFT3.
01647 M00S01211.trmdef +++|*
01648 M00S01212.trmdef +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
01649 M00S01213.trmdef +++|* A - 1, 2.
01650 M00S01214.trmdef +++|* B - 3, 4, 5.
01651 M00S01215.trmdef +++|*
01652 M00S01216.trmdef +++|* CALLS EFP.
01653 M00S01217.trmdef +++|
01654 M00S01218.trmdef +++|
01655 M00S01219.trmdef +++|* SEND *DL*/*XL* FLAG.
01656 M00S01220.trmdef +++|
01657 M00S01221.trmdef +++| SEP SX3 B0 FIELD VALUE
01658 M00S01222.trmdef +++| EQ SEP2 CONTINUE
01659 M00S01223.trmdef +++|
01660 M00S01224.trmdef +++| SEP1 SX3 B1 FIELD VALUE
01661 M00S01225.trmdef +++| SEP2 SB3 X4 SAVE CURRENT FIELD VALUE
01662 M00S01226.trmdef +++| SB4 X2 SAVE CURRENT FIELD NUMBER
01663 M00S01227.trmdef +++| SX4 X3+4000B SET UP DL/XL FLAG
01664 M00S01228.trmdef +++| SX2 MXFN FIELD NUMBER
01665 M00S01229.trmdef +++| SX3 X6 SAVE VALUE TO VERIFY
01666 M00S01230.trmdef +++| RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B
01667 M00S01231.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B
01668 M00S01232.trmdef +++| SX4 B3 RESTORE CURRENT FIELD VALUE
01669 M00S01233.trmdef +++| SX2 B4 RESTORE CURRENT FIELD NUMBER
01670 M00S01234.trmdef +++| SX6 X3 RESTORE VALUE TO VALIDATE
01671 M00S01235.trmdef +++| SA1 TMPV+B7 CHECK FIELD VALUE FORMAT
01672 M00S01236.trmdef +++| MX0 6
01673 M00S01237.trmdef +++| BX1 X0*X1
01674 M00S01238.trmdef +++| LX1 6
01675 M00S01239.trmdef +++| SX5 X1-1RC
01676 M00S01240.trmdef +++| NZ X5,SEP3 IF NOT *C* FORMAT
01677 M00S01241.trmdef +++| SX1 X6-256D
01678 M00S01242.trmdef +++| SB7 B7+B1 INCREMENT TABLE INDEX
01679 M00S01243.trmdef +++| SX4 4000B CLEAR UPPER BYTE
01680 M01S00002.trmd13 +++| SB5 -B1 SET ERROR FLAG
01681 M00S01244.trmdef +++| NG X1,SEP2.1 IF LESS THAN 8 BITS
01682 M00S01245.trmdef +++| AX6 8 GET UPPER 4 BITS
01683 M00S01246.trmdef +++| SX1 X6-16D
| Line S01247 Modification History |
M01 (Removed by) | trmd13 |
Seq # *Modification Id* Act
----------------------------+
01684 M01S01247.trmd13 ---| SB5 -B1 SET ERROR FLAG
01685 M00S01248.trmdef ---| PL X1,SEP3 IF VALUE TOO LARGE
01686 M01S01249.trmd13 ---| SB5 B0 CLEAR ERROR FLAG
01687 M00S01250.trmdef ---| SX4 X6+4000B FIELD VALUE
01688 M01S01251.trmd13 ---| SEP2.1 RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B
| Line S00003 Modification History |
M01 (Added by) | trmd13 |
Seq # *Modification Id* Act
----------------------------+
01689 M01S00003.trmd13 +++| SEP2.1 ZR X6,SEP3 IF VALUE TOO SMALL
01690 M01S00004.trmd13 +++| SB5 B0+ CLEAR ERROR FLAG
01691 M01S00005.trmd13 +++| RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B
01692 M00S01252.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B
01693 M00S01253.trmdef +++| SA2 A2+B1
01694 M00S01254.trmdef +++| AX2 18
01695 M00S01255.trmdef +++| SX2 X2
01696 M00S01256.trmdef +++| MX0 -8
01697 M00S01257.trmdef +++| SX6 X3
01698 M00S01258.trmdef +++| BX6 -X0*X6
01699 M00S01259.trmdef +++| SX4 X6+4000B RESTORE FIELD VALUE
01700 M00S01260.trmdef +++| SEP3 JP VFT3 RETURN
01701 M00S01261.trmdef +++|
01702 M00S01262.trmdef +++|* TRANSLATE *IN* FIELD VALUE.
01703 M00S01263.trmdef +++|
01704 M00S01264.trmdef +++| SEP4 SB4 X4-4000B GET FIELD VALUE
01705 M00S01265.trmdef +++| SA1 SEPA+B4
01706 M00S01266.trmdef +++| MX0 -12
01707 M00S01267.trmdef +++| SEP5 LX1 12 FIND FN/FV PAIR
01708 M00S01268.trmdef +++| BX2 -X0*X1 GET TRUE FIELD NUMBER
01709 M00S01269.trmdef +++| LX1 12
01710 M00S01270.trmdef +++| BX4 -X0*X1 GET TRUE FIELD VALUE
01711 M00S01271.trmdef +++| PL X1,SEP3 IF NOT TWO PAIRS
01712 M00S01272.trmdef +++| LX1 6