* % GO TO SSVTPLS; /* 00050002 MACRO 00100002 IEFJSSVT 00150002 * 00200002 * SUBSYSTEM VECTOR TABLE 00250002 * 00300002 SSVT DSECT 00350002 SSVTBEGN EQU * 00400002 SSVTRSV1 DS H RESERVED 00450002 SSVTFNUM DS H NUMBER OF FUNCTIONS SUPPORTED BY 00500002 * THIS SUBSYSTEM 00550002 SPACE 00600002 * 00650002 * 256 BYTE FUNCTION MATRIX - 00700002 * 00750002 * THE SSOB FUNCTION ID MINUS ONE IS USED AS AN OFFSET INTO 00800002 * THIS MATRIX. 00850002 * 00900002 * MATRIX FUNCTION BYTE =0 : THE FUNCTION SPECIFIED IN THE 00950002 * SSOB IS NOT SUPPORTED BY THIS 01000002 * SUBSYSTEM. 01050002 * MATRIX FUNCTION BYTE ^=0 : THE VALUE (FUNCTION BYTE-1)*4 01100002 * IS ADDED TO THE ADDRESS OF 01150002 * SSVTFRTN TO OBTAIN THE 01160002 * ADDRESS OF THE WORD CONTAINING 01200002 * THE FUNCTION ROUTINE POINTER FOR 01250002 * THIS REQUEST. 01300002 * 01350002 SSVTFCOD DS 256X FUNCTION MATRIX 01400002 SSVTFSIZ EQU *-SSVTBEGN SSVT FIXED AREA SIZE 01410002 SSVTFRTN DS F SSVTFRTN IS THE FIRST WORD OF A 01450002 * VARIABLE LENGTH MATRIX CONTAINING 01470002 * FUNCTION ROUTINE POINTERS FOR 01500002 * FUNCTIONS SUPPORTED BY THIS 01502002 * SUBSYSTEM. THE MATRIX CAN BE A 01504002 * MAXIMUM OF 256 WORDS LONG. 01507002 ORG SSVTFRTN+1024 MAXIMUM SSVTFRTN SIZE IS 1024 BYTES 01510002 SSVTSIZE EQU *-SSVTBEGN MAXIMUM SSVT SIZE 01520002 MEND */ 01550002 * %SSVTPLS:; 01600002 */* */ 01650002 */* SUBSYSTEM VECTOR TABLE */ 01700002 */* */ 01750002 * DCL 1 SSVT BASED(SSVTPTR), 01800002 * 2 SSVTFSIZ, /* SSVT FIXED AREA SIZE */ 01810002 * 3 SSVTRSV1 CHAR(2), /* RESERVED */ 01850002 * 3 SSVTFNUM FIXED(15), /* NUMBER OF FUNCTIONS SUPPORTED 01900002 * BY THIS SUBSYSTEM */ 02000002 */* */ 02050002 */* 256 BYTE FUNCTION MATRIX */ 02100002 */* */ 02150002 */* THE SSOB FUNCTION ID IS USED AS A SUBSCRIPT INTO THIS MATRIX */ 02200002 */* */ 02250002 */* MATRIX FUNCTION BYTE =0 : THE FUNCTION SPECIFIED IN THE */ 02300002 */* SSOB IS NOT SUPPORTED BY THIS */ 02350002 */* SUBSYSTEM. */ 02400002 */* MATRIX FUNCTION BYTE ^=0 : THE VALUE IN THE FUNCTION BYTE */ 02450002 */* IS USED AS A SUBSCRIPT INTO */ 02500002 */* SSVTFRTN TO OBTAIN THE */ 02510002 */* ADDRESS OF THE WORD */ 02550002 */* CONTAINING THE FUNCTION ROUTINE */ 02600002 */* POINTER FOR THIS REQUEST */ 02650002 */* */ 02700002 * 3 SSVTFCOD(256) PTR(8), /* FUNCTION MATRIX */ 02750002 */* SSVTFRTN IS THE FIRST WORD OF A VARIABLE LENGHT MATRIX CONTAINING*/ 02760002 */* FUNCTION ROUTINE POINTERS FOR FUNCTIONS SUPPORTED BY THIS */ 05760002 */* SUBSYSTEM. THE MATRIX CAN BE A MAXIMUM OF 256 WORDS LONG. */ 08760002 * 2 SSVTFRTN(*) PTR(31); /* FUNCTION POINTER */ 11760002