* %GOTO IQEBSL; /* 01550001 MACRO 02550001 IHAIQE 03550001 ** INTERRUPTION QUEUE ELEMENT - I.Q.E. LEVEL=1 04550001 IQESECT DSECT , IQEPTR 05550001 IQELNK DS 0AL4 .WORD REFERENCE FOR IQELNKA 06550001 IQESTAT1 DS B .1 BYTE RESERVED 07550001 IQELNKA DS AL3 .ADDR NEXT IQE 08550001 IQEPARAM DS A .PARMS TO BE PASSED TO ASYN EXIT RTN 09550001 IQEIRB DS 0AL4 .WORD REFERENCE FOR IQEIRBA 10550001 IQEFLAGS DS B .FLAG FIELD 11550001 IQEPURGE EQU X'80' .THIS IQE MUST NOT BE SCHEDULED 12550001 IQEIRBA DS AL3 .ADDR IRB TO BE SCHEDULED 13550001 IQETCB DS 0AL4 .WORD REFERENCE FOR IQETCBA 14550001 IQESTAT2 DS B .1 BYTE RESERVED 15550001 IQETCBA DS AL3 .ADDR TCB ASSOCIATED WITH THIS IQE 16550001 ** THE FOLLOWING IS IN BEHALF OF S.M.F. 17550001 IQEDCB DS A .ADDR OF DCB 18550001 IQEOUTLM DS A .ADDR OF OUTPUT LIMIT 19550001 IQEEND DS 0C .END OF IQE 20550001 IQELEN EQU IQEEND-IQESECT .LENGTH OF IQE 21550001 MEND , */ 22550001 *%IQEBSL : ; 23550001 */* INTERRUPTION QUEUE ELEMENT - I.Q.E. LEVEL=1 */ 24550001 *DECLARE 25550001 * 1 IQESECT BASED(IQEPTR), 26550001 * 2 IQELNK PTR(31) BDY(BYTE), /* .WORD REFERENCE FOR 27550001 * IQELNKA */ 28550001 * 3 IQESTAT1 CHAR(1), /* .1 BYTE RESERVED */ 29550001 * 3 IQELNKA PTR(24) BDY(BYTE), /* .ADDR NEXT IQE */ 30550001 * 2 IQEPARAM PTR(31), /* .PARMS TO BE PASSED TO 31550001 * ASYN EXIT RTN */ 32550001 * 2 IQEIRB PTR(31) BDY(BYTE), /* .WORD REFERENCE FOR 33550001 * IQEIRBA */ 34550001 * 3 IQEFLAGS CHAR(1), /* .FLAG FIELD */ 35550001 * 4 IQEPURGE BIT(1), /* .THIS IQE MUST NOT BE 36550001 * SCHEDULED */ 37550001 * 4 * BIT(1), /* RESERVED */ 38550001 * 4 * BIT(1), /* RESERVED */ 39550001 * 4 * BIT(1), /* RESERVED */ 40550001 * 4 * BIT(1), /* RESERVED */ 41550001 * 4 * BIT(1), /* RESERVED */ 42550001 * 4 * BIT(1), /* RESERVED */ 43550001 * 4 * BIT(1), /* RESERVED */ 44550001 * 3 IQEIRBA PTR(24) BDY(BYTE), /* .ADDR IRB TO BE 45550001 * SCHEDULED */ 46550001 * 2 IQETCB PTR(31) BDY(BYTE), /* .WORD REFERENCE FOR 47550001 * IQETCBA */ 48550001 * 3 IQESTAT2 CHAR(1), /* .1 BYTE RESERVED */ 49550001 * 3 IQETCBA PTR(24) BDY(BYTE), /* .ADDR TCB ASSOCIATED 50550001 * WITH THIS IQE */ 51550001 */* THE FOLLOWING IS IN BEHALF OF S.M.F. */ 52550001 * 2 IQEDCB PTR(31), /* .ADDR OF DCB */ 53550001 * 2 IQEOUTLM PTR(31); /* .ADDR OF OUTPUT LIMIT */ 54550001 *DECLARE 1 IQEEND (*) CHAR(1) BASED 55550001 * (ADDR(IQESECT )+LENGTH(IQESECT )); 56550001 * /* .END OF IQE */ 57550001