* %GOTO INFL1; /* 00050002 MACRO 00100000 IHAINF , */ 00150002 *%INFL1: ; 00160002 */* IHAINF - TYPE 1 MESSAGE TABLE ENTRY MAPPING */ 00200002 */* RELEASE 2.0 VS2, 5/8/73, LEVEL=1 */ 00250002 */* */ 00300002 */* THIS MAPS A SINGLE ENTRY OF THE TYPE 1 MESSAGE TABLE WHICH */ 00310002 */* IS USED AS A DROP AREA FOR INFORMATION ASSOCIATED WITH A */ 00320002 */* FAILURE IN A TYPE 1 SVC. THE INFORMATION IN THE ENTRY IS */ 00322002 */* PUT OUT VIA WTP BY RTM. THE ONLY USER OF THIS TABLE */ 00330002 */* CURRENTLY IS GETMAIN/FREEMAIN. */ 00340002 */* */ 00342002 */* THE COMPLETE TABLE CONSISTS OF A FOUR BYTE POINTER FOLLOWED */ 00344002 */* BY A NUMBER OF ENTRIES. THE POINTER POINTS TO THE BYTE */ 00346002 */* FOLLOWING THE END OF THE COMPLETE TABLE. */ 00348002 */* */ 00348402 *%GOTO INFL2; /* 00348802 INFOLIST DSECT , INFPTR - INFORMATION LIST 00350000 INFASCB DS A - ADDRESS ASCB @Y02702 00360002 INFOBODY DS 0CL32 MAIN BODY OF ENTRY @Y02702 00370002 INFTCB DS A - ADDRESS TCB 00400000 INFBADDR DS A - REGISTER 14 IF A BRANCH ENTRY 00450000 INFRCL DS BL1 - REASON CODE AND COUNT OF VARIABLE DATA. 00500000 INFCL EQU X'E0' - REASON CODE ON BITS 0-2. 00550000 INFVARCT EQU X'1F' - COUNT OF VARIABLE DATA IN BITS 3-7. 00600000 INFFLG DS BL1 - FLAG BYTE 00650000 INFFLG0 EQU X'80' - WHEN 1, INDICATES BRANCH ENTRY 00700000 INFCC DS 0H - COMPLETION CODE 00750000 DS C 00800000 INFCCSVC DS C - SVC NUMBER 00850000 INFVAR DS 4F - VARIABLE INFORMATION 00900000 ORG INFVAR ORG BACK FOR VARIABLE FIELDS 00950000 INFVAR1 DS F - VARIABLE WORD 1 01000000 INFVAR2 DS F - VARIABLE WORD 2 01050000 INFVAR3 DS F - VARIABLE WORD 3 01100000 INFVAR4 DS F - VARIABLE WORD 4 01150000 INFRSV01 DS H RESERVED FOR EXPANSION @Y02702 01200002 INFRSV02 DS H RESERVED FOR EXPANSION @Y02702 01250002 INFEND DS 0C - END OF INFOLIST 01300000 INFLEN EQU INFEND-INFOLIST - LENGTH OF INFOLIST 01350000 MEND , */ 01400000 *%INFL2 : ; 01450002 *DECLARE 01700000 * 1 INFOLIST BASED(INFOPTR), /* INFORMATION LIST */ 01750000 * 2 INFASCB PTR(31), /* ADDRESS ASCB @Y02702*/ 01760002 * 2 INFOBODY, /* MAIN BODY OF ENTRY @Y02702*/ 01770002 * 4 INFTCB PTR(31), /* ADDRESS TCB */ 01800002 * 4 INFBADDR PTR(31), /* REGISTER 14 IF BRANCH ENTRY */ 01850002 * 4 INFRCL CHAR(1), /* REASON CODE AND COUNT OF VARIABLE 01900002 * DATA. */ 01950000 * 8 INFCL BIT(3), /* REASON CODE */ 02000002 * 8 INFVARCT BIT(5), /* COUNT OF VARIABLE DATA. */ 02050002 * 4 INFFLG CHAR(1), /* FLAG BYTE */ 02100002 * 8 INFFLG0 BIT(1), /* WHEN 1, INDICATES BRANCH ENTRY */ 02150002 * 4 INFCC FIXED(15), /* COMPLETION CODE */ 02200002 * 8 * PTR(8), 02250002 * 8 INFCCSVC PTR(8), /* SVC NUMBER */ 02300002 * 4 INFVAR, /* VARIABLE INFORMATION */ 02350002 * 8 INFVAR1 FIXED(31), /* VARIABLE WORD 1 */ 02400002 * 8 INFVAR2 FIXED(31), /* VARIABLE WORD 2 */ 02450002 * 8 INFVAR3 FIXED(31), /* VARIABLE WORD 3 */ 02500002 * 8 INFVAR4 FIXED(31), /* VARIABLE WORD 4 Y00489 */ 02550002 * 4 INFRSV01 FIXED(15), /* RESERVED @Y02702*/ 02600002 * 4 INFRSV02 FIXED(15); /* RESERVED @Y02702*/ 02650002 *DECLARE INFEND CHAR(0) BASED(ADDR(INFOLIST)+LENGTH(INFOLIST)); 02700002