* %GOTO BSLTNT; /* BILINGUAL HEADER 01000010 MACRO 02000010 TTNTD 03000010 IEDQTNTD DSECT 05000010 .* UPDATED TO BILINGUAL DSECT 09/16/72 S22024 07500010 TNTCODE DS XL38 . TERMNAME TABLE CODE 08000010 TNTSRCHX DS H . SEARCH EXTENT FACTOR 08500010 TNTENLEN DS XL1 . LENGTH OF COMPARAND FIELD 11000010 TNTMIDEN DS AL3 . ADDRESS OF MIDDLE ENTRY 15000010 TNTLEN DS H . TOTAL NUMBER OF ENTRIES 16000010 TNTDCODE DS XL36 . DISABLED TERMNAME CODE 19000010 TNTFIRST EQU * START OF FIRST ENTRY 21000010 TNTOFF EQU TNTFIRST-TNTCODE . OFFSET TO FIRST ENTRY 23000010 IEDTNTA DSECT @Y17XAXF 23600010 TNTTRMAD DS AL3 . ADDR OF TTE @Y17XAXF 24200010 * HEX DEC 27000010 * ********************************* 29000010 * 0 * CODE * 0 31000010 * * * 33000010 * ***** ***** 35000010 * 37000010 * ***** ***** 39000010 * * * 41000010 * * ***************** 43000010 * 24 * * SRCHX * 36 45000010 * ********************************* 47000010 * 28 * ENLEN * MIDEN * 40 49000010 * ********************************* 51000010 * 2C * LEN * DCODE * 44 53000010 * ********************************* 55000010 * 30 * * 48 57000010 * * * 59000010 * ***** ***** 63000010 * 65000010 * ***** ***** 67000010 * 52 * * FIRST * 80 69000010 * ***************** * 71000010 * 75000010 MEND , */ 77600010 *%BSLTNT: ; 78200010 *DECLARE /* TERMINAL NAME TABLE */ 78800010 * 1 IEDQTNTD BASED(IEDQNPTR), 79500010 * 79700010 * 2 IEDQTCDE CHAR(38), /* TERMNAME TABLE CODE */ 80000010 * 80300010 * 2 TNTSRCHX FIXED(16), /* SEARCH EXT FACTOR @Y17XAXF*/ 80600010 * 2 TNTENLEN FIXED(8), /* LENGTH OF COMPARAND FIELD 81000010 * IN AN ENTRY @Y17XAXF*/ 81400010 * 2 TNTMIDEN PTR(24), /* ADDRESS OF MIDDLE ENTRY */ 82000010 * 2 TNTLEN FIXED(16), /* TOTAL NO. ENTRIES @Y17XAXF*/ 82300010 * 82600010 * 2 IEDQTDCE CHAR(36); /* DISABLED TERMNAME CODE */ 83500010 *DECLARE 84000010 * TNTFIRST (*) CHAR(1) BASED(ADDR(IEDQTNTD) + LENGTH(IEDQTNTD)); 84300010 * 84600010 *DECLARE TNTCODE LABEL BASED(ADDR(IEDQTCDE)); /* TERMNAME TABLE 85500010 * CODE */ 85700010 *DECLARE TNTDCODE LABEL BASED(ADDR(IEDQTDCE)); /* DISABLED TERMNAME 86000010 * CODE */ 86100010 *DECLARE /*@Y17XAXF*/ 86200010 * 1 IEDTNTA BASED BDY(BYTE), /*@Y17XAXF*/ 86300010 * 2 TNTTRMAD PTR(24) BDY(BYTE); /* ADDR OF TTE @Y17XAXF*/ 86400010 * 86500010 *%DECLARE TNTOFF CHAR; /* OFFSET TO FIRST ENTRY */ 87500010 *%TNTOFF='LENGTH(IEDQTNTD)'; /* EQUALS LENGTH OF STRUCTURE*/ 87700010 * 88000010 */* HEX DEC */ 88300010 */* ******************************************** */ 88600010 */* 0 * CODE * 0 */ 89500010 */* ***** ***** */ 90000010 */* */ 90300010 */* ***** ***** */ 90600010 */* * * */ 91500010 */* *********************** */ 91700010 */* 24 * * SRCHX * 36 */ 92000010 */* ******************************************** */ 92300010 */* 28 * ENLEN * MIDEN * 40 */ 92600010 */* ******************************************** */ 93500010 */* 2C * LEN * DCODE * 44 */ 93700010 */* ******************************************** */ 94000010 */* 30 * * 48 */ 94300010 */* * * */ 94600010 */* * * */ 95500010 */* ***** ***** */ 95700010 */* */ 96000010 */* ***** ***** */ 96600010 */* 52 * * FIRST * 80 */ 97200010 */* ********************** * */ 97800010 */* */ 98400010 */* */ 99000010