* % GOTO LCHPLS; /* GO TO THE PL/S VERSION */ 00050021 * 00100021 MACRO 00150021 IECDLCH 00200021 LCH DSECT 00250021 SPACE 1 00300021 ***************************************************************** 00350021 * * 00400021 * THIS MACRO DSECT DESCRIBES THE LOGICAL CHANNEL QUEUE TABLE. * 00450021 * * 00500021 ***************************************************************** 00550021 SPACE 1 00600021 LCHENTRY DS 0D DOUBLEWORD ALIGNMENT 00650021 LCHFST DS F FIRST IOQ ON LCH 00700002 LCHLST DS F LAST IOQ ON LCH 00750002 LCHLOCK DS F LOCKWORD ASSOCIATED WITH LCH YM3157P 00800002 LCHRSV01 DS F RESERVED YM3157P 00810002 LCHTCH DS F TCH CHANNEL LIST 00850021 LCHCHCNT DS FL1 NUMBER OF CHANNELS ON LCH 00900021 LCHFLA DS XL1 FLAG BYTE 00950021 SPACE 1 01000021 LCHLKHLD EQU X'80' LCHLOCK HELD ON ENTRY 01050021 * EQU X'7F' RESERVED 01100021 SPACE 1 01150021 LCHRSV02 DS H RESERVED YM3157P 01160002 LCHTOTAL DS H TOTAL REQUESTS STARTED OR 01200021 * QUEUED 01250021 LCHRSV03 DS H RESERVED YM3157P 01260002 LCHLGBSY DS H NUMBER REQUESTS QUEUED 01300021 * BECAUSE LOGICALLY BUSY 01350021 LCHPYBSY DS H NUMBER REQUESTS QUEUED 01400021 * BECAUSE PHYSICALLY BUSY 01450021 LCHEL EQU *-LCHENTRY ENTRY LENGTH 01500021 LCHELP2 EQU 5 LENGTH OF LCH IN POWERS OF TWO 01510021 MEND 01550021 *%LCHPLS: ; 01600021 * 01650021 * /*************************************************************/ 01700021 * /* */ 01750021 * /* THIS STRUCTURE DESCRIBES THE LOGICAL CHANNEL QUEUE TABLE. */ 01800021 * /* CALLERS OF THIS MACRO SHOULD RESPECIFY THE LCH BASED ON */ 01850021 * /* THE ADDRESS GOTTEN FROM THE CVT. */ 01900021 * /* */ 01950021 * /*************************************************************/ 02000021 * /* */ 02050021 * /* 09/05/73 LEVEL=00 */ 02100002 * /* */ 02110021 * /*************************************************************/ 02120021 * 02150021 * DCL 1 LCH BDY(DWORD) BASED(LCHPTR), 02160021 * 2 LCHENTRY PTR(31), /* LABEL IDENTIFICATION */ 02200002 * 3 LCHFST PTR(31), /* FIRST IOQ ON LCH */ 02300002 * 2 LCHLST PTR(31), /* LAST IOQ ON LCH */ 02350002 * 2 LCHLOCK CHAR(4), /* LOCKWORD FOR LCH YM3157P */ 02400002 * 2 LCHRSV01 CHAR(4), /* RESVERVED YM3157P */ 02410002 * 2 LCHTCH PTR(31), /* TCH CHANNEL LIST */ 02450021 * 2 LCHCHCNT FIXED(8), /* NUMBER OF CHANNELS IN 02500002 * LIST */ 02550002 * 2 LCHFLA CHAR(1), /* FLAG BYTE */ 02600021 * 3 LCHLKHLD BIT(1), /* LOCK HELD ON ENTRY */ 02650021 * 3 * BIT(7), /* RESERVED */ 02700002 * 02750021 * 2 LCHRSV02 CHAR(2), /* RESERVED YM3157P */ 02760002 * 2 LCHTOTAL FIXED(15), /* TOTAL REQUESTS STARTED 02800002 * OR QUEUED */ 02850002 * 2 LCHRSV03 CHAR(2), /* RESERVED YM3157P */ 02860002 * 2 LCHLGBSY FIXED(15), /* NUMBER OF RQSTS QUEUED 02900002 * BECAUSE LOGICALLY BUSY */ 02950002 * 2 LCHPYBSY FIXED(15), /* NUMBER RQSTS QUEUED 03000002 * BECAUSE PHYSICALLY BUSY */ 03050002 * 2 LCHEND CHAR(0); /* END OF LCH */ 03100021 * DCL LCHELP2 BIT(8) CONSTANT('05'X); /* 03110002 * LCH ELEM LNGTH POWER OF 2*/ 03120002 * 03150021 *%DCL LCHEL CHAR; /* LENGTH OF TABLE */ 03200021 *%LCHEL='ADDR(LCHEND)-ADDR(LCHENTRY)'; 03250021