* % GOTO IOCXPLS; /* GO TO PLS VERSION 00050003 MACRO 00100021 IECDIOCX 00150021 **************************************************************** 00200021 * THIS MACRO DESCRIBES THE EXTENSION TO THE COMMUNICATION AREA * 00250021 * OF THE I/O SUPERVISOR THAT IS GENERATED AT SYSGEN. * 00300021 **************************************************************** 00350021 SPACE 1 00400021 IOX DSECT 00450021 IOCX EQU IOX 00460002 IOXOFSET DS H MAX OFFSET + 1 IN UCB 00500021 * ADDR LIST 00510021 IOXCHMSK DS H MASK OF GENERATED CHANNELS 00550021 IOXHICH DS C HIGHEST CHANNEL NUMBER GEND 00600021 IOXLCHCT DS C NUMBER OF LCHS GEND 00650021 DS H RESERVED CTC 00660002 IOXTCQSC DS A ADDR OF IECTCQSC OR 0 IF NO CTC CTC 00670002 IOXCRHA DS A ADDR OF IECVCRHA Y30CQLG 00670103 IOXCRHD DS A ADDR OF IECVCRHD Y30CQLG 00680003 IOXSTIDC DS A ADDR OF IECVCRHV Y30CQLG 00690003 IOXPSIX DS A FAST PATH TO PAGE FIX @Y30IPLG 00693003 IOXPSIF DS A FAST PATH TO PAGE FREE @Y30IPLG 00696003 MEND 00700021 * */ 00720003 * %IOCXPLS: ; 00750021 * 00800021 * /************************************************************/ 00850021 * /* */ 00900021 * /* THIS STRUCTURE DESCRIBES THE EXTENSION TO THE COMUNICA- */ 00950021 * /* TION AREA OF THE I/O SUPERVISOR GENERATED AT SYSGEN. */ 01000021 * /* */ 01050021 * /************************************************************/ 01100021 * 01150021 * DCL 1 IOCX BDY(WORD) BASED(IOCXPTR), 01160021 * 2 IOX PTR(15), /* LABEL IDENTIFIER */ 01170002 * 3 IOXOFSET PTR(15), /*MAX OFFSET + 1 IN UCB 01200002 * ADDRESS LIST */ 01250002 * 2 IOXCHMSK PTR(15), /*MASK OF GEND CHANNELS */ 01300002 * 2 IOXHICH CHAR(1), /*HIGHEST CHANNEL NUMBER 01350002 * GENERATED */ 01400002 * 2 IOXLCHCT CHAR(1), /* NUMBER OF LCHS GEND */ 01450002 * 2 * CHAR(2), /* RESERVED Y30CQLG*/ 01460103 * 2 IOXTCQSC PTR(31), /* ADDR OF IECTCQSC OR = 0 CTC*/ 01470002 * 2 IOXCRHA PTR(31), /* ADDR OF IECVCRHA Y30CQLG*/ 01470103 * 2 IOXCRHD PTR(31), /* ADDR OF IECVCRHD Y30CQLG*/ 01480003 * 2 IOXSTIDC PTR(31), /* ADDR OF IECVCRHV Y30CQLG*/ 01490003 * 2 IOXPSIX PTR(31), /* FAST PATH TO PAGE FIX @Y30IPLG*/ 01493003 * 2 IOXPSIF PTR(31), /* FAST PATH TO PAGE FREE@Y30IPLG*/ 01496003 * 2 IOXEND CHAR(0); /*END OF IOCOMEX */ 01500021