* %GOTO BSLLGB; /* 01000022 MACRO 02000022 TLGBD 03000022 .*A-000000-999999 @X31X8X0 03500010 .*A120000,200000,860000 @Y17XAXF 03600010 .*C050000-080000,210000-230000,440000,490000-520000 @Y17XAXF 03700010 .*C560000,670000,680000-700000,830000,370000 @Y17XAXF 03800010 IEDNLGB DSECT 04000022 ORG *+17 05000010 LGBTYPE DS XL1'00' . LGB INDICATOR @Y17XAXF 05800010 LGBGRP EQU X'00' . GROUP INDICATOR @Y17XAXF 06600010 LGBSUBST DS CL2 . TNT OFFSET TO 1ST LINE @Y17XAXF 07400010 * WITHIN THIS GROUP @Y17XAXF 08200010 LGBBUFOU DS FL1 . NUMBER OF BUFFERS ASSIGNED 09000022 * INITIALLY FOR SENDING 10000022 * OPERATIONS FOR EACH LINE 11000022 * IN THE LINE GROUP 12000022 LGBPREF EQU X'10' CORRESPONDING TRMPREF BIT 12100010 * (SET BY GROUP MACRO) @Y17XAXF 12200010 LGBMHA DS AL3 . ADDRESS OF THE MESSAGE 13000022 * HANDLER FOR THIS LINE GROUP 14000022 DS FL1 RESERVED X03039 15000010 LGBPCI DS XL1 PCI OPTIONS X03039 15200010 LGBPCIAO EQU X'10' PCI=(,A) ADD ON OUTPUT X03039 15400010 LGBPCINO EQU X'04' PCI=(,N) NONE ON OUTPUT X03039 15600010 LGBDSORG DS XL2 . DATASET ORGANIZATION CODE=LG 16000022 LGBBUFMA DS FL1 . MAXIMUM NUMBER OF BUFFERS 17000022 * TO BE USED FOR DATA TRANSFER 18000022 * FOR EACH TERMINAL ASSOCIATED 19000022 * WITH THIS LINE 20000022 LGBBYTE DS CL1 . FLAG BYTE @Y17XAXF 20500010 LGBPACK EQU X'80' . PACK=YES SPECIFIED @Y17XAXF 21700010 * EQU X'40'-X'01' . RESERVED @Y17XAXF 22400010 LGBOPACE DS XL1 . OPACING VALUE @Y17XAXF 23100010 DS CL1 . RESERVED @Y17XAXF 23500010 DS XL1 . RESERVED 24000022 * SWITCHED LINE GROUP 25000022 LGBTRANS DS AL3 . ADDRESS OF THE TRANSLATION 26000022 * TABLE 27000022 ORG IEDNLGB+40 27500000 LGBNAME DS CL8 . NAME OF LINE GROUP 28000022 LGBOFLGS DS XL1 . OPEN FLAGS 30000022 LGBOPEN EQU X'10' CORRESPONDING DCB OPEN FLAG 30300010 * (SET BY GROUP MACRO) @Y17XAXF 30600010 LGBSCTAD DS AL3 . SPECIAL CHARACTERS TABLE 31000022 LGBILCT DS XL1 . NO. OF INVITATION LISTS 32000022 ORG IEDNLGB+54 33000022 LGBBUFSI DS AL2 . BUFFER SIZE USED FOR SENDING 34000022 * TO A TERMINAL IN THIS 35000022 * LINE GROUP 36000022 LGBRESER DS 0A . RESERVED IDLE COUNTS @Y17XAXF 37000010 LGBRESV1 DS AL1 . HDR IDLES @Y17XAXF 37200010 LGBRESV2 DS AL1 . TEXT IDLES @Y17XAXF 37400010 LGBRESV3 DS AL1 . RESERVED @Y17XAXF 37600010 LGBRESV4 DS AL1 . RESERVED @Y17XAXF 37800010 LGBIVLST DS A . ADDRESS OF INVITAION LIST 38000022 * WHEN ID VERIFICATION IS 39000022 * PERFORMED BY TCAM 40000022 LGBPRFSZ EQU LGBBUFOU-IEDNLGB . PREFIX SIZE @Y17XAXF 40500010 MEND , */ 41000022 *%BSLLGB: ; 42000022 *DECLARE 43000022 * 1 IEDNLGB BASED(IEDNLPTR) BDY(WORD), /*@Y17XAXF*/ 44000010 */* */ 45000022 */* THIS IS A DSECT OF THE LINE GROUP BLOCK. THERE IS AN LGB FOR */ 46000022 */* EACH LINE GROUP IN THE TCAM-3705 SYSTEM */ 47000022 */* */ 48000022 * 2 * CHAR(17), /* RESERVED @Y17XAXF*/ 49000010 * 2 LGBTYPE CHAR(1), /* GROUP TYPE IND @Y17XAXF*/ 49800010 * 2 LGBSUBST FIXED(15), /* TNT OFFSET TO 1ST @Y17XAXF*/ 50600010 * /* LINE WITHIN THIS@Y17XAXF*/ 51400010 * /* GROUP */ 52200010 * 2 LGBBUFOU PTR(8), /* NUMBER OF BUFFERS ASSG- 53000022 * NED INITIALLY FOR SENDING 54000022 * OPERATIONS FOR EACH LINE IN 55000022 * THE LINE GROUP 56000010 * @Y17XAXF*/ 56300010 * 3 * BIT(3), /* RESERVED @Y17XAXF*/ 56400010 * 3 LGBPREF BIT(1), /* CORRESPONDING TRMPREF BIT 56500010 * (GET BY GROUP MACRO) 56600010 * @Y17XAXF*/ 56700010 * 3 * BIT(4), /* BUFOUT 56800010 * @Y17XAXF*/ 56900010 * 2 LGBMHA PTR(24) BDY(BYTE), /* ADDRESS OF THE MESSAGE 57000022 * HANDLER FOR THIS LINE 58000022 * GROUP */ 59000022 * 2 * PTR(8), /* RESERVED X03039*/ 60000010 * 2 LGBPCI CHAR(1), /* PCI OPTIONS X03039*/ 60100010 * 3 * BIT(1), /* RESERVED X03039*/ 60200010 * 3 * BIT(1), /* RESERVED X03039*/ 60300010 * 3 * BIT(1), /* RESERVED X03039*/ 60400010 * 3 LGBPCIAO BIT(1), /* PCI=(,A) A ON OUTPUTX03039*/ 60500010 * 3 * BIT(1), /* RESERVED X03039*/ 60600010 * 3 LGBPCINO BIT(1), /* PCI=(,N) N ON OUTPUTX03039*/ 60700010 * 3 * BIT(1), /* RESERVED X03039*/ 60800010 * 3 * BIT(1), /* RESERVED X03039*/ 60900010 * 2 LGBDSORG BIT(16), /* DATASET ORGANIZATION 61000022 * CODE=LG */ 62000022 * 2 LGBBUFMA PTR(8), /* MAXIMUM NUMBER OF BUFFERS 63000022 * TO BE USED FOR DATA TRANS- 64000022 * FER FOR EACH TERMINAL 65000022 * ASSOCIATED WITH THIS LINE 66000022 * GROUP @Y17XAXF*/ 67000010 * 2 LGBBYTE CHAR(1), /* FLAG BYTE @Y17XAXF*/ 67500010 * 3 LGBPACK BIT(1), /* PACK=YES SPEC @Y17XAXF*/ 68700010 * 3 * BIT(7), /* RESERVED @Y17XAXF*/ 69400010 * 2 LGBOPACE FIXED(8), /* OPACING VALUE @Y17XAXF*/ 70100010 * 2 * CHAR(1), /* RESERVED @Y17XAXF*/ 70500010 * 2 * CHAR(1), /* RESERVED */ 71000022 * 2 LGBTRANS PTR(24) BDY(BYTE), /* ADDRESS OF THE TRANSLATION 72000022 * TABLE */ 73000022 * 2 * CHAR(4), /* RESERVED */ 73500000 * 2 LGBNAME CHAR(8), /* NAME OF LINE GROUP */ 74000022 * 2 LGBOFLGS BIT(8), /* OPEN FLAGS */ 76000022 * 3 * BIT(3), /* RESERVED @Y17XAXF*/ 76100010 * 3 LGBOPEN BIT(1), /* CORRESPONDING DCB OPEN FLAG 76200010 * (SET BY GROUP MACRO) 76300010 * @Y17XAXF*/ 76400010 * 3 * BIT(4), /* RESERVED @Y17XAXF*/ 76500010 * 2 LGBSCTAD PTR(24), /* SPECIAL CHARACTERS TABLE */ 77000022 * 2 LGBILCT PTR(8), /* NO. OF INVITATION LISTS */ 78000022 * 2 * CHAR(1), /* RESERVED */ 79000022 * 2 LGBBUFSI FIXED(15) BDY(BYTE), /* BUFFER SIZE USED FOR SEND- 80000022 * ING TO A TERMINAL IN THIS 81000022 * LINE GROUP */ 82000022 * 2 LGBRESER FIXED(32), /* RESERVE IDLES CNT @Y17XAXF*/ 83000010 * 3 LGBRESV1 FIXED(8), /* HDR IDLES @Y17XAXF*/ 83200010 * 3 LGBRESV2 FIXED(8), /* TEXT IDLES @Y17XAXF*/ 83400010 * 3 LGBRESV3 FIXED(8), /* RESERVED @Y17XAXF*/ 83600010 * 3 LGBRESV4 FIXED(8), /* RESERVED @Y17XAXF*/ 83800010 * 2 LGBIVLST PTR(31); /* ADDRESS OF INVITATION LIST 84000022 * WHEN TERMINAL ID VERIFICA- 85000022 * TION IS PERFORMED BY TCAM */ 86000022 */* @Y17XAXF*/ 88000010 */* VALUES FOR LGBTYPE @Y17XAXF*/ 90000010 */* @Y17XAXF*/ 92000010 * DCL LGBGRP BIT(8) CONSTANT('00'X); /* GROUP IND @Y17XAXF*/ 94000010 */* @Y17XAXF*/ 95000010 */* PREFIX SIZE @Y17XAXF*/ 96000010 */* @Y17XAXF*/ 97000010 * DCL LGBPRFSZ BIT(8) CONSTANT('14'X); /* PREFIX SIZE @Y17XAXF*/ 98000010