* %GOTO SPL0; /* 00050002 MACRO 00100002 IHASPL 00150002 **/ 00160002 *%SPL0:; 00170002 */* 00200002 ********************************************************************** 00210002 * * 00220002 * SERVICE PRIORITY LIST (SPL) * 00250002 * * 00252002 ********************************************************************** 00260002 **/ 00300002 * %GOTO SPL1; 00310002 */* 00312002 ********************************************************************** 00320002 * * 00322002 * ENTRY IN SPL * 00330002 * * 00332002 ********************************************************************** 00340002 SPLENTRY DSECT 00350002 SPLFSRB DS A ADDRESS OF FIRST SRB 00400002 SPLLSRB DS A ADDRESS OF LAST SRB 00450002 ********************************************************************** 00460002 * * 00470002 * GLOBAL SPL * 00500002 * * 00502002 ********************************************************************** 00510002 GSPL DSECT 00550002 GSPLNQ DS 0CL8 NON-QUIESCABLE LEVEL 00600002 GSPLNQF DS A FIRST NONQ SRB 00650002 GSPLNQL DS A LAST NONQ SRB 00700002 GSPLSYS DS 0CL8 SYSTEM PRIORITY LEVEL 00750002 GSPLSYSF DS A FIRST SYSTEM SRB 00800002 GSPLSYSL DS A LAST SYSTEM SRB 00850002 GSPLEND DS 0A END OF GSPL 00900002 GSPLSIZE EQU GSPLEND-GSPL SIZE OF GSPL 00950002 *********************************************************************** 00960002 * * 01000002 * LOCAL SPL * 01050002 * * 01100002 *********************************************************************** 01110002 LSPL DSECT 01150002 LSPLNQ DS 0CL8 NON-QUIESCEABLE LEVEL 01200002 LSPLNQF DS A FIRST NONQ SRB 01250002 LSPLNQL DS A LAST NONQ SRB 01300002 LSPLSYS DS 0CL8 SYSTEM PRIORITY LEVEL 01350002 LSPLSYSF DS A FIRST SYSTEM SRB 01400002 LSPLSYSL DS A LAST SYSTEM SRB 01450002 LSPLEND DS 0A END OF LSPL 01500002 LSPLSIZE EQU LSPLEND-LSPL LSPL SIZE 01550002 MEND 01600002 **/ 01610002 *%SPL1:; 01650002 */*******************************************************************/ 01660002 */* */ 01662002 */* ENTRY IN SPL */ 01670002 */* */ 01672002 */*******************************************************************/ 01680002 * DECLARE 01700002 * 01750002 * 1 SPLENTRY BDY(WORD) BASED, /* ENTRY IN THE SPL */ 01800002 * 01850002 * 2 SPLFSRB PTR(31), /*POINTER TO FIRST SRB ON Q */ 01900002 * 01950002 * 2 SPLLSRB PTR(31); /*POINTER TO LAST SRB */ 02000002 */*******************************************************************/ 02010002 */* */ 02050002 */* GLOBAL SPL */ 02100002 */* */ 02150002 */*******************************************************************/ 02160002 * DECLARE 02200002 * 1 GSPL BDY(WORD) BASED(GSPLPTR), /* GLOBAL SPL */ 02260002 * 02300002 * 2 GSPLNQ , /*NON-QUIESCEABLE PRIORITY */ 02350002 * 02400002 * 3 GSPLNQF PTR(31), /*FIRST NONQ SRB */ 02450002 * 02500002 * 3 GSPLNQL PTR(31), /*LAST NONQ SRB */ 02550002 * 02600002 * 2 GSPLSYS , /*SYSTEM PRIORITY LEVEL */ 02650002 * 02700002 * 3 GSPLSYSF PTR(31), /* FIRST SYSTEM SRB */ 02750002 * 02800002 * 3 GSPLSYSL PTR(31), /* LAST SYSTEM SRB */ 02850002 * 02900002 * 2 GSPLEND CHAR(0); /* END OF GSPL */ 02950002 */*******************************************************************/ 02960002 */* */ 02970002 */* LOCAL SPL */ 02980002 */* */ 02982002 */*******************************************************************/ 02990002 * 03000002 * DECLARE 03050002 * 03100002 * 1 LSPL BDY(WORD) BASED(LSPLPTR), /*LOCAL SPL */ 03150002 * 03200002 * 2 LSPLNQ , /* NON-QUIESCEABLE PRIORITY */ 03250002 * 03300002 * 3 LSPLNQF PTR(31), /* FIRST NONQ SRB */ 03350002 * 03400002 * 3 LSPLNQL PTR(31), /* LAST NONQ SRB */ 03450002 * 03500002 * 03550002 * 03600002 * 2 LSPLSYS , /* SYSTEM PRIORITY LEVEL */ 03650002 * 03700002 * 3 LSPLSYSF PTR(31), /* FIRST SYSTEM SRB */ 03750002 * 03800002 * 3 LSPLSYSL PTR(31), /* LAST SYSTEM SRB */ 03850002 * 03900002 * 2 LSPLEND CHAR(0); /* END OF LSPL */ 03950002