* % GOTO IOQPLS; /* GO TO THE PLS VERSION */ 00050021 MACRO 00100021 IECDIOQ 00110021 IOQ DSECT 00150021 SPACE 1 00200021 **************************************************************** 00250021 * * 00300021 * THIS DSECT DESCRIBES THE ELEMENT USED BY THE I/O * 00350021 * SUPERVISOR WHEN QUEUING I/O REQUESTS TO A LOGICAL * 00400021 * CHANNEL OR TO A DEVICE (UCB). * 00450021 * * 00500021 **************************************************************** 00550021 SPACE 1 00600021 IOQLNK DS A LINK FIELD 00650021 IOQFLA DS XL1 IOQ FLAG BYTE A 00660021 IOQSLCH EQU X'80' IOQ ASSOC WITH A SENSE LCH 00662002 IOQENQ EQU X'40' IOQ IS ENQUEUED 00664002 IOQLBSY EQU X'20' UPDATE LCHLGBSY COUNTER 00666021 IOQPBSY EQU X'10' UPDATE LCHPYBSY COUNTER 00668021 * EQU X'08' RESERVED 00668421 * EQU X'04' RESERVED 00668821 * EQU X'03' RESERVED 00669221 IOQFLB DS XL1 IOQ FLAG BYTE B 00670002 IOQRESV EQU X'80' RESERVE FLAG 00672002 IOQRLSE EQU X'40' RELEASE FLAG 00674002 IOQALOC EQU X'3C' ALLOCATED IND TO IECVSMGR 00676004 IOQHOLD EQU X'02' 3330V REQUEST HELD @G24LPLN 00676300 * EQU X'01' RESERVED 00676600 IOQPRI DS XL1 PRIORITY 00680021 IOQPTH DS XL1 CURRENT PATH MASK 00690002 IOQIOSB DS A ADDRESS OF IOSB 00700021 IOQL EQU *-IOQLNK LENGTH OF IOQ 00710021 MEND 00750021 *%IOQPLS: ; 00800021 * 00850021 */*************************************************************/ 00900021 */* */ 00950021 */* THIS STRUCTURE DESCRIBES THE ELEMENT USED BY THE I/O */ 01000021 */* SUPERVISOR WHEN QUEUING I/O REQUESTS TO A LOGICAL */ 01050021 */* CHANNEL OR TO A DEVICE (UCB). */ 01100021 */* */ 01150021 */*************************************************************/ 01200021 */* */ 01250021 */* 05/30/72 LEVEL=00 */ 01300021 */* */ 01350021 */*************************************************************/ 01400021 * 01450021 * DCL 1 IOQ BDY(WORD) BASED(IOQPTR), 01460021 * 2 IOQLNK PTR(31), /* LINK FIELD */ 01500021 * 2 IOQFLAGS PTR(31), /* ADDRESS OF IOSB */ 01550021 * 3 IOQFLA BIT(8), /* IOQ FLAG BYTE A */ 01560021 * 4 IOQSLCH BIT(1), /* IOQ ASSOC WTH SENSE LCH*/ 01560402 * 4 IOQENQ BIT(1), /* IOQ IS ENQUEUED */ 01560802 * 4 IOQLBSY BIT(1), /* UPDATE LCHLGBSY COUNTER */ 01561221 * 4 IOQPBSY BIT(1), /* UPDATE LCHPYBSY COUNTER */ 01561621 * 4 * BIT(4), /* RESERVED */ 01561921 * 3 IOQFLB BIT(8), /* IOQ FLAG BYTE B */ 01562002 * 4 IOQRESV BIT(1), /* RESERVE FLAG */ 01562402 * 4 IOQRLSE BIT(1), /* RELEASE FLAG */ 01562802 * 4 IOQALOC BIT(4), /* ALLOCATED IND TO */ 01563204 * /* IECVSMGR */ 01563404 * 4 IOQHOLD BIT(1), /* 3330V REQUEST HELD @G24LPLN*/ 01563700 * 3 IOQPRI CHAR(1), /* PRIORITY */ 01564002 * 3 IOQPTH CHAR(1), /* CURRENT PATH MASK */ 01566002 * 2 IOQIOSB PTR(31), /* ADDRESS OF IOSB */ 01570021 * 2 IOQEND CHAR(0); /* END OF IOQ */ 01600021 * 01650021 *%DCL IOQL CHAR; /* LENGTH OF IOQ */ 01700021 *%IOQL='ADDR(IOQEND)-ADDR(IOQLNK)'; 01750021