*%GO TO TAXEPLSP; /* 01000002 MACRO 02000001 IKJTAXE 03000001 TAXE DSECT 03100001 .*/%TAXEPLSP:; 03150002 */*************************************************************YO2752*/ 03250002 */* YO2752*/ 03350002 */* LEVEL=30740000,SYSTEM=VS/2 RELEASE 2 YO2752*/ 03450002 */* YO2752*/ 03500002 */* A TAXE CONSISTS OF AN IRB, AN IQE,AND A WORK AREA. THIS YO2752*/ 03550002 */* MACRO MAPS AN ENTIRE TAXE WITH THE EXCEPTION OF THE RB YO2752*/ 03650002 */* PREFIX. THE PREFIX IS NOT MAPPED BECAUSE OF ITS VARYING YO2752*/ 03750002 */* SIZE. THE PREFIX IS NEVER REQUIRED WHEN REFERENCING THE YO2752*/ 03850002 */* TAXE. YO2752*/ 03950002 */* YO2752*/ 04050002 */* THE TAXE IS SERIALIZED BY THE LOCAL LOCK YO2752*/ 04150002 */* YO2752*/ 04250002 */*************************************************************YO2752*/ 04350002 *%GO TO TAXEPLSC;/* 04450002 TAXEPRFX DS 0D YO2752 04550002 ORG TAXE YO2752 04650002 ************ STANDARD IRB ***************** 05000001 TAXEIRB DS 12D RESERVE SPACE FOR THE BASIC 05200001 * PART OF THE IRB. 05400001 * N.B. ACTUALLY, THE SPACE 05600001 * SHOULD BE RESERVED BY 05800001 * A REFERENCE TO THE 'RB' 06000001 * MAPPING MACRO 06200001 TAXENIQE DS A . PTR NEXT AVAILABLE IQE 07000001 ************ STANDARD IQE ********************* 08000001 TAXEWORK DS 0X LABEL USED WHEN CLEARING WORK AREA YO2752 08300002 TIQELNK DS A . ADDR OF NEXT IQE ON IQE QUEUE 09000001 TIQEPARM DS A . PARM TO ASYNCHRONOUS EXIT ROUTINE 10000001 TIQEIRB DS A . ADDR OF IRB TO BE SCHEDULED 11000001 TAXETCB DS A . PTR TO TCB 12000001 ************ WORK AREA OF IRB ***************** 13000001 DS CL1 ZA17748 13050003 TAXELNK DS AL3 PTR TO NEXT TAXE ON QUEUE ZA17748 14000003 DS A RESERVED YO2752 15050002 TAXEEXIT DS A . PTR TO USER ATTENTION EXIT RTN 17000001 TAXEPARM DS 0A PTR TO PARAMETER LIST TO STAX YO2752 18000002 TAXESTAT DS AL1 STATUS OF PROGRAM ISSUING STAX YO2752 18500002 TAXEFKEY EQU X'80' . STATUS FLAG FOR PROBLEM KEY 19000001 TAXEFMOD EQU X'40' . STATUS FLAG FOR PROBLEM MODE 20000001 TAXEFREQ EQU X'20' . STATUS FLAG FOR REQUESTED TAXE 21000001 TAXERESM EQU X'10' ON - ATTENTION PROLOGUE MUST NOT GO TO 22000001 * USER ATTENTION EXIT 23000001 TAXESCHD EQU X'08' ON -TAXE HAS BEEN SCHEDULED BUT IS 23050002 * NOT IN USER CODE. YO2752 23100002 TAXEATTN EQU X'04' ON- THERE IS AN ATTENTION STATEMENT 23150003 * IN EFFECT @ZA08099 23200003 TAXESTAX DS AL3 ADDRESS (24 BIT) TO PARM LIST TO 24000002 * STAX YO2752 24500002 TAXETAIE DS A . PTR TO TAIE 25000001 TAXEIBUF DS A . PTR TO USER INPUT BUFFER 26000001 TAXEUSER DS A . PTR TO USER PARAMETER 27000001 TAXEEND DS 0D TAXE WILL BE IN DOUBLE WORDS YO2752 27500002 TAXELNGT EQU *-TAXE LENGTH OF TAXE WITHOUT PREFIX YO2752 27700002 **/ 28000001 MEND 29000001 * %TAXEPLSC:; 30000002 * DECLARE 31000001 * 1 TAXE BASED(TAXEPTR), 32000001 * /* ******* STANDARD IRB ***************** */ 33000001 * 2 TAXEIRB CHAR(96) BDY(DWORD), /* IRB */ 34000002 * 2 TAXENIQE PTR(31), /* PTR NEXT AVAILABLE IQE */ 35000001 * /* ******* STANDARD IQE ********************* */ 36000001 * 2 TAXEWORK, /*LABEL USED WHEN CLEARING WORK 37000002 * AREA YO2752*/ 37700002 * 3 TIQELNK PTR(31), /*ADDR OF NEXT IQE ON IQE 38400002 * QUEUE YO2752*/ 39100002 * 3 TIQEPARM PTR(31), /*PARM TO ASYNCHRONOUS EXIT 39800002 * ROUTINE YO2752*/ 40500002 * 3 TIQEIRB PTR(31), /*ADDR OF IRB TO BE SCHD. YO2752*/ 41200002 * 3 TAXETCB PTR(31), /*PTR TO TCB YO2752*/ 41900002 * /* ******* WORK AREA OF IRB ***************** */ 43000001 * 3 * CHAR(1), /* ZA17748*/ 43050003 3 TAXELNK PTR(24), /*PTR TO NEXT TAXE ON QUE ZA17748*/ 44000003 * 3 * PTR(31), /*RESERVED YO2752*/ 45000002 * 3 TAXEEXIT PTR(31), /*PTR TO USER ATTENTION EXIT 46000002 * ROUTINE YO2752*/ 47000002 * 3 TAXEPARM PTR(31), /*PTR TO PARAMETER LIST TO 48000002 * STAX YO2752*/ 49000002 * 4 TAXESTAT CHAR(1), /*STATUS OF PROGRAM ISSUING 50000002 * THE STAX SVC YO2752*/ 51000002 * 5 TAXEFKEY BIT(1), /*STATUS FLAG FOR PROB KEY YO2752*/ 52000002 * 5 TAXEFMOD BIT(1), /*STATUS FLAG FOR PROB MODE YO2752*/ 53000002 * 5 TAXEFREQ BIT(1), /*STATUS FLAG FOR REQUESTED 54000002 * TAXE YO2752*/ 55000002 * 5 TAXERESM BIT(1), /*ON-ATTENTION PROLOGUE MUST NOT 56000002 * GO TO USER ATTENTION EXIT YO2752*/ 57000002 * 5 TAXESCHD BIT(1), /*ON-TAXE HAS BEEN SCHEDULED BUT 58000002 * IS NOT IN USER CODE YO2752*/ 59000002 * 5 TAXEATTN BIT(1), /*ON-ATTN IN EFFECT FOR CLIST 59050003 * @ZA08099*/ 59100003 * 5 * BIT(2), /*RESERVED @ZA08099*/ 59150003 * 4 TAXESTAX PTR(24), /*ADDRESS (24 BIT) TO PARM LIST TO 61000002 * STAX YO2752*/ 62000002 * 3 TAXETAIE PTR(31), /*PTR TO TAIE YO2752*/ 63000002 * 3 TAXEIBUF PTR(31), /*PTR TO USER INPUT BUFFER YO2752*/ 64000002 * 3 TAXEUSER PTR(31), /*PTR TO USER PARAMETER YO2752*/ 65000002 * 2 TAXEEND CHAR(0) BDY(DWORD); /*TAXE WILL BE IN DBL WDS YO2752*/ 66000002 * 67000001