* %GOTO DCTPLS; /* BILINGUAL HEADER 01000010 MACRO 02000010 TDCTD 03000010 .*A000000-999999 @Y17XAXF 04000010 IEDDCT DSECT 05000010 * 06000010 * DSECT FOR A DEVICE CHARACTERISTIC TABLE ENTRY (DCT) 07000010 * 08000010 DCTBYTE0 DS CL1 . RESERVED 09000010 SPACE 10000010 DCTBYTE1 DS CL1 . BYTE 1 11000010 DCTINHIB EQU X'80' . (CINHIBIT) TERMINAL CAN USE READ INHIBIT CCW 12000010 DCTBREAK EQU X'40' . (CBREAK ) TERMINAL HAS REVERSE BREAK FEATURE 13000010 DCTATTEN EQU X'20' . (CATTEN ) TERMINAL HAS THE ATTENTION FEATURE 14000010 DCT5041 EQU X'10' . (C5041) ) 2741 & 1050 INTERRUPT FEATURE 15000010 DCT2741 EQU X'08' . (C2741 ) 2741 ON THIS LINE 16000010 DCT3270 EQU X'04' . (C3270 ) 3270 DEVICE 17000010 DCTSADEV EQU X'02' . (CSADEV ) STAND ALONE DEVICE 18000010 DCTUMASK EQU X'01' . (CUMASK ) CONTROL UNIT(2848 OR 3270) 19000010 SPACE 20000010 DCTBYTE2 DS CL1 . BYTE 2 21000010 DCTBISYN EQU X'80' . (CBISYNC ) BSC STATION 22000010 DCTBRDST EQU X'40' . (CBRDCST ) TERMINAL IS FOR BROADCAST DATA 23000010 DCTTWX EQU X'20' . (CTWX ) TWX 3335 TERMINAL 24000010 DCTSTCTL EQU X'10' . (CSTNCTL ) TERMINAL HAS STATION CTL FEATURE 25000010 DCTXMIT EQU X'08' . (CXMITCTL) TERMINAL HAS TRANSMIT CTL FEATURE 26000010 DCTCONT EQU X'04' . (CCONTENT) CONTENTION DEVICE 27000010 DCTLOCAL EQU X'02' . (CLOCAL ) LOCAL DEVICE 28000010 DCTAUDIO EQU X'01' . (CAUDIO ) AUDIO DEVICE 29000010 SPACE 30000010 DCTBYTE3 DS CL1 . BYTE 3 31000010 DCT1050 EQU X'80' . 1050 32000010 DCTWTTA EQU X'40' . (CWTTA ) WORLD TRADE TELEGRAPH 33000010 DCTENCTL EQU X'20' . (CENDCTL ) TERMINAL HAS END-TO-END CTLS(2780) 34000010 DCTCHECK EQU X'10' . (CCHECK ) TERMINAL HAS THE CHECKING FEATURE 35000010 DCTBUFF EQU X'08' . BUFFER DELAY (2740 MOD2) 36000010 DCTCONTN EQU X'04' . (CCONTIN ) TERMINAL SUPPORTS CONTINUE OPER 37000010 DCTNOIDL EQU X'02' . (CNOIDLES) TERMINAL HAS NO IDLES DEFINED 38000010 DCT2760 EQU X'01' . (C2760 ) 2760 39000010 SPACE 40000010 DCTBYTE4 DS CL1 . BYTE 4 41000010 * DCTFMPRF BITS 0-3 FM PROFILE NUMBER 42000010 * DCTTSPRF BITS 4-7 TS PROFILE NUMBER 43000010 SPACE 44000010 DCTBYTE5 DS CL1 . BYTE 5 45000010 DCTSCS EQU X'80' . USS=SCS FOR LUNT 46000010 DCTL3270 EQU X'40' . USS=3270 FOR LUNT 47000010 * EQU X'20'-X'01' RESERVED 48000010 DCTLEN EQU *-IEDDCT . LEN OF DCT ENTRY 49000010 MEND 50000010 * */ 51000010 *%DCTPLS:; 52000010 *DECLARE 53000010 * 1 IEDDCT BASED BDY(BYTE), 54000010 */* */ 55000010 */* DSECT FOR A DEVICE CHARACTERISTICS TABLE ENTRY (DCT) */ 56000010 */* */ 57000010 * 2 DCTBYTE0 CHAR(1), /* RESERVED */ 58000010 * 2 DCTBYTE1 CHAR(1), /* BYTE1 */ 59000010 * 3 DCTINHIB BIT(1), /*CINHIBIT*/ /* TERM CAN USE RD INHT CCW*/ 60000010 * 3 DCTBREAK BIT(1), /*CBREAK */ /* TERM HAS REVERSE BRK FEA*/ 61000010 * 3 DCTATTEN BIT(1), /*CATTEN */ /* TERM HAS ATTENTION FEAT */ 62000010 * 3 DCT5041 BIT(1), /*C5041 */ /* 2741 & 1050 INTERR FEAT */ 63000010 * 3 DCT2741 BIT(1), /*C2741 */ /* 2741 ON THIS LINE */ 64000010 * 3 DCT3270 BIT(1), /*C3270 */ /* 3270 DEVICE */ 65000010 * 3 DCTSADEV BIT(1), /*CSADEV */ /* STAND ALONE DEVICE */ 66000010 * 3 DCTUMASK BIT(1), /*CUMASK */ /* CONTROL UNIT(2848/3270) */ 67000010 * 2 DCTBYTE2 CHAR(1), /* BYTE2 */ 68000010 * 3 DCTBISYN BIT(1), /*CBISYNC */ /* BSC STATION */ 69000010 * 3 DCTBRDST BIT(1), /*CBRDCST */ /* TERM IS FOR BRDCAST DATA*/ 70000010 * 3 DCTTWX BIT(1), /*CTWX */ /* TWX 3335 TERMINAL */ 71000010 * 3 DCTSTCTL BIT(1), /*CSTNCTL */ /* TERM HAS STATION CTL FEA*/ 72000010 * 3 DCTXMIT BIT(1), /*CXMITCTL*/ /* TERM HAS XMIT CTL FEAT */ 73000010 * 3 DCTCONT BIT(1), /*CCONTENT*/ /* CONTENTION DEVICE */ 74000010 * 3 DCTLOCAL BIT(1), /*CLOCAL */ /* LOCAL DEVICE */ 75000010 * 3 DCTAUDIO BIT(1), /*CAUDIO */ /* AUDIO DEVICE */ 76000010 * 2 DCTBYTE3 CHAR(1), /* BYTE3 */ 77000010 * 3 DCT1050 BIT(1), /* 1050 */ 78000010 * 3 DCTWTTA BIT(1), /*CWTTA */ /* WORLD TRADE TELEGRAPH */ 79000010 * 3 DCTENCTL BIT(1), /*CENDCTL */ /* TERM HAS END-TO-END CTLS*/ 80000010 * 3 DCTCHECK BIT(1), /*CCHECK */ /* TERM HAS CHECKING FEAT */ 81000010 * 3 DCTBUFF BIT(1), /* BUFFER DELAY (2740 MOD2)*/ 82000010 * 3 DCTCONTN BIT(1), /*CCONTIN */ /* TERM SUPPORTS CONT OPER */ 83000010 * 3 DCTNOIDL BIT(1), /*CNOIDLES*/ /* TERM HAS NO IDLES DEF */ 84000010 * 3 DCT2760 BIT(1), /*C2760 */ /* 2760 */ 85000010 * 2 DCTBYTE4 CHAR(1), /* BYTE4 */ 86000010 * 3 DCTFMPRF BIT(4), /* FM PROFILE NUMBER */ 87000010 * 3 DCTTSPRF BIT(4), /* TS PROFILE NUMBER */ 88000010 * 2 DCTBYTE5 CHAR(1), /* BYTE5 */ 89000010 * 3 DCTSCS BIT(1), /* USS=SCS FOR LUNT */ 90000010 * 3 DCTL3270 BIT(1), /* USS=3270 FOR LUNT */ 91000010 * 3 * BIT(6); /* RESERVED */ 92000010 * %DCTLEN='LENGTH(IEDDCT)'; /* DCT LENGTH */ 93000010