cdc:nos2.source:opl.opl871:deck:trmdef
Deck TRMDEF
12 Modifications
Listing Sections
- Deck TRMDEF Start
- Deck TRMDEF Part 1 (Line 1738)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.trmdef +++| IDENT TRMDEF,FETS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00002 M02S00002.trmd16 ---| SST
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00003 M02S00003.trmd16 ---| ABS 00004 M01S00001.trmd16 +++| ABS 00005 M01S00002.trmd16 +++| SST 00006 M01S00004.trmdef +++| ENTRY TRMDEF 00007 M01S00003.trmd16 +++| ENTRY ARG= 00008 M01S00005.trmdef +++| ENTRY RFL= 00009 M01S00006.trmdef +++| SYSCOM B1 00010 M01S00007.trmdef +++| BASE DECIMAL 00011 M01S00008.trmdef +++|*COMMENT TRMDEF - DEFINE TERMINAL CHARACTERISTICS.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M01S00010.trmdef +++| 00015 M01S00011.trmdef +++| TRMDEF TITLE TRMDEF - DEFINE TERMINAL CHARACTERISTICS. 00016 M01S00012.trmdef +++| SPACE 4,10 00017 M01S00013.trmdef +++|***** TRMDEF - DEFINE TERMINAL CHARACTERISTICS. 00018 M01S00014.trmdef +++|* 00019 M01S00015.trmdef +++|* B. M. SLIWINSKI. 79/02/22. 00020 M01S00016.trmdef +++|* J. P. LITTLE. 85/07/12. 00021 M01S00017.trmdef +++|* 00022 M01S00018.trmdef +++|* *TRMDEF* MAKES IT POSSIBLE FOR INTERACTIVE USERS TO CHANGE 00023 M01S00019.trmdef +++|* THE CHARACTERISTICS OF THEIR CONNECTED TERMINAL THROUGH THE 00024 M01S00020.trmdef +++|* USE OF THE *TRMDEF* COMMAND. 00025 M01S00021.trmdef +++| SPACE 4,10 00026 M01S00022.trmdef +++|*** *TRMDEF* ACCEPTS AS INPUT A SINGLE COMMAND. 00027 M01S00023.trmdef +++|* VALIDATION OF THE SPECIFIED PARAMETERS FOR CORRECT TYPE, 00028 M01S00024.trmdef +++|* RANGE, AND TERMINAL TYPE IS DONE IN THE ORDER THEY APPEAR 00029 M01S00025.trmdef +++|* ON THE COMMAND. THE CONNECTED TERMINAL TYPE IS USED 00030 M01S00026.trmdef +++|* FOR VALIDATIONS OF OTHER PARAMETERS UNTIL A CHANGE OF 00031 M01S00027.trmdef +++|* TERMINAL CLASS (*TC*) IS ENCOUNTERED. IF THIS CHANGE IS 00032 M01S00028.trmdef +++|* LEGAL, THEN SUBSEQUENT PARAMETERS WILL USE THIS TERMINAL 00033 M01S00029.trmdef +++|* CLASS FOR VALIDATION. 00034 M01S00030.trmdef +++|* 00035 M01S00031.trmdef +++|* IF ALL CHANGES ARE LEGAL, A CONTROL BYTE PARAMETER STRING 00036 M01S00032.trmdef +++|* IS BUILT. THERE ARE TWO TYPES OF CONTROL BYTE STRINGS THAT 00037 M01S00033.trmdef +++|* ARE BUILT, 0010B AND 0016B, DEPENDING ON THE TYPE OF NETWORK 00038 M01S00034.trmdef +++|* THAT THE TERMINAL IS CONNECTED TO. IF THE NETWORK CONNECTION 00039 M01S00035.trmdef +++|* IS OF TYPE NAM/CDNA, THEN CONTROL BYTE 0010B IS BUILT (UNLESS 00040 M01S00036.trmdef +++|* ALL THE PARAMETERS ENTERED ARE CCP TERMINAL DEFINITIONS). 00041 M01S00037.trmdef +++|* IF THE NETWORK CONNECTION IS OF TYPE NAM/CCP, THEN CONTROL
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00042 M02S00038.trmd16 ---|* BYTE 0010B IS BUILT. IF CONTROL BYTE 0016B IS BUILT, IT HAS 00043 M01S00004.trmd16 +++|* BYTE 0016 IS BUILT. IF CONTROL BYTE 0016 IS BUILT, IT HAS 00044 M01S00039.trmdef +++|* THE FOLLOWING FORM: 00045 M01S00040.trmdef +++|* 00046 M01S00041.trmdef +++|* 12/CB,12/FN,12/FV,...,12/FN,12/FV,EOL 00047 M01S00042.trmdef +++|* CB = CONTROL BYTE 0016B. 00048 M01S00043.trmdef +++|* FN = 4000B + FIELD NUMBER. 00049 M01S00044.trmdef +++|* FV = 4000B + FIELD VALUE. 00050 M01S00045.trmdef +++|* 00051 M01S00046.trmdef +++|* IF CONTROL BYTE 0010B IS BUILT, IT HAS THE FOLLOWING FORM 00052 M01S00047.trmdef +++|* 00053 M01S00048.trmdef +++|* 12/CB,12/AN,12/OC(N),12/AV(0),...,12/AV(N),12/AN,12/AV,EOL 00054 M01S00049.trmdef +++|* CB = CONTROL BYTE 0010B. 00055 M01S00050.trmdef +++|* AN = 4000B + ATTRIBUTE NUMBER. 00056 M01S00051.trmdef +++|* OC(N) = OCTET COUNTER. 00057 M01S00052.trmdef +++|* AV(0) = 4000B + ATTRIBUTE VALUE(0). 00058 M01S00053.trmdef +++|* AV(N) = 4000B + ATTRIBUTE VALUE(N). 00059 M01S00054.trmdef +++|* 00060 M01S00055.trmdef +++|* THIS STRING IS WRITTEN TO *OUTPUT* OR THE FILE SPECIFIED 00061 M01S00056.trmdef +++|* ON THE COMMAND. 00062 M01S00057.trmdef +++| SPACE 4,10 00063 M01S00058.trmdef +++|*** COMMAND CALL. 00064 M01S00059.trmdef +++|* 00065 M01S00060.trmdef +++|* TRMDEF,XX=VALUE,...,XX=VALUE,L=FN. 00066 M01S00061.trmdef +++|* OR 00067 M01S00062.trmdef +++|* TRMDEF,XX=VALUE/VALUE/...,XX=VALUE,L=FN. 00068 M01S00063.trmdef +++|* 00069 M01S00064.trmdef +++|* XX = ONE - THREE CHARACTER MNEMONIC FOR THE 00070 M01S00065.trmdef +++|* TERMINAL DEFINITION PARAMETER. 00071 M01S00066.trmdef +++|* VALUE = LEGAL VALUE FOR A GIVEN TERMINAL DEFINITION 00072 M01S00067.trmdef +++|* PARAMETER. SOME PARAMETERS MAY HAVE MULTIPLE 00073 M01S00068.trmdef +++|* VALUES WITH THE FORMAT: XX=VALUE/VALUE... 00074 M01S00069.trmdef +++|* L = OUTPUT FILE. 00075 M01S00070.trmdef +++|* IF FN IS SPECIFIED, WRITE OUTPUT TO FILE *FN*. 00076 M01S00071.trmdef +++|* THE DEFAULT IS *OUTPUT*. 00077 M01S00072.trmdef +++|* 00078 M01S00073.trmdef +++|* 00079 M01S00074.trmdef +++|* THE POSSIBLE MNEMONICS FOR *XX* ARE AS FOLLOWS. 00080 M01S00075.trmdef +++|* 00081 M01S00076.trmdef +++|* XX DESCRIPTION 00082 M01S00077.trmdef +++|* -- ----------- 00083 M01S00078.trmdef +++|* AB ABORT BLOCK 00084 M01S00079.trmdef +++|* BR BREAK KEY 00085 M01S00080.trmdef +++|* BS BACKSPACE CHARACTER 00086 M01S00081.trmdef +++|* B1 USER BREAK 1 (INTERRUPTION CHARACTER) 00087 M01S00082.trmdef +++|* B2 USER BREAK 2 (TERMINATION CHARACTER) 00088 M01S00083.trmdef +++|* CI CARRIAGE RETURN IDLE COUNT 00089 M01S00084.trmdef +++|* CN CANCEL CHARACTER 00090 M01S00085.trmdef +++|* CP CURSOR POSITIONING 00091 M01S00086.trmdef +++|* CT CONTROL CHARACTER 00092 M01S00087.trmdef +++|* DL SINGLE MESSAGE TRANSPARENT 00093 M01S00088.trmdef +++|* EB END OF BLOCK 00094 M01S00089.trmdef +++|* EL END OF LINE 00095 M01S00090.trmdef +++|* EP ECHOPLEX MODE 00096 M01S00091.trmdef +++|* FA FULL ASCII 00097 M01S00092.trmdef +++|* HD HOST AVAILABILITY DISPLAY 00098 M01S00093.trmdef +++|* IC INPUT FLOW CONTROL 00099 M01S00094.trmdef +++|* IN INPUT DEVICE 00100 M01S00095.trmdef +++|* LI LINE FEED IDLE COUNT 00101 M01S00096.trmdef +++|* LK LOCK OUT CONTROL 00102 M01S00097.trmdef +++|* OC OUTPUT FLOW CONTROL 00103 M01S00098.trmdef +++|* OP OUTPUT DEVICE 00104 M01S00099.trmdef +++|* PA PARITY 00105 M01S00100.trmdef +++|* PG PAGE WAIT 00106 M01S00101.trmdef +++|* PL PAGE LENGTH 00107 M01S00102.trmdef +++|* PW PAGE WIDTH 00108 M01S00103.trmdef +++|* SE SPECIAL EDITING MODE 00109 M01S00104.trmdef +++|* TC TERMINAL CLASS 00110 M01S00105.trmdef +++|* XL MULTI MESSAGE 00111 M01S00106.trmdef +++|* 00112 M01S00107.trmdef +++|* CDCNET TERMINAL DEFINITIONS. 00113 M01S00108.trmdef +++|* 00114 M01S00109.trmdef +++|* AC ATTENTION CHARACTER 00115 M01S00110.trmdef +++|* ACA ATTENTION CHARACTER ACTION 00116 M01S00111.trmdef +++|* BC BACKSPACE CHARACTER 00117 M01S00112.trmdef +++|* BKA BREAK KEY ACTION 00118 M01S00113.trmdef +++|* BLC BEGIN LINE CHARACTER 00119 M01S00114.trmdef +++|* CFC CHARACTER FLOW CONTROL 00120 M01S00115.trmdef +++|* CLC CANCEL LINE CHARACTER 00121 M01S00116.trmdef +++|* CRD CARRIAGE RETURN DELAY 00122 M01S00117.trmdef +++|* CRS CARRIAGE RETURN SEQUENCE 00123 M01S00118.trmdef +++|* CS CODE SET 00124 M01S00119.trmdef +++|* E ECHOPLEX 00125 M01S00120.trmdef +++|* ELC END LINE CHARACTER 00126 M01S00121.trmdef +++|* ELP END LINE POSITIONING 00127 M01S00122.trmdef +++|* EOS END OUTPUT SEQUENCE 00128 M01S00123.trmdef +++|* EPA END PAGE ACTION 00129 M01S00124.trmdef +++|* EPC END PARTIAL CHARACTER 00130 M01S00125.trmdef +++|* EPP END PARTIAL POSITION 00131 M01S00126.trmdef +++|* FFD FORM FEED DELAY 00132 M01S00127.trmdef +++|* FFS FORM FEED SEQUENCE 00133 M01S00128.trmdef +++|* FL FOLD LINE 00134 M01S00129.trmdef +++|* HP HOLD PAGE 00135 M01S00130.trmdef +++|* HPO HOLD PAGE OVER 00136 M01S00131.trmdef +++|* IBS INPUT BLOCK SIZE 00137 M01S00132.trmdef +++|* IEM INPUT EDITING MODE 00138 M01S00133.trmdef +++|* IOM INPUT OUTPUT MODE 00139 M01S00134.trmdef +++|* LFD LINE FEED DELAY 00140 M01S00135.trmdef +++|* LFS LINE FEED SEQUENCE 00141 M01S00136.trmdef +++|* NCC NETWORK CONTROL CHARACTER 00142 M01S00137.trmdef +++|* P PARITY TYPE 00143 M01S00138.trmdef +++|* PCF PARTIAL CHARACTER FORWARDING 00144 M01S00139.trmdef +++|* PL PAGE LENGTH 00145 M01S00140.trmdef +++|* PW PAGE WIDTH 00146 M01S00001.252l678 +++|* RA RESPONSE ACTION 00147 M01S00141.trmdef +++|* SA STATUS ACTION 00148 M01S00142.trmdef +++|* SBC STORE BACKSPACE CHARACTER 00149 M01S00143.trmdef +++|* SND STORE NULS DELS 00150 M01S00144.trmdef +++|* TCM TRANSPARENT CHARACTER MODE 00151 M01S00145.trmdef +++|* TFC TRANSPARENT FORWARD CHARACTER 00152 M01S00146.trmdef +++|* TLM TRANSPARENT LENGTH MODE 00153 M01S00147.trmdef +++|* TM TERMINAL MODEL 00154 M01S00148.trmdef +++|* TML TRANSPARENT MESSAGE LENGTH 00155 M01S00149.trmdef +++|* TTC TRANSPARENT TERMINATE CHARACTER 00156 M01S00150.trmdef +++|* TTM TRANSPARENT TIMEOUT MODE 00157 M01S00151.trmdef +++|* 00158 M01S00152.trmdef +++|* UNSUPPORTED STANDARD TERMINAL DEFINITIONS. 00159 M01S00153.trmdef +++|* 00160 M01S00154.trmdef +++|* AR AUTOMATIC CHARACTER RECOGNITION 00161 M01S00155.trmdef +++|* BF BLOCKING FACTOR - 0, 1, 2 00162 M01S00156.trmdef +++|* CH DISPLAY TERMINAL CHARACTERISTICS 00163 M01S00157.trmdef +++|* HN HOST NODE SELECTION - NUMBER 00164 M01S00158.trmdef +++|* HS HOST SELECTION - NAME 00165 M01S00159.trmdef +++|* MS MESSAGE TO NETWORK OPERATOR - MESSAGETEXT 00166 M01S00160.trmdef +++|* TM TERMINATE TERMINAL - HOST CONNECTION 00167 M01S00161.trmdef +++|* 00168 M01S00162.trmdef +++|* 00169 M01S00163.trmdef +++|* VALUES CAN BE SPECIFIED IN THE FOLLOWING WAYS. 00170 M01S00164.trmdef +++|* 00171 M01S00165.trmdef +++|* FORM DESCRIPTION 00172 M01S00166.trmdef +++|* ---- ----------- 00173 M01S00167.trmdef +++|* NN DECIMAL VALUE 00174 M01S00168.trmdef +++|* Y ALPHANUMERIC CHARACTER WITH DISPLAY CODE LESS THAN 45B 00175 M01S00169.trmdef +++|* $Y$ ANY ALPHANUMERIC CHARACTER 00176 M01S00170.trmdef +++|* IIIB OCTAL VALUE OF AN *ASCII* CHARACTER 00177 M01S00171.trmdef +++|* XHH HEXADECIMAL VALUE OF AN *ASCII* CHARACTER 00178 M01S00172.trmdef +++|* T ALPHANUMERIC DISPLAY CODE CHARACTER OR DECIMAL VALUE 00179 M01S00173.trmdef +++| SPACE 4,10 00180 M01S00174.trmdef +++|*** DAYFILE MESSAGES. 00181 M01S00175.trmdef +++|* 00182 M01S00176.trmdef +++|* * ATTRIBUTE COMMANDS MUST BE OF ONE NETWORK TYPE.* 00183 M01S00177.trmdef +++|* ATTRIBUTES UNIQUE TO BOTH NAM/CCP AND NAM/CDNA 00184 M01S00178.trmdef +++|* WERE ENTERED ON ONE *TRMDEF* REQUEST. 00185 M01S00179.trmdef +++|* 00186 M01S00180.trmdef +++|* * ERROR IN TRMDEF ARGUMENT.* 00187 M01S00181.trmdef +++|* THE COMMAND CONTAINED INCORRECT SYNTAX OR AN 00188 M01S00182.trmdef +++|* UNKNOWN PARAMETER. 00189 M01S00183.trmdef +++|* 00190 M01S00184.trmdef +++|* * INCORRECT JOB ORIGIN TYPE FOR TRMDEF.* 00191 M01S00185.trmdef +++|* THE JOB ORIGIN TYPE OF THE JOB REQUESTING *TRMDEF* 00192 M01S00186.trmdef +++|* WAS NOT TIME-SHARING. 00193 M01S00187.trmdef +++|* 00194 M01S00188.trmdef +++|* * INCORRECT TERMINAL TYPE FOR TRMDEF.* 00195 M01S00189.trmdef +++|* THE *TRMDEF* REQUEST CAME FROM A TERMINAL WHICH WAS 00196 M01S00190.trmdef +++|* NOT A NETWORK TERMINAL. 00197 M01S00191.trmdef +++|* 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 M01S00192.trmdef +++|* * NETWORK TYPE DOES NOT SUPPORT ATTRIBUTE COMMAND.* 00204 M01S00193.trmdef +++|* THE *TRMDEF* REQUEST CAME FROM A TERMINAL THAT WAS 00205 M01S00194.trmdef +++|* OF A DIFFERENT NETWORK TYPE THAN THE PARAMETERS 00206 M01S00195.trmdef +++|* ENTERED. 00207 M01S00196.trmdef +++|* 00208 M01S00197.trmdef +++|* * TRMDEF COMPLETE.* 00209 M01S00198.trmdef +++|* INDICATES COMMAND PROCESSED WITH NO ERRORS. 00210 M01S00199.trmdef +++|* OUTPUT WRITTEN TO FILE AS DETERMINED BY *L* PARAMETER. 00211 M01S00200.trmdef +++|* 00212 M01S00201.trmdef +++|* * TRMDEF ERRORS.* 00213 M01S00202.trmdef +++|* AN INCORRECT VALUE WAS ENTERED FOR ONE OR MORE 00214 M01S00203.trmdef +++|* PARAMETERS. ADDITIONAL ERROR MESSAGES ARE WRITTEN 00215 M01S00204.trmdef +++|* TO THE FILE SPECIFIED BY THE *L* PARAMETER. 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 M01S00205.trmdef +++| SPACE 4,10 00255 M01S00206.trmdef +++|**** ASSEMBLY CONSTANTS. 00256 M01S00207.trmdef +++| 00257 M01S00208.trmdef +++| 00258 M01S00209.trmdef +++| CBUFL EQU 40 PARAMETER STRING BUFFER LENGTH - CCP 00259 M01S00210.trmdef +++| DBUFL EQU 40 PARAMETER STRING BUFFER LENGTH - CDNA
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00260 M02S00211.trmd16 ---| OBUFL EQU 60 OUTPUT BUFFER LENGTH
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00261 M02S00212.trmd16 ---| TTPVL EQU 25D PARAMETER VALUE TABLE LENGTH
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00262 M02S00213.trmd16 ---| 00263 M01S00043.trmd16 +++| OBUFL EQU 120 OUTPUT BUFFER LENGTH 00264 M01S00044.trmd16 +++| TTPVL EQU 50D PARAMETER VALUE TABLE LENGTH 00265 M01S00214.trmdef +++| LTCN EQU 18D LARGEST TERMINAL CLASS + 1
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00266 M02S00215.trmd16 ---| 00267 M01S00216.trmdef +++| TCNT EQU 3 TRANSMISSION CODE FOR NETWORK TERMINAL 00268 M01S00217.trmdef +++| TTFN EQU 0 INDEX INTO TFLD TABLE--FIRST WORD 00269 M01S00218.trmdef +++| TFVR EQU 1 INDEX INTO TFLD TABLE--SECOND WORD 00270 M01S00219.trmdef +++| TFLG EQU 2 LENGTH OF TABLE ENTRY 00271 M01S00220.trmdef +++| 00272 M01S00221.trmdef +++|* TERMINAL DEFINITION FIELD NUMBERS. 00273 M01S00222.trmdef +++| 00274 M01S00223.trmdef +++|* CONTROL BYTE 0016B FIELD NUMBERS 00275 M01S00224.trmdef +++| 00276 M01S00225.trmdef +++| ABFN EQU 4051B *AB* 00277 M01S00226.trmdef +++| BRFN EQU 4063B *BR* 00278 M01S00227.trmdef +++| BSFN EQU 4047B *BS* 00279 M01S00228.trmdef +++| B1FN EQU 4052B *B1* 00280 M01S00229.trmdef +++| B2FN EQU 4053B *B2* 00281 M01S00230.trmdef +++| CBFN EQU 4102B *EB=XX* 00282 M01S00231.trmdef +++| CCFN EQU 4056B *CI=CA* 00283 M01S00232.trmdef +++| CIFN EQU 4054B *CI* 00284 M01S00233.trmdef +++| CLFN EQU 4077B *EL=XX* 00285 M01S00234.trmdef +++| CNFN EQU 4046B *CN* 00286 M01S00235.trmdef +++| CPFN EQU 4107B *CP* 00287 M01S00236.trmdef +++| CTFN EQU 4050B *CT* 00288 M01S00237.trmdef +++| C1FN EQU 4071B *DL/XL=CNNNN* 00289 M01S00238.trmdef +++| C2FN EQU 4072B *DL/XL=CNNNN* 00290 M01S00239.trmdef +++| EBFN EQU 4101B *EB=EB/EL* 00291 M01S00240.trmdef +++| ELFN EQU 4076B *EL=EB/EL* 00292 M01S00241.trmdef +++| EPFN EQU 4061B *EP* 00293 M01S00242.trmdef +++| FAFN EQU 4067B *FA* 00294 M01S00243.trmdef +++| HDFN EQU 4041B *HD* 00295 M01S00244.trmdef +++| ICFN EQU 4103B *IC* 00296 M01S00245.trmdef +++| INFN EQU 4065B *IN* 00297 M01S00246.trmdef +++| LIFN EQU 4055B *LI* 00298 M01S00247.trmdef +++| LCFN EQU 4057B *LI=CA* 00299 M01S00248.trmdef +++| LKFN EQU 4040B *LK* 00300 M01S00249.trmdef +++| MXFN EQU 4106B *MMXPT* 00301 M01S00250.trmdef +++| OCFN EQU 4104B *OC* 00302 M01S00251.trmdef +++| OPFN EQU 4066B *OP* 00303 M01S00252.trmdef +++| PAFN EQU 4062B *PA* 00304 M01S00253.trmdef +++| PGFN EQU 4045B *PG* 00305 M01S00254.trmdef +++| PLFN EQU 4044B *PL* 00306 M01S00255.trmdef +++| PWFN EQU 4043B *PW* 00307 M01S00256.trmdef +++| SEFN EQU 4060B *SE* 00308 M01S00257.trmdef +++| TCFN EQU 4042B *TC* 00309 M01S00258.trmdef +++| TOFN EQU 4074B *XL=TO* 00310 M01S00259.trmdef +++| XBFN EQU 4100B *EB=XHH* 00311 M01S00260.trmdef +++| XHFN EQU 4073B *DL/XL=XHH* 00312 M01S00261.trmdef +++| XLFN EQU 4075B *EL=XHH* 00313 M01S00262.trmdef +++| XPFN EQU 4064B *XPT* 00314 M01S00263.trmdef +++| YHFN EQU 4105B *XL=YHH* 00315 M01S00264.trmdef +++| 00316 M01S00265.trmdef +++|* CONTROL BYTE 0010B ATTRIBUTE NUMBERS 00317 M01S00266.trmdef +++| 00318 M01S00267.trmdef +++| IOMF EQU 4201B *IOM* 00319 M01S00268.trmdef +++| IEMF EQU 4202B *IEM* 00320 M01S00269.trmdef +++| TCMF EQU 4203B *TCM* 00321 M01S00270.trmdef +++| TFCF EQU 4204B *TFC* 00322 M01S00271.trmdef +++| TTCF EQU 4205B *TTC* 00323 M01S00272.trmdef +++| TTMF EQU 4206B *TTM* 00324 M01S00273.trmdef +++| TLMF EQU 4207B *TLM* 00325 M01S00274.trmdef +++| TMLF EQU 4210B *TML* 00326 M01S00275.trmdef +++| PCFF EQU 4211B *PCF* 00327 M01S00276.trmdef +++| ACAF EQU 4212B *ACA* 00328 M01S00277.trmdef +++| BKAF EQU 4213B *BKA* 00329 M01S00278.trmdef +++| IBSF EQU 4214B *IBS* 00330 M01S00279.trmdef +++| SNDF EQU 4215B *SND* 00331 M01S00280.trmdef +++| SBCF EQU 4216B *SBC*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | trmd17 |
M02 (Updated by) | trmd17a |
Seq # *Modification Id* Act ----------------------------+ 00332 M02S00001.trmd17a ---| FKCF EQU 4225B *FKC* 00333 M01S00281.trmdef +++| NCCF EQU 4300B *NCC* 00334 M01S00282.trmdef +++| CLCF EQU 4301B *CLC* 00335 M01S00283.trmdef +++| ELCF EQU 4302B *ELC* 00336 M01S00284.trmdef +++| BLCF EQU 4303B *BLC* 00337 M01S00285.trmdef +++| BCFN EQU 4304B *BC* 00338 M01S00286.trmdef +++| EPCF EQU 4305B *EPC* 00339 M01S00287.trmdef +++| ACCF EQU 4306B *AC* 00340 M01S00288.trmdef +++| PL2F EQU 4307B *PL* 00341 M01S00289.trmdef +++| PW2F EQU 4310B *PW* 00342 M01S00290.trmdef +++| HPFN EQU 4311B *HP* 00343 M01S00291.trmdef +++| HPOF EQU 4312B *HPO* 00344 M01S00292.trmdef +++| FLFN EQU 4313B *FL* 00345 M01S00293.trmdef +++| EOSF EQU 4314B *EOS* 00346 M01S00294.trmdef +++| CRSF EQU 4315B *CRS* 00347 M01S00295.trmdef +++| LFSF EQU 4316B *LFS* 00348 M01S00296.trmdef +++| FFSF EQU 4317B *FFS* 00349 M01S00297.trmdef +++| EPAF EQU 4320B *EPA* 00350 M01S00298.trmdef +++| CRDF EQU 4321B *CRD* 00351 M01S00299.trmdef +++| LFDF EQU 4322B *LFD* 00352 M01S00300.trmdef +++| FFDF EQU 4323B *FFD* 00353 M01S00301.trmdef +++| ELPF EQU 4324B *ELP* 00354 M01S00302.trmdef +++| EPPF EQU 4325B *EPP* 00355 M01S00303.trmdef +++| CFCF EQU 4326B *CFC* 00356 M01S00304.trmdef +++| TMFN EQU 4327B *TM* 00357 M01S00305.trmdef +++| CSFN EQU 4330B *CS* 00358 M01S00306.trmdef +++| PPFN EQU 4331B *P* 00359 M01S00307.trmdef +++| EEFN EQU 4332B *E* 00360 M01S00308.trmdef +++| SAFN EQU 4333B *SA* 00361 M01S00002.252l678 +++| RAFN EQU 4334B *RA* 00362 M01S00001.trmd17a +++| FKCF EQU 4337B *FKC* 00363 M01S00309.trmdef +++|**** 00364 M01S00310.trmdef +++| SPACE 4 00365 M01S00311.trmdef +++|*CALL COMCMAC 00366 M01S00312.trmdef +++|*CALL COMSEJT 00367 M01S00313.trmdef +++| SPACE 4 00368 M01S00314.trmdef +++| ORG 110B 00369 M01S00315.trmdef +++| 00370 M01S00316.trmdef +++|* FETS. 00371 M01S00317.trmdef +++| 00372 M01S00318.trmdef +++| FETS BSS 0 00373 M01S00319.trmdef +++| 00374 M01S00320.trmdef +++| O BSS 0 OUTPUT FILE FET 00375 M01S00321.trmdef +++| OUTPUT FILEB OBUF,OBUFL,FET=8 00376 M01S00322.trmdef +++| 00377 M01S00323.trmdef +++| Z BSS 0 TERMINAL FILE FET 00378 M01S00324.trmdef +++| ZZZZZG0 FILEB TMES,TMESL+1,DTY=2RTT
| Line S00325 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00379 M02S00325.trmd16 ---| 00380 M01S00045.trmd16 +++| TITLE MAIN PROGRAM. 00381 M01S00326.trmdef +++|* VALIDATE JOB ORIGIN AND TERMINAL TYPE. 00382 M01S00327.trmdef +++| 00383 M01S00328.trmdef +++| TRMDEF SB1 1 00384 M01S00329.trmdef +++| SA1 JOPR GET JOB ORIGIN TYPE 00385 M01S00330.trmdef +++| MX0 -12 00386 M01S00331.trmdef +++| LX1 -24 00387 M01S00332.trmdef +++| BX1 -X0*X1 00388 M01S00333.trmdef +++| SX2 X1-TXOT TIME-SHARING ORIGIN CODE 00389 M01S00334.trmdef +++| NZ X2,ERR2 IF NOT *TXOT* JOB ORIGIN TYPE 00390 M01S00335.trmdef +++| TSTATUS TRMB GET TERMINAL STATUS 00391 M01S00336.trmdef +++| SA4 TRMB+1 GET CONNECTION STATUS 00392 M01S00337.trmdef +++| MX0 -6 00393 M01S00338.trmdef +++| LX4 12 00394 M01S00339.trmdef +++| BX6 -X0*X4 00395 M01S00340.trmdef +++| SX2 X6-NICS 00396 M01S00341.trmdef +++| ZR X2,ERR1 IF NOT INTERACTIVE 00397 M01S00342.trmdef +++| SX2 X6-DTCS 00398 M01S00343.trmdef +++| NZ X2,TRM0 IF NOT DETACHED 00399 M01S00344.trmdef +++| REQUEST Z,U,N ASSIGN FILE TO TERMINAL 00400 M01S00345.trmdef +++| WRITEW Z,TMES,TMESL 00401 M01S00346.trmdef +++| WRITER Z,R CAUSE SUSPENSION 00402 M01S00347.trmdef +++| RETURN Z,R 00403 M01S00348.trmdef +++| EQ TRMDEF REISSUE REQUEST 00404 M01S00349.trmdef +++| 00405 M01S00350.trmdef +++| TRM0 LX4 -24 GET TRANSMISSION CODE 00406 M01S00351.trmdef +++| BX2 -X0*X4 00407 M01S00352.trmdef +++| SX3 X2-TCNT NETWORK TERMINAL CODE 00408 M01S00353.trmdef +++| LX4 -24 00409 M01S00354.trmdef +++| NZ X3,ERR1 IF NOT A NETWORK TERMINAL 00410 M01S00355.trmdef +++| MX0 -8 00411 M01S00356.trmdef +++| BX6 -X0*X4 00412 M01S00357.trmdef +++| SA6 A4-B1 SAVE TERMINAL CLASS 00413 M01S00358.trmdef +++| 00414 M01S00359.trmdef +++|* PROCESS COMMAND ARGUMENTS. 00415 M01S00360.trmdef +++| 00416 M01S00361.trmdef +++| SB2 CCDR COMMAND 00417 M01S00362.trmdef +++| RJ USB UNPACK DATA BLOCK TO STRING BUFFER
| Line S00363 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00418 M02S00363.trmd16 ---| RJ POP PICK OUT PARAMETER 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 M01S00364.trmdef +++| ZR B6,ERR3 IF NO ARGUMENTS 00427 M01S00365.trmdef +++| RJ PCS PROCESS COMMAND 00428 M01S00366.trmdef +++| NZ X1,ERR3 IF ERROR IN ARGUMENTS 00429 M01S00367.trmdef +++| SB6 B0+ INITIALIZE TABLE INDEX 00430 M01S00368.trmdef +++| SX6 B0+ TERMINATE PARAMETER TABLE 00431 M01S00369.trmdef +++| SA6 X5+B1 00432 M01S00370.trmdef +++| 00433 M01S00371.trmdef +++|* VALIDATE EACH PARAMETER FOR CORRECT ARGUMENT TYPE. 00434 M01S00372.trmdef +++| 00435 M01S00373.trmdef +++| TRM1 SA1 TTPV+B6 GET PARAMETER 00436 M01S00374.trmdef +++| ZR X1,TRM9 IF END OF PARAMETERS 00437 M01S00375.trmdef +++| SB7 X1+ INDEX 00438 M01S00376.trmdef +++| RJ CAS CHECK IF ATTRIBUTE SUPPORTED 00439 M01S00377.trmdef +++| NG X2,TRM8 IF ATTRIBUTE UNSUPPORTED 00440 M01S00378.trmdef +++| RJ SAF SET ATTRIBUTE FLAGS
| Line S00379 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00379.trmd16 ---| SA1 TTPV+B6 GET PARAMETER 00442 M01S00053.trmd16 +++| SA1 TTPV+B6+1 GET PARAMETER VALUE 00443 M01S00380.trmdef +++| MX0 42 00444 M01S00381.trmdef +++| BX1 X0*X1 ISOLATE VALUE 00445 M01S00382.trmdef +++| SA2 TTFN+B7 GET TABLE ENTRY
| Line S00383 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00446 M02S00383.trmd16 ---| SB5 X2+ 00447 M01S00054.trmd16 +++| SB5 X2 00448 M01S00384.trmdef +++| SX6 B0 CLEAR MULTIPLE PARAMETER FLAG 00449 M01S00385.trmdef +++| NE B5,B1,TRM2 IF NOT MULTIPLE PARAMETER 00450 M01S00386.trmdef +++| RJ PMP PROCESS MULTIPLE PARAMETER 00451 M01S00387.trmdef +++| NZ X3,TRM9 IF ERROR IN PARAMETER 00452 M01S00388.trmdef +++| TRM2 SA6 PMPA SET MULTIPLE PARAMETER FLAG 00453 M01S00389.trmdef +++| ZR B5,TRM6 IF EXPECTING A DECIMAL NUMBER 00454 M01S00390.trmdef +++| NG B5,TRM3 IF EXPECTING A CHARACTER
| Line S00391 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00455 M02S00391.trmd16 ---| SB3 B5 EQUIVALENCE TABLE ADDRESS
| Line S00392 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00456 M02S00392.251l664 ---| SB2 7 00457 M01S00006.251l664 +++| SB2 10B
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00458 M02S00007.trmd16 ---| EQ B2,B3,TRM2.3 IF PARAMETER DISABLED 00459 M01S00055.trmd16 +++| EQ B2,B5,ERR6.2 IF PARAMETER DISABLED
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00460 M02S00008.trmd16 ---| SB2 B2-1
| Line S00393 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00461 M02S00393.trmd16 ---| EQ B2,B3,TRM2.2 PROCESS DOUBLE OCTET
| Line S00394 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00462 M02S00394.trmd16 ---| SB2 B2-1
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00463 M02S00395.trmd16 ---| TRM2.1 EQ B2,B3,TRM2.3 IF VARIABLE CHARACTERS IN VALUE
| Line S00396 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00464 M02S00396.trmd16 ---| SB2 B2-1
| Line S00397 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00465 M02S00397.trmd16 ---| EQ B1,B2,TRM2.4 IF EQUIVALENCE VALUE
| Line S00398 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00466 M02S00398.trmd16 ---| EQ TRM2.1 CONTINUE 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 M01S00399.trmdef +++|
| Line S00400 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00475 M02S00400.trmd16 ---| TRM2.2 RJ PDO PROCESS DOUBLE OCTET 00476 M01S00063.trmd16 +++| TRM2.1 RJ PDO PROCESS DOUBLE OCTET 00477 M01S00401.trmdef +++| EQ TRM8 PROCESS NEXT PARAMETER 00478 M01S00402.trmdef +++|
| Line S00403 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00479 M02S00403.trmd16 ---| TRM2.3 RJ VCP VARIABLE CHARACTER PROCESSOR
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00480 M02S00404.trmd16 ---| EQ TRM8 PROCESS NEXT PARAMETER
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00481 M02S00405.trmd16 ---|
| Line S00406 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00482 M02S00406.trmd16 ---| TRM2.4 SX6 B0+ CLEAR VALUE 00483 M01S00064.trmd16 +++| TRM2.2 SX6 B0+ CLEAR VALUE 00484 M01S00407.trmdef +++| RJ PEV PROCESS EQUIVALENCE VALUE 00485 M01S00408.trmdef +++| ZR X4,ERR4 IF NO EQUIVALENCE FOUND 00486 M01S00409.trmdef +++| EQ TRM7 CONTINUE PROCESSING 00487 M01S00410.trmdef +++| 00488 M01S00411.trmdef +++|* PROCESS CHARACTER 00489 M01S00412.trmdef +++| 00490 M01S00413.trmdef +++| TRM3 RJ PCP PROCESS CHARACTER PARAMETER 00491 M01S00414.trmdef +++| NZ X4,ERR4 IF ERROR ON PARAMETER 00492 M01S00065.trmd16 +++| PL B5,TRM8 IF *TTC* OR *TFC* 00493 M01S00415.trmdef +++| 00494 M01S00416.trmdef +++|* SET UP FIELD NUMBER/FIELD VALUE PAIR. 00495 M01S00417.trmdef +++| 00496 M01S00418.trmdef +++| TRM4 SA1 PMPA 00497 M01S00419.trmdef +++| SA2 TMPV+B7 GET FIELD NUMBER 00498 M01S00420.trmdef +++| LX2 18 00499 M01S00421.trmdef +++| NZ X1,TRM5 IF MULTIPLE PARAMETER 00500 M01S00422.trmdef +++| SA2 TTFN+B7 GET FIELD NUMBER 00501 M01S00423.trmdef +++| LX2 18 00502 M01S00424.trmdef +++| PL X2,TRM5 IF NOT *LI* OR *CI* PARAMETER 00503 M01S00425.trmdef +++| MX0 -48 00504 M01S00426.trmdef +++| BX2 -X0*X2 00505 M01S00427.trmdef +++| TRM5 SX4 X6+4000B FIELD VALUE 00506 M01S00428.trmdef +++| AX2 36 00507 M01S00429.trmdef +++| MX0 -12 00508 M01S00430.trmdef +++| BX2 -X0*X2 00509 M01S00431.trmdef +++| SB2 B1 INDICATE VALIDATE RANGE 00510 M01S00432.trmdef +++| EQ TRM7 ENTER INTO BUFFER 00511 M01S00433.trmdef +++| 00512 M01S00434.trmdef +++|* PROCESS DECIMAL NUMBER 00513 M01S00435.trmdef +++| 00514 M01S00436.trmdef +++| TRM6 BX5 X1 DECIMAL NUMBER TO BE CONVERTED 00515 M01S00437.trmdef +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION 00516 M01S00438.trmdef +++| ZR X4,TRM4 IF NO ERROR IN CONVERSION 00517 M01S00439.trmdef +++| SA2 PMPA 00518 M01S00440.trmdef +++| NZ X2,ERR4 IF MULTIPLE PARAMETER 00519 M01S00441.trmdef +++| SA2 TTFN+B7 GET TABLE ENTRY 00520 M01S00442.trmdef +++| LX2 18 00521 M01S00443.trmdef +++| PL X2,ERR4 IF NOT *CI* OR *LI* PARAMETER
| Line S00444 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00522 M02S00444.trmd16 ---| SA1 TTPV+B6 GET ARGUMENT 00523 M01S00066.trmd16 +++| SA1 TTPV+B6+1 GET ARGUMENT 00524 M01S00445.trmdef +++| MX0 42 00525 M01S00446.trmdef +++| BX1 X0*X1 00526 M01S00447.trmdef +++| LX1 12 00527 M01S00448.trmdef +++| SX6 X1-2RCA 00528 M01S00449.trmdef +++| NZ X6,ERR4 IF NOT *CA* ARGUMENT 00529 M01S00450.trmdef +++| SX4 4001B FIELD VALUE FOR *CA* 00530 M01S00451.trmdef +++| MX0 12 00531 M01S00452.trmdef +++| BX2 X0*X2 00532 M01S00453.trmdef +++| LX2 11-59 FIELD NUMBER 00533 M01S00454.trmdef +++| SB2 -B1 INDICATE DO NOT VALIDATE RANGE 00534 M01S00455.trmdef +++| 00535 M01S00456.trmdef +++|* ENTER FIELD NUMBER/FIELD VALUE PAIR INTO BUFFER. 00536 M01S00457.trmdef +++| 00537 M01S00458.trmdef +++| TRM7 RJ VFT VALIDATE FIELD VALUE 00538 M01S00459.trmdef +++| NG X6,ERR4 IF INCORRECT FIELD VALUE 00539 M01S00460.trmdef +++| RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B 00540 M01S00461.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B
| Line S00462 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00541 M02S00462.trmd16 ---| TRM8 SB6 B6+B1 INCREMENT TABLE INDEX 00542 M01S00067.trmd16 +++| TRM8 SB6 B6+2 INCREMENT TABLE INDEX 00543 M01S00463.trmdef +++| EQ TRM1 PROCESS NEXT PARAMETER 00544 M01S00464.trmdef +++| 00545 M01S00465.trmdef +++|* COMPLETE PROCESSING. 00546 M01S00466.trmdef +++| 00547 M01S00467.trmdef +++| TRM9 SA1 TRMC GET ERROR COUNT 00548 M01S00468.trmdef +++| NZ X1,ERR7 IF ERROR ON COMMAND 00549 M01S00469.trmdef +++| ZR B6,ERR3 IF NO CHANGES ENTERED 00550 M01S00470.trmdef +++| RJ CCT CHECK CONNECTION TYPE 00551 M01S00471.trmdef +++| NZ X1,ERR1 IF NO NETWORK CONNECTION 00552 M01S00472.trmdef +++| RJ CAF CHECK ATTRIBUTE FLAGS 00553 M01S00473.trmdef +++| NZ X5,ERR6 IF ATTRIBUTE MIX ERROR 00554 M01S00474.trmdef +++| NZ X7,ERR6.1 IF CONNECTION TYPE ERROR 00555 M01S00475.trmdef +++| NZ X3,TRM10 IF CONTROL BYTE 0010B SEQUENCE 00556 M01S00476.trmdef +++| RJ PPS PACK PARAMETER STRING - CCP 00557 M01S00477.trmdef +++| EQ TRM11 IF CONTROL BYTE 0016B SEQUENCE
| Line S00478 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd11 |
Seq # *Modification Id* Act ----------------------------+ 00558 M02S00478.trmd11 ---| TRM10 RJ PPT PACK PARAMETER STRING - CDNA 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 M01S00479.trmdef +++| TRM11 WRITEW O,OBUF,B7 OUTPUT PARAMETER STRING 00563 M01S00480.trmdef +++| 00564 M01S00481.trmdef +++|* IT IS NECESSARY TO SPECIFY RECALL ON THE FOLLOWING *WRITER* 00565 M01S00482.trmdef +++|* IN ORDER TO ASSURE THAT THE DAYFILE MESSAGE FOLLOWING IT 00566 M01S00483.trmdef +++|* IS SENT BACK TO THE TERMINAL. USING RECALL PREVENTS THE 00567 M01S00484.trmdef +++|* DAYFILE MESSAGE FROM BEING APPENDED TO THE *0016* CONTROL 00568 M01S00485.trmdef +++|* BYTE PARAMETER STRING AND THEN LOST DURING PROCESSING BY 00569 M01S00486.trmdef +++|* *1TO*. 00570 M01S00487.trmdef +++| 00571 M01S00488.trmdef +++| WRITER O,R 00572 M01S00489.trmdef +++| MESSAGE (=C* TRMDEF COMPLETE.*),3
| Line S00490 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00573 M02S00490.trmd16 ---| ENDRUN 00574 M01S00068.trmd16 +++| TRM12 ENDRUN 00575 M01S00491.trmdef +++| 00576 M01S00492.trmdef +++| TRMA CON 1 INDEX TO *CBUF* 00577 M01S00493.trmdef +++| TRMB BSS 2 TERMINAL CLASS FOR VALIDATION 00578 M01S00494.trmdef +++| TRMC CON 0 ERROR COUNT 00579 M01S00495.trmdef +++| TRMD CON 1 INDEX TO *DBUF* 00580 M01S00496.trmdef +++| TRMF CON 0,0,0 NETWORK ATTRIBUTE FLAGS 00581 M01S00004.trmd11 +++| TRMG CON 0 SPECIAL ERROR COUNT 00582 M01S00497.trmdef +++| 00583 M01S00498.trmdef +++| 00584 M01S00499.trmdef +++|* ERROR MESSAGES ISSUED. 00585 M01S00500.trmdef +++| 00586 M01S00501.trmdef +++| ERR1 MESSAGE (=C* INCORRECT TERMINAL TYPE FOR TRMDEF.*) 00587 M01S00502.trmdef +++| EQ ERR8 END PROCESSING 00588 M01S00503.trmdef +++| 00589 M01S00504.trmdef +++| ERR2 MESSAGE (=C* INCORRECT JOB ORIGIN TYPE FOR TRMDEF.*)
| Line S00505 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00590 M02S00505.trmd16 ---| EQ ERR8 END PROCESSING 00591 M01S00069.trmd16 +++| EQ TRM12 END PROCESSING 00592 M01S00506.trmdef +++| 00593 M01S00507.trmdef +++| ERR3 MESSAGE (=C* ERROR IN TRMDEF ARGUMENT.*) 00594 M01S00508.trmdef +++| EQ ERR8 END PROCESSING 00595 M01S00509.trmdef +++| 00596 M01S00510.trmdef +++| ERR4 SA3 PMPA 00597 M01S00511.trmdef +++| ZR X3,ERR5 IF NOT MULTIPLE PARAMETER 00598 M01S00512.trmdef +++| SA1 TMPV+B7 GET TABLE ENTRY 00599 M01S00513.trmdef +++| MX0 6 00600 M01S00514.trmdef +++| BX1 X0*X1 GET PARAMETER OPTION 00601 M01S00515.trmdef +++| LX1 -12 00602 M01S00516.trmdef +++| LX0 -12 00603 M01S00517.trmdef +++| SA2 BEMC+BEMCL-1 CREATE MULTI-VALUE ERROR MESSAGE 00604 M01S00518.trmdef +++| BX2 -X0*X2 00605 M01S00519.trmdef +++| BX6 X1+X2 00606 M01S00520.trmdef +++| SA1 PMPC 00607 M01S00521.trmdef +++| SB5 X1 00608 M01S00522.trmdef +++| SA6 A2 00609 M01S00523.trmdef +++| SA2 BEMC 00610 M01S00524.trmdef +++| SA1 TTFN+B5 GET TABLE ENTRY 00611 M01S00525.trmdef +++| RJ BEM BUILD ERROR MESSAGE 00612 M01S00526.trmdef +++| SA2 =4L- RESTORE ERROR MESSAGE 00613 M01S00527.trmdef +++| BX2 X6 00614 M01S00528.trmdef +++| SA6 BEMC+BEMCL-1 00615 M01S00529.trmdef +++| EQ TRM8 PROCESS NEXT PARAMETER 00616 M01S00530.trmdef +++| 00617 M01S00531.trmdef +++| ERR5 SA2 BEMC 00618 M01S00532.trmdef +++| SA1 TTFN+B7 00619 M01S00533.trmdef +++| RJ BEM BUILD ERROR MESSAGE 00620 M01S00534.trmdef +++| EQ TRM8 PROCESS NEXT PARAMETER 00621 M01S00535.trmdef +++| 00622 M01S00536.trmdef +++| ERR6 MESSAGE MSG1 00623 M01S00537.trmdef +++| EQ ERR7 END PROCESSING 00624 M01S00538.trmdef +++| 00625 M01S00539.trmdef +++| ERR6.1 MESSAGE MSG2 00626 M01S00009.251l664 +++| EQ ERR7 END PROCESSING 00627 M01S00010.251l664 +++| 00628 M01S00011.251l664 +++| ERR6.2 MESSAGE MSG3
| Line S00540 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00629 M02S00540.251l664 ---| 00630 M01S00541.trmdef +++| ERR7 WRITEW O,OBUF,X1 00631 M01S00542.trmdef +++| WRITER O,R 00632 M01S00543.trmdef +++| MESSAGE (=C* TRMDEF ERRORS.*) 00633 M01S00544.trmdef +++| ERR8 ABORT 00634 M01S00545.trmdef +++| 00635 M01S00546.trmdef +++| MSG1 DATA C* ATTRIBUTE COMMANDS MUST BE OF ONE NETWORK TYPE.* 00636 M01S00547.trmdef +++| MSG2 DATA C* NETWORK TYPE DOES NOT SUPPORT ATTRIBUTE COMMAND.*
| Line S00548 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00637 M02S00548.251l664 ---|
| Line S00549 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00638 M02S00549.251l664 ---|
| Line S00550 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00639 M02S00550.251l664 ---| 00640 M01S00012.251l664 +++| MSG3 DATA C* LITERAL STRING IS NOT ALLOWED FOR THIS PARAMETER.* 00641 M01S00551.trmdef +++| TITLE SUBROUTINES. 00642 M01S00552.trmdef +++| BEM SPACE 4,15 00643 M01S00553.trmdef +++|** BEM - BUILD ERROR MESSAGE. 00644 M01S00554.trmdef +++|* 00645 M01S00555.trmdef +++|* ENTRY (X1) = ATTRIBUTE MNEMONIC. 00646 M01S00556.trmdef +++|* (A2) = ADDRESS OF ERROR MESSAGE TEXT. 00647 M01S00557.trmdef +++|* 00648 M01S00558.trmdef +++|* EXIT (TRMC) UPDATED. 00649 M01S00559.trmdef +++|* 00650 M01S00560.trmdef +++|* USES X - 1, 2, 3, 6, 7. 00651 M01S00561.trmdef +++|* A - 2, 3, 6, 7. 00652 M01S00562.trmdef +++|* B - 5. 00653 M01S00563.trmdef +++| 00654 M01S00564.trmdef +++| 00655 M01S00565.trmdef +++| BEM SUBR ENTRY/EXIT 00656 M01S00566.trmdef +++| SB5 BEMAL LENGTH OF ERROR MESSAGE 00657 M01S00567.trmdef +++| ERRNZ BEMAL-BEMCL MESSAGE NOT SAME LENGTH 00658 M01S00568.trmdef +++| MX6 18 00659 M01S00569.trmdef +++| BX1 X6*X1 GET ATTRIBUTE 00660 M01S00570.trmdef +++| SA3 TRMC GET BUFFER INDEX 00661 M01S00571.trmdef +++| BX6 X2 FORM ERROR MESSAGE 00662 M01S00572.trmdef +++| SX7 X3+B5 UPDATE BUFFER INDEX 00663 M01S00573.trmdef +++| SA6 X3+OBUF ENTER INTO OUTPUT BUFFER 00664 M01S00574.trmdef +++| SB5 B5-B1 00665 M01S00575.trmdef +++| SA7 A3 RESET INDEX 00666 M01S00576.trmdef +++| BEM3 SA2 A2+B1 GET NEXT WORD OF ERROR MESSAGE 00667 M01S00577.trmdef +++| SB5 B5-B1 00668 M01S00578.trmdef +++| BX6 X2 00669 M01S00579.trmdef +++| SA6 A6+B1 ENTER INTO OUTPUT BUFFER 00670 M01S00580.trmdef +++| NE B5,B1,BEM3 IF NOT LAST WORD OF ERROR MESSAGE 00671 M01S00581.trmdef +++| SA2 A2+B1 PLACE ATTRIBUTE MNEMONIC IN MESSAGE 00672 M01S00582.trmdef +++| LX1 36 00673 M01S00583.trmdef +++| BX6 X1+X2 00674 M01S00584.trmdef +++| SA6 A6+B1 00675 M01S00585.trmdef +++| EQ BEMX RETURN BUILT ERROR MESSAGE 00676 M01S00586.trmdef +++| 00677 M01S00587.trmdef +++| 00678 M01S00588.trmdef +++| BEMA DATA 10LUNSUPPORTE 00679 M01S00589.trmdef +++| DATA 10LD ATTRIBUT 00680 M01S00590.trmdef +++| DATA 4LE - 00681 M01S00591.trmdef +++| BEMAL EQU *-BEMA 00682 M01S00592.trmdef +++| 00683 M01S00593.trmdef +++| BEMC DATA 10LINCORRECT 00684 M01S00594.trmdef +++| DATA 10LVALUE FOR 00685 M01S00595.trmdef +++| DATA 4L- 00686 M01S00596.trmdef +++| BEMCL EQU *-BEMC 00687 M01S00597.trmdef +++| CAF SPACE 4,15 00688 M01S00598.trmdef +++|** CAF - CHECK ATTRIBUTE FLAGS. 00689 M01S00599.trmdef +++|* 00690 M01S00600.trmdef +++|* ENTRY (X2) = CONNECTION STATUS. 00691 M01S00601.trmdef +++|* 00692 M01S00602.trmdef +++|* EXIT IF (X3) = 0 THEN BUILD CONTROL BYTE 0016B. 00693 M01S00603.trmdef +++|* = 1 THEN BUILD CONTROL BYTE 0010B. 00694 M01S00604.trmdef +++|* IF (X5) = 0 THEN NO ERROR. 00695 M01S00605.trmdef +++|* = 1 THEN ATTRIBUTE MIX ERROR. 00696 M01S00606.trmdef +++|* IF (X7) = 0 THEN NO ERROR. 00697 M01S00607.trmdef +++|* = 1 THEN CONNECTION TYPE ERROR. 00698 M01S00608.trmdef +++|* 00699 M01S00609.trmdef +++|* USES X - 3, 4, 5, 7. 00700 M01S00610.trmdef +++|* A - 4. 00701 M01S00611.trmdef +++|* 00702 M01S00612.trmdef +++|* DEFINE (TRMF) = CCP FLAG. 00703 M01S00613.trmdef +++|* (TRMF+1) = CDNA FLAG. 00704 M01S00614.trmdef +++|* (TRMF+2) = COMMON FLAG. 00705 M01S00615.trmdef +++| 00706 M01S00616.trmdef +++| 00707 M01S00617.trmdef +++| CAF SUBR ENTRY/EXIT 00708 M01S00618.trmdef +++| BX3 X3-X3 INITIALIZE FLAGS 00709 M01S00619.trmdef +++| BX5 X5-X5 00710 M01S00620.trmdef +++| BX7 X7-X7 00711 M01S00621.trmdef +++| SA4 TRMF 00712 M01S00622.trmdef +++| NZ X4,CAF5 IF CCP ATTRIBUTE ON LIST 00713 M01S00623.trmdef +++| SA4 TRMF+1 00714 M01S00624.trmdef +++| NZ X4,CAF3 IF CDNA ATTRIBUTE ON LIST 00715 M01S00625.trmdef +++| SA4 TRMF+2 00716 M01S00626.trmdef +++| NZ X4,CAF1 IF COMMON ATTRIBUTE ON LIST 00717 M01S00627.trmdef +++| SX5 B1 SET ATTRIBUTE MIX ERROR FLAG 00718 M01S00628.trmdef +++| EQ CAFX RETURN (F,F,F) 00719 M01S00629.trmdef +++| 00720 M01S00630.trmdef +++| CAF1 NZ X2,CAF2 IF NAM/CDNA CONNECTION 00721 M01S00631.trmdef +++| EQ CAFX RETURN (F,F,T - CCP) 00722 M01S00632.trmdef +++| 00723 M01S00633.trmdef +++| CAF2 SX3 B1+ 00724 M01S00634.trmdef +++| EQ CAFX RETURN (F,F,T - CDNA) 00725 M01S00635.trmdef +++| 00726 M01S00636.trmdef +++| CAF3 NZ X2,CAF4 IF NAM/CDNA CONNECTION 00727 M01S00637.trmdef +++| SX7 B1+ SET CONNECTION TYPE ERROR FLAG 00728 M01S00638.trmdef +++| EQ CAFX RETURN (F,T,TF - CCP) 00729 M01S00639.trmdef +++| 00730 M01S00640.trmdef +++| CAF4 SX3 B1+ 00731 M01S00641.trmdef +++| EQ CAFX RETURN (F,T,TF - CDNA) 00732 M01S00642.trmdef +++| 00733 M01S00643.trmdef +++| CAF5 SA4 TRMF+1 00734 M01S00644.trmdef +++| NZ X4,CAF6 IF CDNA ATTRIBUTE ON LIST 00735 M01S00645.trmdef +++| EQ CAFX RETURN (T,F,TF - XOR) 00736 M01S00646.trmdef +++| 00737 M01S00647.trmdef +++| CAF6 SX5 B1+ SET ATTRIBUTE MIX ERROR FLAG 00738 M01S00648.trmdef +++| EQ CAFX RETURN (T,T,TF - XOR) 00739 M01S00649.trmdef +++| CAS SPACE 4,15 00740 M01S00650.trmdef +++|** CAS - CHECK IF ATTRIBUTE IS SUPPORTED. 00741 M01S00651.trmdef +++|* 00742 M01S00652.trmdef +++|* ENTRY (B7) = INDEX TO *TFLD* TABLE. 00743 M01S00653.trmdef +++|* 00744 M01S00654.trmdef +++|* EXIT (X2) = .GE. 0 ATTRIBUTE SUPPORTED. 00745 M01S00655.trmdef +++|* .LT. 0 ATTRIBUTE UNSUPPORTED. 00746 M01S00656.trmdef +++|* 00747 M01S00657.trmdef +++|* USES X - 1, 2. 00748 M01S00658.trmdef +++|* A - 1, 2. 00749 M01S00659.trmdef +++| 00750 M01S00660.trmdef +++| 00751 M01S00661.trmdef +++| CAS SUBR ENTRY/EXIT 00752 M01S00662.trmdef +++| SA2 TFVR+B7 ATTRIBUTE SUPPORT CHECK 00753 M01S00663.trmdef +++| LX2 59-36 ISOLATE FLAG BIT 00754 M01S00664.trmdef +++| PL X2,CASX IF ATTRIBUTE SUPPORTED 00755 M01S00665.trmdef +++| SA2 BEMA *UNSUPPORTED ATTRIBUTE* 00756 M01S00666.trmdef +++| SA1 TTFN+B7 00757 M01S00667.trmdef +++| RJ BEM BUILD ERROR MESSAGE 00758 M01S00668.trmdef +++| SX2 -1 SET UNSUPPORTED EXIT CONDITION 00759 M01S00669.trmdef +++| EQ CASX COMPLETE PROCESSING 00760 M01S00670.trmdef +++| CCT SPACE 4,15 00761 M01S00671.trmdef +++|** CCT - CHECK CONNECTION TYPE. 00762 M01S00672.trmdef +++|* 00763 M01S00673.trmdef +++|* ENTRY NONE. 00764 M01S00674.trmdef +++|* 00765 M01S00675.trmdef +++|* EXIT IF (X1) = 0 THEN NO ERROR. 00766 M01S00676.trmdef +++|* IF (X2) = 0 THEN NAM/CCP CONNECTION. 00767 M01S00677.trmdef +++|* = 1 THEN NAM/CDNA CONNECTION. 00768 M01S00678.trmdef +++|* 00769 M01S00679.trmdef +++|* USES X - 0, 1, 2, 4. 00770 M01S00680.trmdef +++|* A - 1, 4. 00771 M01S00681.trmdef +++| 00772 M01S00682.trmdef +++| 00773 M01S00683.trmdef +++| CCT SUBR ENTRY/EXIT 00774 M01S00684.trmdef +++| BX1 X1-X1 CLEAR ERROR FLAG 00775 M01S00685.trmdef +++| SA4 TRMB+1 GET CONNECTION TYPE 00776 M01S00686.trmdef +++| MX0 -3 00777 M01S00687.trmdef +++| LX4 6 00778 M01S00688.trmdef +++| BX4 -X0*X4 00779 M01S00689.trmdef +++| ZR X4,CCT1 IF NO NAM CONNECTION 00780 M01S00690.trmdef +++| SX4 X4-1 00781 M01S00691.trmdef +++| ZR X4,CCT2 IF NAM/CCP CONNECTION 00782 M01S00692.trmdef +++| SX4 X4-1
| Line S00693 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00783 M02S00693.243l647 ---| ZR X4,CCT3 IF NAM/CDNA CONNECTION
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00784 M02S00001.251l664 ---| ZR X4,CCT2 IF NAM/CDNA CONNECTION 00785 M01S00013.251l664 +++| ZR X4,CCT3 IF NAM/CDNA CONNECTION 00786 M01S00694.trmdef +++| 00787 M01S00695.trmdef +++| CCT1 SX1 B1+ SET ERROR FLAG 00788 M01S00696.trmdef +++| EQ CCTX RETURN 00789 M01S00697.trmdef +++| 00790 M01S00698.trmdef +++| CCT2 BX2 X2-X2 NAM/CCP CONNECTION 00791 M01S00699.trmdef +++| EQ CCTX RETURN 00792 M01S00700.trmdef +++| 00793 M01S00701.trmdef +++| CCT3 SX2 B1+ NAM/CDNA CONNECTION 00794 M01S00702.trmdef +++| EQ CCTX RETURN 00795 M01S00703.trmdef +++| EFP SPACE 4,15 00796 M01S00704.trmdef +++|** EFP - ENTER FIELD NUMBER/FIELD VALUE PAIR INTO BUFFER. 00797 M01S00705.trmdef +++|* 00798 M01S00706.trmdef +++|* *EFP* CREATES THE PARAMETER STRING FOR CONTROL BYTE 0016B 00799 M01S00707.trmdef +++|* DATA STREAM PROCESSING. 00800 M01S00708.trmdef +++|* 00801 M01S00709.trmdef +++|* ENTRY (X2) = FIELD NUMBER. 00802 M01S00710.trmdef +++|* (X4) = FIELD VALUE. 00803 M01S00711.trmdef +++|* (TRMA) = INDEX TO BUFFER. 00804 M01S00712.trmdef +++|* (CBUF) = BUFFER OF FIELD NUMBER/FIELD VALUE PAIRS. 00805 M01S00713.trmdef +++|* 00806 M01S00714.trmdef +++|* EXIT (TRMA) UPDATED. 00807 M01S00715.trmdef +++|* 00808 M01S00716.trmdef +++|* USES X - 5, 6, 7. 00809 M01S00717.trmdef +++|* A - 5, 6, 7. 00810 M01S00718.trmdef +++|* 00811 M01S00719.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST. 00812 M01S00720.trmdef +++|* (B7) = INDEX INTO TABLES. 00813 M01S00721.trmdef +++| 00814 M01S00722.trmdef +++| 00815 M01S00723.trmdef +++| EFP SUBR ENTRY/EXIT 00816 M01S00724.trmdef +++| SA5 TRMA BUFFER INDEX 00817 M01S00725.trmdef +++| BX6 X2 00818 M01S00726.trmdef +++| BX7 X4 00819 M01S00727.trmdef +++| SA6 X5+CBUF ENTER FIELD NUMBER INTO BUFFER 00820 M01S00728.trmdef +++| SX6 X5+2 INCREMENT INDEX 00821 M01S00729.trmdef +++| SA7 A6+B1 ENTER FIELD VALUE INTO BUFFER 00822 M01S00730.trmdef +++| SA6 A5 RESET BUFFER INDEX 00823 M01S00731.trmdef +++| EQ EFPX RETURN 00824 M01S00732.trmdef +++| EFQ SPACE 4,15 00825 M01S00733.trmdef +++|** EFQ - ENTER ATTRIBUTE NUMBER/ATTRIBUTE VALUE PAIR. 00826 M01S00734.trmdef +++|* 00827 M01S00735.trmdef +++|* *EFQ* CREATES THE PARAMETER STRING FOR CONTROL BYTE 0010B 00828 M01S00736.trmdef +++|* DATA STREAM PROCESSING. 00829 M01S00737.trmdef +++|* 00830 M01S00738.trmdef +++|* ENTRY (X2) = ATTRIBUTE NUMBER. 00831 M01S00739.trmdef +++|* (X4) = ATTRIBUTE VALUE. 00832 M01S00740.trmdef +++|* (TRMD) = INDEX TO BUFFER. 00833 M01S00741.trmdef +++|* (DBUF) = BUFFER OF ATTRIBUTE NUMBER/ATTRIBUTE VALUE 00834 M01S00742.trmdef +++|* PAIRS. 00835 M01S00743.trmdef +++|* 00836 M01S00744.trmdef +++|* EXIT (TRMD) UPDATED. 00837 M01S00745.trmdef +++|* 00838 M01S00746.trmdef +++|* USES X - 5, 6, 7. 00839 M01S00747.trmdef +++|* A - 5, 6, 7. 00840 M01S00748.trmdef +++|* 00841 M01S00749.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST. 00842 M01S00750.trmdef +++|* (B7) = INDEX INTO TABLES. 00843 M01S00751.trmdef +++| 00844 M01S00752.trmdef +++| 00845 M01S00753.trmdef +++| EFQ SUBR ENTRY/EXIT 00846 M01S00754.trmdef +++| SA5 TRMD BUFFER INDEX 00847 M01S00755.trmdef +++| BX6 X2 00848 M01S00756.trmdef +++| RJ SPC SPECIAL PAGE CHECKS FOR CDNA 00849 M01S00757.trmdef +++| SA6 X5+DBUF ENTER FIELD NUMBER INTO BUFFER 00850 M01S00758.trmdef +++| SX6 X5+3 INCREMENT INDEX 00851 M01S00759.trmdef +++| SX7 4001B ENTER DEFAULT OCTET COUNT 00852 M01S00760.trmdef +++| SA7 A6+B1 ENTER COUNT INTO BUFFER 00853 M01S00761.trmdef +++| BX7 X4 00854 M01S00762.trmdef +++| SA7 A6+2 ENTER FIELD VALUE INTO BUFFER 00855 M01S00763.trmdef +++| SA6 A5 RESET BUFFER INDEX 00856 M01S00764.trmdef +++| EQ EFQX RETURN 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 M01S00765.trmdef +++| PCP SPACE 4,15 00961 M01S00766.trmdef +++|** PCP - PROCESS CHARACTER PARAMETER VALUE. 00962 M01S00767.trmdef +++|* 00963 M01S00768.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND. 00964 M01S00769.trmdef +++|* (B7) = INDEX INTO TABLES. 00965 M01S00173.trmd16 +++|* (B5) = *TTC*/*TFC* FLAG. 00966 M01S00770.trmdef +++|* 00967 M01S00771.trmdef +++|* EXIT (X4) .NE. 0 IF ERROR IN PARAMETER. 00968 M01S00772.trmdef +++|* (X6) = CONVERTED CHARACTER. 00969 M01S00773.trmdef +++|* (B7) RESTORED. 00970 M01S00174.trmd16 +++|* (B5) RESTORED. 00971 M01S00774.trmdef +++|* 00972 M01S00775.trmdef +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
| Line S00776 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00973 M02S00776.trmd16 ---|* A - 2, 7.
| Line S00777 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00974 M02S00777.trmd16 ---|* B - 7. 00975 M01S00175.trmd16 +++|* A - 0, 1, 2, 5, 6, 7.
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | trmd16 |
M02 (Updated by) | trmd16a |
Seq # *Modification Id* Act ----------------------------+ 00976 M02S00176.trmd16a ---|* B - 5, 6, 7. 00977 M01S00001.trmd16a +++|* B - 4, 5, 6, 7. 00978 M01S00778.trmdef +++|* 00979 M01S00779.trmdef +++|* CALLS DXB, HXB. 00980 M01S00780.trmdef +++|* 00981 M01S00781.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST. 00982 M01S00782.trmdef +++| 00983 M01S00783.trmdef +++| 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 M01S00784.trmdef +++| PCP SUBR ENTRY/EXIT
| Line S00785 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 00990 M02S00785.trmd16 ---| MX0 -54 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 M01S00786.trmdef +++| BX4 -X0*X1 01008 M01S00787.trmdef +++| SA2 PMPA 01009 M01S00788.trmdef +++| NZ X2,PCP1 IF MULTIPLE PARAMETER 01010 M01S00789.trmdef +++| ZR X4,PCP3 IF SINGLE CHARACTER ENTERED 01011 M01S00790.trmdef +++| BX2 X0*X1 01012 M01S00791.trmdef +++| LX2 6 01013 M01S00792.trmdef +++| SX4 X2-1RX 01014 M01S00793.trmdef +++| ZR X4,PCP2 IF *XHH* ARGUMENT 01015 M01S00794.trmdef +++| BX5 X1 01016 M01S00795.trmdef +++| SX7 B7 01017 M01S00796.trmdef +++| SA7 PCPA SAVE TABLE INDEX 01018 M01S00797.trmdef +++| SB7 0 ASSUME OCTAL BASE FOR CONVERSION 01019 M01S00798.trmdef +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION 01020 M01S00799.trmdef +++| SA2 PCPA RESTORE TABLE INDEX 01021 M01S00800.trmdef +++| SB7 X2+
| Line S00801 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01022 M02S00801.trmd16 ---| EQ PCPX RETURN 01023 M01S00198.trmd16 +++| EQ PCP4 CHECK FOR *TTC* OR *TFC* 01024 M01S00802.trmdef +++| 01025 M01S00803.trmdef +++| PCP1 BX2 X0*X1 01026 M01S00804.trmdef +++| BX5 -X0*X1 01027 M01S00805.trmdef +++| SX4 B1 RETURN AN ERROR 01028 M01S00806.trmdef +++| LX2 6 01029 M01S00807.trmdef +++| ZR X5,PCPX IF NO CHARACTER WAS SPECIFIED 01030 M01S00808.trmdef +++| SX4 X2-1RX 01031 M01S00809.trmdef +++| ZR X4,PCP2 IF *XHH* ARGUMENT 01032 M01S00810.trmdef +++| SX4 X2-1RY 01033 M01S00811.trmdef +++| ZR X4,PCP2 IF *YHH* ARGUMENT 01034 M01S00812.trmdef +++| EQ PCPX RETURN 01035 M01S00813.trmdef +++| 01036 M01S00814.trmdef +++| PCP2 MX0 -42 01037 M01S00815.trmdef +++| BX4 -X0*X1 01038 M01S00816.trmdef +++| NZ X4,PCPX IF TOO MANY CHARACTERS ENTERED 01039 M01S00817.trmdef +++| MX0 -54 01040 M01S00818.trmdef +++| BX5 -X0*X1 01041 M01S00819.trmdef +++| LX5 6 01042 M01S00820.trmdef +++| RJ HXB HEX DISPLAY CODE TO BINARY CONVERSION
| Line S00821 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01043 M02S00821.trmd16 ---| EQ PCPX RETURN 01044 M01S00199.trmd16 +++| EQ PCP4 CHECK FOR *TTC* OR *TFC* 01045 M01S00822.trmdef +++| 01046 M01S00823.trmdef +++| PCP3 LX1 6 01047 M01S00824.trmdef +++| SA2 X1+TVXD GET OCTAL EQUIVALENT 01048 M01S00825.trmdef +++| LX2 0-18 01049 M01S00826.trmdef +++| MX0 -12 01050 M01S00827.trmdef +++| BX6 -X0*X2 FIELD VALUE
| Line S00828 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01051 M02S00828.trmd16 ---| EQ PCPX RETURN 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 (Updated by) | trmd16a |
Seq # *Modification Id* Act ----------------------------+ 01056 M02S00204.trmd16a ---| SB7 A0-4
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | trmd16 |
M02 (Updated by) | trmd16a |
Seq # *Modification Id* Act ----------------------------+ 01057 M02S00205.trmd16a ---| GT B7,ERR5 IF TOO MANY CHARACTERS 01058 M01S00002.trmd16a +++| SB4 A0-4 01059 M01S00003.trmd16a +++| GT B4,ERR5 IF TOO MANY CHARACTERS 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 M01S00829.trmdef +++| 01073 M01S00830.trmdef +++| PCPA BSS 1 TEMPORARY STORAGE FOR TABLE INDEX 01074 M01S00218.trmd16 +++| PCPB BSS 1 *TTC*/*TFC* FLAG 01075 M01S00831.trmdef +++| PCS SPACE 4,20 01076 M01S00832.trmdef +++|** PCS - PROCESS COMMAND ARGUMENTS. 01077 M01S00833.trmdef +++|* 01078 M01S00834.trmdef +++|* ENTRY (B6) = ADDRESS OF STRING BUFFER. 01079 M01S00835.trmdef +++|* = 0 IF NO MORE PARAMETERS. 01080 M01S00836.trmdef +++|* SET BY *POP*. 01081 M01S00837.trmdef +++|* 01082 M01S00838.trmdef +++|* EXIT *TTPV* TABLE BUILT. 01083 M01S00839.trmdef +++|* OUTPUT FILE NAME SET. 01084 M01S00840.trmdef +++|* (X1) .NE. 0 IF ERROR. 01085 M01S00841.trmdef +++|* (X5) = ADDRESS OF LAST ENTERED PARAMETER IF NO ERROR. 01086 M01S00842.trmdef +++|* 01087 M01S00843.trmdef +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 01088 M01S00844.trmdef +++|* A - 2, 3, 4, 6, 7. 01089 M01S00845.trmdef +++|* B - 3. 01090 M01S00846.trmdef +++|* 01091 M01S00847.trmdef +++|* CALLS POP. 01092 M01S00848.trmdef +++| 01093 M01S00849.trmdef +++| 01094 M01S00850.trmdef +++| PCS SUBR ENTRY/EXIT 01095 M01S00851.trmdef +++| SX1 B0+ CLEAR ERROR 01096 M01S00852.trmdef +++| SX5 TTPV-1 INITIALIZE TABLE ADDRESS 01097 M01S00853.trmdef +++| PCS1 ZR B6,PCSX IF NO MORE ARGUMENTS 01098 M01S00854.trmdef +++| RJ POP PICK OUT NEXT PARAMETER 01099 M01S00855.trmdef +++| MX1 18 01100 M01S00856.trmdef +++| NG B5,PCSX IF ERROR 01101 M01S00857.trmdef +++| BX2 X2-X2 01102 M01S00858.trmdef +++| 01103 M01S00859.trmdef +++|* SEARCH FOR MATCH IN ARGUMENT TABLE. 01104 M01S00860.trmdef +++| 01105 M01S00861.trmdef +++| ZR X6,PCSX IF BLANK ARGUMENT 01106 M01S00862.trmdef +++| SA3 TFLD GET FIRST OPTION 01107 M01S00863.trmdef +++| ZR B6,PCS2 IF TERMINATOR ENCOUNTERED 01108 M01S00864.trmdef +++| SA2 B6-B1 SEPARATOR 01109 M01S00865.trmdef +++| PCS2 BX7 X1*X3 01110 M01S00866.trmdef +++| ZR X3,PCSX IF END OF TABLE 01111 M01S00867.trmdef +++| BX4 X7-X6 01112 M01S00868.trmdef +++| SX7 A3 01113 M01S00869.trmdef +++| SA3 A3+TFLG GET NEXT OPTION 01114 M01S00870.trmdef +++| NZ X4,PCS2 IF NO MATCH 01115 M01S00871.trmdef +++| SX5 X5+B1 01116 M01S00872.trmdef +++| SA7 X5 SAVE TABLE ENTRY ADDRESS 01117 M01S00873.trmdef +++| 01118 M01S00874.trmdef +++|* PROCESS EQUIVALENCED VALUE. 01119 M01S00875.trmdef +++| 01120 M01S00876.trmdef +++| SX7 X2-1R= 01121 M01S00877.trmdef +++| NZ X7,PCSX IF ARGUMENT NOT EQUIVALENCED 01122 M01S00878.trmdef +++| BX4 X6 SAVE ATTRIBUTE 01123 M01S00879.trmdef +++| PCS3 RJ POP PICK OUT VALUE 01124 M01S00880.trmdef +++| SX1 B1+ 01125 M01S00881.trmdef +++| NG B5,PCSX IF ERROR 01126 M01S00882.trmdef +++| RJ ZCA ZERO CHARACTER ATTRIBUTE CHECKER 01127 M01S00883.trmdef +++| SX5 B2 RESTORE *TTPV* POINTER 01128 M01S00884.trmdef +++| ZR X3,PCS3.1 IF BLANK ARGUMENT CHECK SKIPPED
| Line S00885 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01129 M02S00885.trmd16 ---| ZR X6,PCSX IF BLANK ARGUMENT 01130 M01S00219.trmd16 +++| SA2 POPA 01131 M01S00220.trmd16 +++| ZR X2,PCSX IF BLANK ARGUMENT 01132 M01S00886.trmdef +++| PCS3.1 BX1 X1-X1 CLEAR ERROR 01133 M01S00887.trmdef +++| 01134 M01S00888.trmdef +++|* ENTER ARGUMENT. 01135 M01S00889.trmdef +++| 01136 M01S00890.trmdef +++| SA2 X5 01137 M01S00891.trmdef +++| SX7 X2-TFLD 01138 M01S00892.trmdef +++| NZ X7,PCS4 IF NOT *L* PARAMETER 01139 M01S00893.trmdef +++| SX5 X5-1 NO ENTRY FOR *L* 01140 M01S00894.trmdef +++| SX2 3 01141 M01S00895.trmdef +++| BX6 X6+X2 01142 M01S00896.trmdef +++| SA6 O SET OUTPUT FILE NAME 01143 M01S00897.trmdef +++| EQ PCS1 PROCESS NEXT PARAMETER 01144 M01S00898.trmdef +++|
| Line S00899 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01145 M02S00899.trmd16 ---| PCS4 BX7 X2+X6 ADD VALUE TO TABLE ADDRESS 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 M01S00900.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 M01S00901.trmdef +++| ZR B6,PCS1 IF TERMINATOR ENCOUNTERED 01160 M01S00902.trmdef +++| SA4 B6-B1 SEPARATOR 01161 M01S00903.trmdef +++| SX7 X4-1R/ 01162 M01S00904.trmdef +++| NZ X7,PCS1 IF NOT A MULTI VALUE PARAMETER
| Line S00905 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01163 M02S00905.trmd16 ---| SX5 A2+B1 SAVE TABLE ENTRY ADDRESS 01164 M01S00233.trmd16 +++| SX5 A2+2 SAVE TABLE ENTRY ADDRESS 01165 M01S00906.trmdef +++| BX7 X2 01166 M01S00907.trmdef +++| SA7 X5 01167 M01S00908.trmdef +++| EQ PCS3 PROCESS MULTI VALUE 01168 M01S00909.trmdef +++| PDO SPACE 4,15 01169 M01S00910.trmdef +++|** PDO - PROCESS DOUBLE OCTETS. 01170 M01S00911.trmdef +++|* 01171 M01S00912.trmdef +++|* *PDO* ADDS A PAIR OF OCTETS TO CONTROL BYTE 0010B IF 01172 M01S00913.trmdef +++|* THE ATTRIBUTE VALUE IS LARGER THAN WHAT CAN BE CONTAINED 01173 M01S00914.trmdef +++|* IN EIGHT BITS. THIS ROUTINE IS APPLICABLE FOR THE 01174 M01S00915.trmdef +++|* FOLLOWING ATTRIBUTE NAMES: CRD, FFD, IBS, LFD, TML. 01175 M01S00916.trmdef +++|* 01176 M01S00917.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND. 01177 M01S00918.trmdef +++|* (B7) = INDEX INTO TABLE. 01178 M01S00919.trmdef +++|* 01179 M01S00920.trmdef +++|* EXIT CONTROL BYTE 0010B UPDATED. 01180 M01S00921.trmdef +++|* 01181 M01S00922.trmdef +++|* USES X - 0, 2, 3, 4, 5, 6, 7. 01182 M01S00923.trmdef +++|* A - 2, 3, 6, 7. 01183 M01S00924.trmdef +++|* 01184 M01S00925.trmdef +++|* CALLS DXB, EFQ, VFT. 01185 M01S00926.trmdef +++| 01186 M01S00927.trmdef +++| PDO SUBR ENTRY/EXIT 01187 M01S00928.trmdef +++| BX5 X1 GET FIELD VALUE 01188 M01S00929.trmdef +++| RJ DXB DISPLAY CODE TO BINARY 01189 M01S00930.trmdef +++| SA2 TTFN+B7 GET FIELD NUMBER 01190 M01S00931.trmdef +++| NZ X4,ERR3 IF ERROR IN TRANSLATION 01191 M01S00932.trmdef +++| MX0 -12 01192 M01S00933.trmdef +++| AX2 18 01193 M01S00934.trmdef +++| BX2 -X0*X2 FIELD NUMBER ISOLATED 01194 M01S00935.trmdef +++| RJ VFT VALIDATE FIELD VALUE 01195 M01S00936.trmdef +++| NG X6,ERR4 IF INCORRECT FIELD VALUE 01196 M01S00937.trmdef +++| MX0 -8 01197 M01S00938.trmdef +++| BX4 -X0*X6 ISOLATE SECOND OCTET 01198 M01S00939.trmdef +++| SX4 X4+4000B 01199 M01S00940.trmdef +++| AX6 8 01200 M01S00941.trmdef +++| BX3 -X0*X6 ISOLATE FIRST OCTET 01201 M01S00942.trmdef +++| NZ X3,PDO1 IF TWO OCTETS REQUIRED FOR VALUE 01202 M01S00943.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B 01203 M01S00944.trmdef +++| EQ PDOX RETURN 01204 M01S00945.trmdef +++| 01205 M01S00946.trmdef +++| PDO1 SA5 TRMD GET BUFFER INDEX 01206 M01S00947.trmdef +++| BX6 X2 GET FIELD NUMBER 01207 M01S00948.trmdef +++| SX7 4002B 01208 M01S00949.trmdef +++| SA6 X5+DBUF ENTER FIELD NUMBER INTO BUFFER 01209 M01S00950.trmdef +++| SX6 X5+4 INCREMENT INDEX 01210 M01S00951.trmdef +++| SA7 A6+B1 ENTER OCTER COUNTER INTO BUFFER 01211 M01S00952.trmdef +++| SX7 X3+4000B GET FIRST OCTET 01212 M01S00953.trmdef +++| SA7 A6+2 ENTER FIRST OCTET INTO BUFFER 01213 M01S00954.trmdef +++| SX7 X4 GET SECOND OCTET 01214 M01S00955.trmdef +++| SA7 A6+3 ENTER SECOND OCTET INTO BUFFER 01215 M01S00956.trmdef +++| SA6 A5 RESET BUFFER INDEX 01216 M01S00957.trmdef +++| EQ PDOX RETURN 01217 M01S00958.trmdef +++| PEV SPACE 4,15 01218 M01S00959.trmdef +++|** PEV - PROCESS EQUIVALENCED VALUE ARGUMENT TYPE. 01219 M01S00960.trmdef +++|* 01220 M01S00961.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND. 01221 M01S00962.trmdef +++|* (X2) = TABLE ENTRY FROM *TFLD*. 01222 M01S00963.trmdef +++|* (B5) = ADDRESS OF FIELD VALUE EQUIVALENCED CODE. 01223 M01S00964.trmdef +++|* 01224 M01S00965.trmdef +++|* EXIT (X2) = FIELD NUMBER. 01225 M01S00966.trmdef +++|* (X4) = FIELD VALUE. 01226 M01S00967.trmdef +++|* = 0 IF EQUIVALENCE VALUE NOT FOUND. 01227 M01S00014.251l664 +++|* (X6) = NORMALIZED FIELD VALUE TO BE VALIDATED. 01228 M01S00968.trmdef +++|* (B2) .GE. 0, VALIDATE FIELD VALUE RANGE. 01229 M01S00969.trmdef +++|*
| Line S00970 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01230 M02S00970.251l664 ---|* USES X - 0, 2, 3, 4, 6.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01231 M02S00015.trmd16 ---|* USES X - 0, 2, 3, 4, 6, 7.
| Line S00971 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01232 M02S00971.trmd16 ---|* A - 4.
| Line S00972 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01233 M02S00972.trmd16 ---|* B - 2, 4, 5. 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 M01S00973.trmdef +++|* 01238 M01S00974.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST. 01239 M01S00975.trmdef +++|* (B7) = INDEX INTO TABLES. 01240 M01S00976.trmdef +++| 01241 M01S00977.trmdef +++| 01242 M01S00978.trmdef +++| PEV SUBR ENTRY/EXIT 01243 M01S00979.trmdef +++| SB4 3777B SET FIELD VALUE
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01244 M02S00016.trmd16 ---| SX7 B5+ PRESERVE TABLE INDEX 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 M01S00980.trmdef +++| PEV1 SA4 B5 GET EQUIVALENCE CODE 01251 M01S00981.trmdef +++| ZR X4,PEVX IF NO EQUIVALENCE FOUND
| Line S00982 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01252 M02S00982.trmd16 ---| MX3 42
| Line S00983 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01253 M02S00983.trmd16 ---| BX3 X4*X3 GET EQUIVALENCE CODE PORTION OF PARAMETER
| Line S00984 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01254 M02S00984.trmd16 ---| BX3 X3-X1 GET VALUE FLAG 01255 M01S00985.trmdef +++| SB5 B5+B1 01256 M01S00242.trmd16 +++| SB2 X4 01257 M01S00986.trmdef +++| SB4 B4+B1
| Line S00987 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01258 M02S00987.trmd16 ---| NZ X3,PEV1 IF MATCH NOT FOUND
| Line S00988 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
M03 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01259 M03S00988.trmd16 ---| SX4 B4 FIELD VALUE
| Line S00989 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | 251l664 |
M03 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01260 M03S00989.trmd16 ---| SB4 B4-4000B GET VALUE TO VALIDATE
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01261 M02S00017.trmd16 ---| SX7 X7-BOOL 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* 01280 M01S00018.251l664 +++| MX0 -1 01281 M01S00019.251l664 +++| SX4 B4
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01282 M02S00020.trmd16 ---| NZ X7,PEV2 IF NOT SEARCHING TABLE *BOOL* 01283 M01S00261.trmd16 +++| NZ X7,PEV4 IF NOT SEARCHING TABLE *BOOL* 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 (Updated by) | trmd16 |
Seq # *Modification Id* Act ----------------------------+ 01287 M02S00024.trmd16 ---| PEV2 SB4 B4-4000B GET VALUE TO VALIDATE 01288 M01S00262.trmd16 +++| PEV4 SB4 B4-4000B GET VALUE TO VALIDATE 01289 M01S00990.trmdef +++| SX6 B4 01290 M01S00991.trmdef +++| MX0 -12 01291 M01S00992.trmdef +++| LX2 -18 01292 M01S00993.trmdef +++| BX2 -X0*X2 FIELD NUMBER 01293 M01S00994.trmdef +++| SB2 B1 VALIDATE RANGE 01294 M01S00995.trmdef +++| EQ PEVX RETURN 01295 M01S00996.trmdef +++| PMP SPACE 4,20 01296 M01S00997.trmdef +++|** PMP - PROCESS MULTIPLE VALUE PARAMETER. 01297 M01S00998.trmdef +++|* 01298 M01S00999.trmdef +++|* ENTRY (X1) = PARAMETER FROM COMMAND. 01299 M01S01000.trmdef +++|* (X2) = *TFLD* TABLE ENTRY. 01300 M01S01001.trmdef +++|* (X6) = 0. 01301 M01S01002.trmdef +++|* (B7) = INDEX TO *TFLD* TABLE. 01302 M01S01003.trmdef +++|* 01303 M01S01004.trmdef +++|* EXIT (X1) = PARAMETER FROM COMMAND. 01304 M01S01005.trmdef +++|* (X2) = *TMPV* TABLE ENTRY. 01305 M01S01006.trmdef +++|* (X3) = 0, IF NO ERROR IN PARAMETER FORMAT. 01306 M01S01007.trmdef +++|* (X6) = 1, INDICATES A MULTIPLE VALUE PARAMETER. 01307 M01S01008.trmdef +++|* (B5) = EQUIVALENCE TABLE ADDRESS. 01308 M01S01009.trmdef +++|* (B7) = INDEX INTO *TMPV* TABLE. 01309 M01S01010.trmdef +++|* 01310 M01S01011.trmdef +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7. 01311 M01S01012.trmdef +++|* A - 2, 3, 6, 7. 01312 M01S01013.trmdef +++|* B - 3, 5, 7. 01313 M01S01014.trmdef +++| 01314 M01S01015.trmdef +++| 01315 M01S01016.trmdef +++| PMP SUBR ENTRY/EXIT 01316 M01S01017.trmdef +++| SA3 PMPC GET PREVIOUS INDEX 01317 M01S01018.trmdef +++| SB5 X3 01318 M01S01019.trmdef +++| EQ B5,B7,PMP1 IF SAME PARAMETER 01319 M01S01020.trmdef +++| SX7 B7 SAVE NEW INDEX 01320 M01S01021.trmdef +++| SA7 PMPC 01321 M01S01022.trmdef +++| PMP1 MX0 -12 GET INDEX TO *TMPV* TABLE 01322 M01S01023.trmdef +++| AX2 18 01323 M01S01024.trmdef +++| BX2 -X0*X2 01324 M01S01025.trmdef +++| SB3 X2 01325 M01S01026.trmdef +++| BX3 X1 GET FIRST CHARACTER OF PARAMETER VALUE 01326 M01S01027.trmdef +++| MX0 6 01327 M01S01028.trmdef +++| BX3 X0*X3 01328 M01S01029.trmdef +++| PMP2 SA2 TMPV+B3 FIND MATCH IN TABLE 01329 M01S01030.trmdef +++| BX4 X0*X2 01330 M01S01031.trmdef +++| BX5 X4-X3 01331 M01S01032.trmdef +++| ZR X5,PMP3 IF MATCH 01332 M01S01033.trmdef +++| ZR X4,PMP3 IF POSSIBLE MATCH 01333 M01S01034.trmdef +++| LX2 24 01334 M01S01035.trmdef +++| NG X2,PMP5 IF END OF TABLE 01335 M01S01036.trmdef +++| SB3 B3+B1 INCREMENT INDEX 01336 M01S01037.trmdef +++| EQ PMP2 CHECK NEXT ENTRY FOR MATCH 01337 M01S01038.trmdef +++| 01338 M01S01039.trmdef +++| PMP3 LX4 6 01339 M01S01040.trmdef +++| SX5 X4-1RC 01340 M01S01041.trmdef +++| NZ X5,PMP4 IF NOT C FORMAT 01341 M01S01042.trmdef +++| MX3 54 STRIP OFF LEADING C 01342 M01S01043.trmdef +++| LX1 6 01343 M01S01044.trmdef +++| BX1 X3*X1 01344 M01S01045.trmdef +++| PMP4 SB7 B3 RETURN INDEX TO *TMPV* TABLE 01345 M01S01046.trmdef +++| SX6 B1 SET MULTI-PARAMETER FLAG 01346 M01S01047.trmdef +++| MX3 -18 GET TABLE ADDRESS 01347 M01S01048.trmdef +++| BX3 -X3*X2 01348 M01S01049.trmdef +++| SB5 X3 RETURN EQUIVALENCE TABLE ADDRESS 01349 M01S01050.trmdef +++| SX3 B0 CLEAR ERROR FLAG 01350 M01S01051.trmdef +++| EQ PMPX RETURN 01351 M01S01052.trmdef +++| 01352 M01S01053.trmdef +++| PMP5 SA3 TRMC INCREMENT ERROR COUNT 01353 M01S01054.trmdef +++| SX3 X3+B1 01354 M01S01055.trmdef +++| BX6 X3 01355 M01S01056.trmdef +++| SA6 A3 01356 M01S01057.trmdef +++| EQ PMPX RETURN ERROR 01357 M01S01058.trmdef +++| 01358 M01S01059.trmdef +++| 01359 M01S01060.trmdef +++| PMPA CON 0 SET IF CURRENT PARAMETER HAS MULTI-VALUES 01360 M01S01061.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 M01S01062.trmdef +++| PPS SPACE 4,15 01498 M01S01063.trmdef +++|** PPS - PACK PARAMETER STRING - CONTROL BYTE 0016B. 01499 M01S01064.trmdef +++|* 01500 M01S01065.trmdef +++|* ENTRY (TRMA) = NUMBER OF ENTRIES TO PACK. 01501 M01S01066.trmdef +++|* (CBUF) = FIELD NUMBER/FIELD VALUE PAIRS. 01502 M01S01067.trmdef +++|* 01503 M01S01068.trmdef +++|* EXIT (OBUF) = PACKED CONTROL BYTE PARAMETER STRING. 01504 M01S01069.trmdef +++|* (B7) = WORD COUNT OF PACKED STRING. 01505 M01S01070.trmdef +++|* 01506 M01S01071.trmdef +++|* USES X - 1, 5, 6. 01507 M01S01072.trmdef +++|* A - 1, 5, 6. 01508 M01S01073.trmdef +++|* B - 5, 7. 01509 M01S01074.trmdef +++| 01510 M01S01075.trmdef +++| 01511 M01S01076.trmdef +++| PPS SUBR ENTRY/EXIT 01512 M01S01077.trmdef +++| SA5 TRMA NUMBER OF ENTRIES TO PACK 01513 M01S01078.trmdef +++| SA1 CBUF GET FIRST ENTRY TO PACK 01514 M01S01079.trmdef +++| SB7 B0+ INDEX TO *OBUF* 01515 M01S01080.trmdef +++| PPS1 BX6 X6-X6 01516 M01S01081.trmdef +++| SB5 5 PACKED ENTRIES PER WORD 01517 M01S01082.trmdef +++| PPS2 BX6 X6+X1 01518 M01S01083.trmdef +++| SB5 B5-B1 01519 M01S01084.trmdef +++| SA1 A1+B1 GET NEXT ENTRY TO PACK 01520 M01S01085.trmdef +++| LX6 12 01521 M01S01086.trmdef +++| NZ B5,PPS2 IF WORD NOT FILLED 01522 M01S01087.trmdef +++| LX6 -12 01523 M01S01088.trmdef +++| SA6 B7+OBUF ENTER INTO OUTPUT BUFFER 01524 M01S01089.trmdef +++| SB7 B7+1 INCREMENT INDEX 01525 M01S01090.trmdef +++| SX5 X5-5 01526 M01S01091.trmdef +++| PL X5,PPS1 IF NOT END OF ENTRIES TO PACK 01527 M01S01092.trmdef +++| EQ PPSX RETURN 01528 M01S01093.trmdef +++| PPT SPACE 4,15 01529 M01S01094.trmdef +++|** PPT - PACK PARAMETER STRING - CONTROL BYTE 0010B. 01530 M01S01095.trmdef +++|* 01531 M01S01096.trmdef +++|* ENTRY (TRMD) = NUMBER OF ENTRIES TO PACK. 01532 M01S01097.trmdef +++|* (DBUF) = FIELD NUMBER/FIELD VALUE PAIRS. 01533 M01S01098.trmdef +++|* 01534 M01S01099.trmdef +++|* EXIT (OBUF) = PACKED CONTROL BYTE PARAMETER STRING. 01535 M01S01100.trmdef +++|* (B7) = WORD COUNT OF PACKED STRING. 01536 M01S01101.trmdef +++|* 01537 M01S01102.trmdef +++|* USES X - 1, 5, 6. 01538 M01S01103.trmdef +++|* A - 1, 5, 6. 01539 M01S01104.trmdef +++|* B - 5, 7. 01540 M01S01105.trmdef +++| 01541 M01S01106.trmdef +++| 01542 M01S01107.trmdef +++| PPT SUBR ENTRY/EXIT 01543 M01S01108.trmdef +++| SA5 TRMD NUMBER OF ENTRIES TO PACK 01544 M01S01109.trmdef +++| SA1 DBUF GET FIRST ENTRY TO PACK 01545 M01S01110.trmdef +++| SB7 B0+ INDEX TO *OBUF* 01546 M01S01111.trmdef +++| PPT1 BX6 X6-X6 01547 M01S01112.trmdef +++| SB5 5 PACKED ENTRIES PER WORD 01548 M01S01113.trmdef +++| PPT2 BX6 X6+X1 01549 M01S01114.trmdef +++| SB5 B5-B1 01550 M01S01115.trmdef +++| SA1 A1+B1 GET NEXT ENTRY TO PACK 01551 M01S01116.trmdef +++| LX6 12 01552 M01S01117.trmdef +++| NZ B5,PPT2 IF WORD NOT FILLED 01553 M01S01118.trmdef +++| LX6 -12 01554 M01S01119.trmdef +++| SA6 B7+OBUF ENTER INTO OUTPUT BUFFER 01555 M01S01120.trmdef +++| SB7 B7+1 INCREMENT INDEX 01556 M01S01121.trmdef +++| SX5 X5-5 01557 M01S01122.trmdef +++| PL X5,PPT1 IF NOT END OF ENTRIES TO PACK 01558 M01S01123.trmdef +++| EQ PPTX RETURN 01559 M01S01124.trmdef +++| PTP SPACE 4,15 01560 M01S01125.trmdef +++|** PTP - PROCESS *TC* PARAMETER. 01561 M01S01126.trmdef +++|* 01562 M01S01127.trmdef +++|* ENTRY (X6) = VALUE ENTERED FOR *TC* PARAMETER. 01563 M01S01128.trmdef +++|* (TRMB) = CURRENT TERMINAL CLASS FOR VALIDATION. 01564 M01S01129.trmdef +++|* 01565 M01S01130.trmdef +++|* EXIT (X3) .LT. 0 IF ERROR. 01566 M01S01131.trmdef +++|* (TRMB) = NEW TERMINAL CLASS FOR VALIDATION. 01567 M01S01132.trmdef +++|* 01568 M01S01133.trmdef +++|* USES X - 1, 3, 5, 7. 01569 M01S01134.trmdef +++|* A - 1, 6. 01570 M01S01135.trmdef +++|* 01571 M01S01136.trmdef +++|* DEFINE (B6) = POSITION IN PARAMETER LIST. 01572 M01S01137.trmdef +++|* (B7) = INDEX INTO TABLES. 01573 M01S01138.trmdef +++|* (X2) = FIELD NUMBER. 01574 M01S01139.trmdef +++|* (X4) = FIELD VALUE. 01575 M01S01140.trmdef +++| 01576 M01S01141.trmdef +++| 01577 M01S01142.trmdef +++| PTP SUBR ENTRY/EXIT 01578 M01S01143.trmdef +++| SX3 -1 SET ERROR FLAG 01579 M01S01144.trmdef +++| SX5 X6-1 01580 M01S01145.trmdef +++| NG X5,PTPX IF INCORRECT TERMINAL CLASS 01581 M01S01146.trmdef +++| SX5 X6-LTCN LARGEST TERMINAL CLASS NUMBER 01582 M01S01147.trmdef +++| PL X5,PTPX IF INCORRECT TERMINAL CLASS 01583 M01S01148.trmdef +++| 01584 M01S01149.trmdef +++|* VALIDATE FOR LEGAL TERMINAL CLASS CHANGE. 01585 M01S01150.trmdef +++| 01586 M01S01151.trmdef +++| SA1 TRMB GET CONNECTED TERMINAL CLASS 01587 M01S01152.trmdef +++| BX3 X1-X6 01588 M01S01153.trmdef +++| ZR X3,PTPX IF NO TERMINAL CLASS CHANGE 01589 M01S01154.trmdef +++| SA1 X1+TLTC GET ALLOWED CHANGE LIMITS 01590 M01S01155.trmdef +++| SX7 X1 LOWER BOUND 01591 M01S01156.trmdef +++| LX1 17-35 01592 M01S01157.trmdef +++| SX1 X1 UPPER BOUND 01593 M01S01158.trmdef +++| IX3 X6-X7 01594 M01S01159.trmdef +++| NG X3,PTPX IF INCORRECT TERMINAL CLASS CHANGE 01595 M01S01160.trmdef +++| IX3 X1-X6 01596 M01S01161.trmdef +++| NG X3,PTPX IF INCORRECT TERMINAL CLASS CHANGE 01597 M01S01162.trmdef +++| PTP1 BX3 X3-X3 CLEAR ERROR FLAG 01598 M01S01163.trmdef +++| SA6 TRMB SET NEW TERMINAL CLASS 01599 M01S01164.trmdef +++| EQ PTPX RETURN 01600 M01S01165.trmdef +++| SAF SPACE 4,20 01601 M01S01166.trmdef +++|** SAF - SET ATTRIBUTE FLAGS. 01602 M01S01167.trmdef +++|* 01603 M01S01168.trmdef +++|* ENTRY (B7) = INDEX INTO TABLES. 01604 M01S01169.trmdef +++|* 01605 M01S01170.trmdef +++|* EXIT (TRMF) POINTERS UPDATED. 01606 M01S01171.trmdef +++|* 01607 M01S01172.trmdef +++|* USES X - 2, 7. 01608 M01S01173.trmdef +++|* A - 2, 7. 01609 M01S01174.trmdef +++| 01610 M01S01175.trmdef +++| 01611 M01S01176.trmdef +++| SAF SUBR ENTRY/EXIT 01612 M01S01177.trmdef +++| SX7 B1 01613 M01S01178.trmdef +++| SA2 TFVR+B7 ATTRIBUTE TYPE CHECK 01614 M01S01179.trmdef +++| LX2 59-39 01615 M01S01180.trmdef +++| NG X2,SAF1 IF COMMON ATTRIBUTE 01616 M01S01181.trmdef +++| LX2 1 01617 M01S01182.trmdef +++| NG X2,SAF2 IF NAM/CDNA ATTRIBUTE 01618 M01S01183.trmdef +++| LX2 1 01619 M01S01184.trmdef +++| NG X2,SAF3 IF NAM/CCP ATTRIBUTE 01620 M01S01185.trmdef +++| 01621 M01S01186.trmdef +++| SAF1 SA7 TRMF+2 SET COMMON FLAG 01622 M01S01187.trmdef +++| EQ SAFX RETURN 01623 M01S01188.trmdef +++| 01624 M01S01189.trmdef +++| SAF2 SA7 TRMF+1 SET CDNA FLAG 01625 M01S01190.trmdef +++| EQ SAFX RETURN 01626 M01S01191.trmdef +++| 01627 M01S01192.trmdef +++| SAF3 SA7 TRMF SET CCP FLAG 01628 M01S01193.trmdef +++| EQ SAFX RETURN 01629 M01S01194.trmdef +++| SEP SPACE 4,20 01630 M01S01195.trmdef +++|** SEP - SEND EXTRA FN/FV PAIR. 01631 M01S01196.trmdef +++|* 01632 M01S01197.trmdef +++|* ENTRY (X2) = CURRENT FIELD NUMBER. 01633 M01S01198.trmdef +++|* (X4) = CURRENT FIELD VALUE. 01634 M01S01199.trmdef +++|* (X6) = FIELD VALUE TO BE VALIDATED. 01635 M01S01200.trmdef +++|* (A2) = *TMPV* TABLE ENTRY. 01636 M01S00001.trmd13 +++|* (B5) = 0. 01637 M01S01201.trmdef +++|* (B7) = INDEX INTO TABLES. 01638 M01S01202.trmdef +++|* 01639 M01S01203.trmdef +++|* EXIT (X2) = CURRENT FIELD NUMBER. 01640 M01S01204.trmdef +++|* (X4) = CURRENT FIELD VALUE. 01641 M01S01205.trmdef +++|* (X6) = FIELD VALUE TO BE VALIDATED. 01642 M01S01206.trmdef +++|* (B5) .LT. 0, IF *C* VALUE TOO LARGE. 01643 M01S01207.trmdef +++|* .GE. 0, IF *C* VALUE LESS THAN 4096. 01644 M01S01208.trmdef +++|* (B7) = INDEX INTO TABLES. 01645 M01S01209.trmdef +++|* 01646 M01S01210.trmdef +++|* EXIT TO VFT3. 01647 M01S01211.trmdef +++|* 01648 M01S01212.trmdef +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 01649 M01S01213.trmdef +++|* A - 1, 2. 01650 M01S01214.trmdef +++|* B - 3, 4, 5. 01651 M01S01215.trmdef +++|* 01652 M01S01216.trmdef +++|* CALLS EFP. 01653 M01S01217.trmdef +++| 01654 M01S01218.trmdef +++| 01655 M01S01219.trmdef +++|* SEND *DL*/*XL* FLAG. 01656 M01S01220.trmdef +++| 01657 M01S01221.trmdef +++| SEP SX3 B0 FIELD VALUE 01658 M01S01222.trmdef +++| EQ SEP2 CONTINUE 01659 M01S01223.trmdef +++| 01660 M01S01224.trmdef +++| SEP1 SX3 B1 FIELD VALUE 01661 M01S01225.trmdef +++| SEP2 SB3 X4 SAVE CURRENT FIELD VALUE 01662 M01S01226.trmdef +++| SB4 X2 SAVE CURRENT FIELD NUMBER 01663 M01S01227.trmdef +++| SX4 X3+4000B SET UP DL/XL FLAG 01664 M01S01228.trmdef +++| SX2 MXFN FIELD NUMBER 01665 M01S01229.trmdef +++| SX3 X6 SAVE VALUE TO VERIFY 01666 M01S01230.trmdef +++| RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B 01667 M01S01231.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B 01668 M01S01232.trmdef +++| SX4 B3 RESTORE CURRENT FIELD VALUE 01669 M01S01233.trmdef +++| SX2 B4 RESTORE CURRENT FIELD NUMBER 01670 M01S01234.trmdef +++| SX6 X3 RESTORE VALUE TO VALIDATE 01671 M01S01235.trmdef +++| SA1 TMPV+B7 CHECK FIELD VALUE FORMAT 01672 M01S01236.trmdef +++| MX0 6 01673 M01S01237.trmdef +++| BX1 X0*X1 01674 M01S01238.trmdef +++| LX1 6 01675 M01S01239.trmdef +++| SX5 X1-1RC 01676 M01S01240.trmdef +++| NZ X5,SEP3 IF NOT *C* FORMAT 01677 M01S01241.trmdef +++| SX1 X6-256D 01678 M01S01242.trmdef +++| SB7 B7+B1 INCREMENT TABLE INDEX 01679 M01S01243.trmdef +++| SX4 4000B CLEAR UPPER BYTE 01680 M01S00002.trmd13 +++| SB5 -B1 SET ERROR FLAG 01681 M01S01244.trmdef +++| NG X1,SEP2.1 IF LESS THAN 8 BITS 01682 M01S01245.trmdef +++| AX6 8 GET UPPER 4 BITS 01683 M01S01246.trmdef +++| SX1 X6-16D
| Line S01247 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd13 |
Seq # *Modification Id* Act ----------------------------+ 01684 M02S01247.trmd13 ---| SB5 -B1 SET ERROR FLAG 01685 M01S01248.trmdef +++| PL X1,SEP3 IF VALUE TOO LARGE
| Line S01249 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd13 |
Seq # *Modification Id* Act ----------------------------+ 01686 M02S01249.trmd13 ---| SB5 B0 CLEAR ERROR FLAG 01687 M01S01250.trmdef +++| SX4 X6+4000B FIELD VALUE
| Line S01251 Modification History | |
|---|---|
M01 (Added by) | trmdef |
M02 (Updated by) | trmd13 |
Seq # *Modification Id* Act ----------------------------+ 01688 M02S01251.trmd13 ---| SEP2.1 RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B 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 M01S01252.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B 01693 M01S01253.trmdef +++| SA2 A2+B1 01694 M01S01254.trmdef +++| AX2 18 01695 M01S01255.trmdef +++| SX2 X2 01696 M01S01256.trmdef +++| MX0 -8 01697 M01S01257.trmdef +++| SX6 X3 01698 M01S01258.trmdef +++| BX6 -X0*X6 01699 M01S01259.trmdef +++| SX4 X6+4000B RESTORE FIELD VALUE 01700 M01S01260.trmdef +++| SEP3 JP VFT3 RETURN 01701 M01S01261.trmdef +++| 01702 M01S01262.trmdef +++|* TRANSLATE *IN* FIELD VALUE. 01703 M01S01263.trmdef +++| 01704 M01S01264.trmdef +++| SEP4 SB4 X4-4000B GET FIELD VALUE 01705 M01S01265.trmdef +++| SA1 SEPA+B4 01706 M01S01266.trmdef +++| MX0 -12 01707 M01S01267.trmdef +++| SEP5 LX1 12 FIND FN/FV PAIR 01708 M01S01268.trmdef +++| BX2 -X0*X1 GET TRUE FIELD NUMBER 01709 M01S01269.trmdef +++| LX1 12 01710 M01S01270.trmdef +++| BX4 -X0*X1 GET TRUE FIELD VALUE 01711 M01S01271.trmdef +++| PL X1,SEP3 IF NOT TWO PAIRS 01712 M01S01272.trmdef +++| LX1 6 01713 M01S01273.trmdef +++| SX3 X6 SAVE VALUE TO VERIFY 01714 M01S01274.trmdef +++| RJ EFP ENTER FN/FV PAIR - CONTROL BYTE 0016B 01715 M01S01275.trmdef +++| RJ EFQ ENTER AN/AV PAIR - CONTROL BYTE 0010B 01716 M01S01276.trmdef +++| SX6 X3 RESTORE VALUE TO VALIDATE 01717 M01S01277.trmdef +++| EQ SEP5 SET UP NEXT PAIR 01718 M01S01278.trmdef +++| 01719 M01S01279.trmdef +++| 01720 M01S01280.trmdef +++|* SEPA - TABLE OF EXTRA FN/FV PAIRS. 01721 M01S01281.trmdef +++|* 01722 M01S01282.trmdef +++|*T 12/FN,12/FV,6/FLAG,12/FN,12/FV,6/FLAG.
Figure
01723 M01S01283.trmdef +++|* 01724 M01S01284.trmdef +++|* FN = FIELD NUMBER. 01725 M01S01285.trmdef +++|* FV = FIELD VALUE. 01726 M01S01286.trmdef +++|* FLAG = .LT. 0, IF ANOTHER FN/FV PAIR. 01727 M01S01287.trmdef +++|* .GE. 0, IF NOT ANOTHER FN/FV PAIR. 01728 M01S01288.trmdef +++| 01729 M01S01289.trmdef +++| 01730 M01S01290.trmdef +++| SEPA BSS 0 01731 M01S01291.trmdef +++| VFD 12/XPFN,12/4000B,6/-1,12/INFN,12/4000B,6/0 *IN=KB* 01732 M01S01292.trmdef +++| VFD 12/XPFN,12/4000B,6/-1,12/INFN,12/4001B,6/0 *IN=PT* 01733 M01S01293.trmdef +++| VFD 12/XPFN,12/4001B,6/-1,12/INFN,12/4001B,6/0 *IN=XP* 01734 M01S01294.trmdef +++| VFD 12/XPFN,12/4001B,6/-1,12/INFN,12/4000B,6/0 *IN=XK* 01735 M01S01295.trmdef +++| VFD 12/INFN,12/4002B,36/0 *IN=BK* 01736 M01S01296.trmdef +++| VFD 12/XPFN,12/4001B,36/0 *IN=X* 01737 M01S01297.trmdef +++| CON 0 END OF TABLE
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/trmdef.txt · Last modified: by 127.0.0.1