* %GOTO PLSNSL; /* BILINGUAL HEADER 01000000 MACRO 02000000 TNSLD 03000000 SPACE 04000000 .* CHANGE ACTIVITY AS FOLLOWS: 05000000 .*A-000000-999999 @Y17XAXF 06000000 .*A274500,588000 @OY20296 06000182 SPACE 07000000 IEDNNSLD DSECT 07010000 NSLSAVE1 DS F USED TO SAVE POINTER DURING 07020000 * POST TO REQUEST BUFFERS 07030000 NSLSAVE2 DS F USED TO SAVE POINTERS DURING 07040000 * POST TO REQUEST BUFFERS 07050000 SPACE 07060000 IEDNSLD EQU * 07100000 * 09000000 * DSECT FOR START/STOP LINE ELEMENT 10000000 * 11000000 * IEDNSL USES THESE FIELDS INTERNALLY 11500000 NSLOPRE DS CL8 . OP CONTROL REQ ELEMENT 12000000 NSLPLCB DS XL1 . PLCB RETURN TO OPCTL 13000000 NSLPLCBR EQU X'80' . PLCB TO RETURN 16030000 * EQU X'40'-X'01' . RESERVED 16060000 NSLSAVE DS AL3 . SAVE POINTER NEEDED ACROSS POST 16100000 NSLGPCUS DS XL1 . SWITCH TO DETERMINE WHERE TO 16200000 * BEGIN WHEN BUFFER RETURN 16300000 NSLNGPST EQU X'80' . TRYING TO STOP A TERMINAL 16400000 * FOR STOPTERM REQUEST 16450000 NSLGPTSP EQU X'40' . TRYING TO STOP GP TERM 16500000 NSLNGPSL EQU X'20' . TRYING TO STOP TERMINAL FOR 16600000 * STOPLINE REQUEST 16630000 NSLSDIAL EQU X'10' . REDIRVE FOR DIAL WHEN 16660000 * REQUESTING A BUFFER DURING 16661000 * STOPLINE 16662000 NSLDRDRV EQU X'08' . TO RECOGNIZE WHEN TO STOP THE 16663000 * LOGICAL TERM FOR CALLOUT DIAL 16664000 * EQU X'04'-X'01' . RESERVED 16665000 NSLCTTRM DS AL3 . CURRENT TRM 16670000 NSLTTCIN DS H . CURRENT TNT INDEX 16800000 * NSLPRIBK AND NSLFLGBK PART OF INTERFACE TO IEDNSL 16900000 NSLPRIBK DS XL1 . PRIORITY FIELD 17000000 NSLFLGBK DS XL1 . FLAG 17100000 NSLERB DS 0CL14 . BUFFER REQUEST ERB 17130000 NSLERBIN EQU NSLERB-IEDNSLD . ERB INDEX 17160000 * ERB MUST BE X'14' FROM QCB SO THAT IEDQGA CAN POST BUFFER 17200000 NSLERQCB DS A . BUFFER REQUEST ERB QCB 17300000 NSLERBPR DS XL1 . ERB PRIORITY 17400000 NSLELINK DS AL3 . LINK 17500000 NSLESTAT DS XL1 . ERB STATUS 17600000 * EQU X'80'-X'04' . RESERVED 17800000 NSLMPPI EQU X'02' . TO HAVE THE ERB POSTED BACK TO 18000000 * IEDNSL 18200000 * EQU X'01' . RESERVED 18400000 NSLBUFFR DS AL3 . BUFFER ADDRESS 19000000 NSLUNCNT DS H . UNIT COUNT 19400000 * INTERFACE TO IEDNSL 19800000 DS XL1 . RESERVED 20200000 NSLREQTY DS XL1 . REQUEST TYPE 20220000 NSLSTRTL EQU X'01' . START LINE 21000000 NSLSTOPL EQU X'02' . STOP LINE 22000000 NSLSTRTR EQU X'03' . START TERMINAL 23000000 NSLSTPTR EQU X'04' . STOP TERMINAL 24000000 NSLSTRGP EQU X'05' . START GENERAL POLL 25000000 NSLSTPGP EQU X'06' . STOP GENERAL POLL 26000000 NSLSTRLU EQU X'07' . START LU 27000000 NSLSTMSG EQU X'08' . MIDDLE OF MSG 27200000 NSLSTPLI EQU X'09' . STOPLINE,I 27400000 NSLCLOSN EQU X'0B' . FLUSH CLOSEDOWN 27450000 NSLSTPGB EQU X'0D' STOP GENERAL POLL,B @OY20296 27470082 NSLOPCEP DS 0F . ADDRESS OF OPCE ASSOCIATED WITH 27500000 * A GENERAL POLL REQUEST 27600000 NSLGRPNM DS CL8 . GROUP NAME 27700000 NSLTTEPT DS A . TTE ADDRESS 27800000 * 28000000 NSLLEN EQU *-IEDNSLD . NSL LENGTH 29000000 NSLNLEN EQU IEDNSLD-IEDNNSLD PREFIX LENGTH 29200000 MEND 29500000 * */ 31000000 *%PLSNSL : ; 32000000 *DECLARE 33000000 * 1 IEDNNSLD BDY(WORD) BASED, /* NEG PREFIX */ 33010000 * 2 NSLSAVE1 PTR(31), /* USED TO SAVE POINTER DURING 33020000 * POST TO REQUEST BUFFER 33030000 * */ 33040000 * 2 NSLSAVE2 PTR(31); /* USED TO SAVE POINTER DURING 33050000 * POST TO REQUEST BUFFERS 33060000 * */ 33070000 * 33080000 *DECLARE 33090000 * 1 IEDNSLD BDY(WORD) BASED (IEDNSLP), 33100000 */* */ 35000000 */* DSECT FOR START/STOPLINE ELEMENT */ 36000000 */* */ 37000000 */* IEDNSL USES THESE FIELD INTERNALLY */ 37500000 * 2 NSLOPRE CHAR(8), /* OP CONTROL REQ ELEMENT */ 38000000 * 2 NSLPLCB BIT(8), /* PLCB RETURN TO OPCTL */ 39000000 * 3 NSLPLCBR BIT(1), /* PLCB TO RETURN */ 42030000 * 3 * BIT(7), /* RESERVED */ 42060000 * 2 NSLSAVE PTR(24), /* SAVE POINTER NEEDED ACROSS 42100000 * POST */ 42150000 * 2 NSLGPCUS BIT(8), /* SWITCH TO DETERMIN WHERE */ 42200000 * /* TO BEGIN WHEN BUFFER RTN */ 42300000 * 3 NSLNGPST BIT(1), /* TRYING TO STOP TERMINAL */ 42400000 * /* FOR STOPTERM REQUEST */ 42450000 * 3 NSLGPTSP BIT(1), /* TRYIN TO STOP GP TERM */ 42500000 * 3 NSLNGPSL BIT(1), /* TRYING TO STOP TERMINAL */ 42600000 * /* FOR STOPLINE REQUEST */ 42630000 * 3 NSLSDIAL BIT(1), /* REDIRVE FOR DIAL WHEN 42660000 * REQUESTING A BUFFER DURING 42661000 * STOP LINE */ 42662000 * 3 NSLDRDRV BIT(1), /* TO RECOGNIZE WHEN TO STOP 42663000 * THE LOGICAL TERM FOR CALLOUT 42664000 * DIAL */ 42665000 * 3 * BIT(3), /* RESERVED */ 42666000 * 2 NSLCTTRM PTR(24), /* CURRENT TRM */ 42670000 * 2 NSLTTCIN FIXED(16), /* CURRENT TTCIN */ 42800000 */* NSLPRIBK, NSLFLGBK ARE PART OF INTERFACE TO IEDNSL */ 42900000 * 2 NSLPRIBK BIT(8), /* PRIORITY */ 43000000 * 2 NSLFLGBK BIT(8), /* FLAG */ 43100000 */* ERB MUST BE X'14' FROM QCB SO THAT IEDQGA CAN POST BUFFER */ 43200000 * 2 NSLERB CHAR(14) BDY(WORD), /* BUFFER REQ ERB */ 43300000 * 3 NSLERQCB PTR(31), /* BUFFER REQ ERB QCB */ 43350000 * 3 NSLERBPR BIT(8), /* ERB PRIORITY */ 43400000 * 3 NSLELINK PTR(24), /* LINK */ 43440000 * 3 NSLESTAT BIT(8), /* ERB STATUS */ 43480000 * 4 * BIT(6), /* RESERVED */ 43520000 * 4 NSLMPPI BIT(1), /* TO HAVE THE ERB POSTED */ 43560000 * /* BACK TO IEDNSL */ 43600000 * 4 * BIT(1), /* RESERVED */ 43640000 * 3 NSLBUFFR PTR(24), /* BUFFER ADDRESS */ 43700000 * 3 NSLUNCNT FIXED(16), /* UNIT COUNT */ 43750000 */* INTERFACE TO IEDNSL */ 43900000 * 2 * BIT(8), /* RESERVED */ 44000000 * 2 NSLREQTY BIT(8), /* REQUEST TYPE */ 44004000 * 2 NSLGRPNM CHAR(8) BDY(WORD), /* GROUP NAME */ 45000000 * 3 NSLOPCEP PTR(31), /* ADDR OF OPCE ASSOCIATED */ 45200000 * /* WITH THIS GENERAL POLL */ 45400000 * /* REQUEST */ 45600000 * 3 * CHAR(4), /* RESERVED */ 45800000 * 2 NSLTTEPT PTR(32); /* GROUP NAME */ 46000000 * 47000000 * %NSLLEN='LENGTH(IEDNSLD)'; /* NSL LENGTH */ 48000000 * %NSLERBIN='ADDR(NSLERB)-ADDR(IEDNSLD)';/* ERB INDEX */ 48500000 * %NSLNLEN='LENGTH(IEDNNSLD)'; /* PREFIX LENGTH */ 48600000 */* */ 48700000 */* . NSLREQTY EQUEST CONSTANTS */ 50000000 */* */ 51000000 *DCL NSLSTRTL BIT(8) CONSTANT('01'X); /* START LINE */ 52000000 *DCL NSLSTOPL BIT(8) CONSTANT('02'X); /* STOP LINE */ 53000000 *DCL NSLSTRTR BIT(8) CONSTANT('03'X); /* START TERMINAL */ 54000000 *DCL NSLSTPTR BIT(8) CONSTANT('04'X); /* STOP TERMINAL */ 55000000 *DCL NSLSTRGP BIT(8) CONSTANT('05'X); /* START GENERAL POLL */ 56000000 *DCL NSLSTPGP BIT(8) CONSTANT('06'X); /* STOP GENERAL POLL */ 57000000 *DCL NSLSTRLU BIT(8) CONSTANT('07'X); /* START LU */ 58000000 *DCL NSLSTMSG BIT(8) CONSTANT('08'X); /* MIDDLE OF MSG */ 58300000 *DCL NSLSTPLI BIT(8) CONSTANT('09'X); /* STOPLINE,I */ 58600000 *DCL NSLCLOSN BIT(8) CONSTANT('0B'X); /* FLUSH CLOSEDOWN */ 58800000 *DCL NSLSTPGB BIT(8) CONSTANT('0D'X); /* STOP GENERAL POLL,B @OY20296*/ 58850082 * 59000000