* %GOTO BSLTRM; /* 00100000 MACRO 00200000 TTRMD 00300000 .* A000000-999999 @Y17XAXF 00400000 *A152000,154000 00400182 .******************* MICROFICHE FLAGS *********************** SUPT CODE 00500000 .* THE FOLLOWING MICROFICHE FLAGS HAVE BEEN INCORPORATED IN @Y17XAXF 00700000 .* S22026 00800000 .* SA53610 01000000 .* SA67105 01100000 .* OY00539 01300000 .* X03039 01500000 .* @Z30X8XE 01600000 .* @X50X9XH 02100000 IEDTRM DSECT @Y17XAXF 02200000 DS CL2 NOT CREATED,DO NOT REF @Y17XAXF 02300000 IEDNTRM EQU * START OF NEG PREFIX @Y17XAXF 02400000 TRMBYTE4 DS 0XL1 . STATUS BYTE @Y17XAXF 02500000 SPACE 2 @Y17XAXF 02600000 TRMPRE1 DS 0XL1 . STATUS BYTE (PRE-SNA) @YM08120 02700000 TRMCONT EQU X'80' . CONTACT INIT SESS @Y17XAXF 02800000 TRMSESSN EQU X'40' . TERMINAL IN SESS @Y17XAXF 02900000 TRMOCNI EQU X'20' . STOP LINE IN PROG @Y17XAXF 03000000 TRMSPACT EQU X'10' . TERM'S LINE ACTIVE @Y17XAXF 03100000 TRMQNPL EQU X'08' Q'D NEG POLL LIM REC @Y17XAXF 03200000 TRMERLCK EQU X'04' . TERM IN ERROR LCK @Y17XAXF 03300000 TRMSPOUT EQU X'02' . SPEC PROC REQ @Y17XAXF 03400000 TRMLYNCH EQU X'01' . DISCONNECT REC'VD @Y17XAXF 03500000 SPACE 1 @YM08120 03520000 TRMNCP1 DS XL1 . STATUS BYTE NCP @YM08120 03540000 TRMINOP EQU X'80' . CHAN INOP RECEIVED @YM08120 03560000 * EQU X'40'-X'01' RESERVED @YM08120 03580000 SPACE 3 @Y17XAXF 03600000 TRMBYTE3 DS 0XL1 . STATUS BYTE @Y17XAXF 03700000 SPACE 2 @Y17XAXF 03800000 TRMPRE DS 0XL1 . STATUS BYTE (PRE-SNA) @Y17XAXF 03900000 TRMSTPND EQU X'80' . STATUS PENDING FLAG @Y17XAXF 04000000 TRMCMODE EQU X'40' . CHGE OF MODE REQUEST @Y17XAXF 04100000 TRMSTMM EQU X'20' . STOP MID MESS IN PRG @Y17XAXF 04200000 TRMASNXI EQU X'10' . RESET IMMED INPRG @Y17XAXF 04300000 TRMWROUT EQU X'08' . WRITE OUTSTANDING @Y17XAXF 04400000 TRMNLOUT EQU X'04' . NULL WRT OR CONTACT @Y17XAXF 04500000 * OUTSTANDING @Y17XAXF 04600000 TRMRDOUT EQU X'02' . READ OUTSTANDING @Y17XAXF 04700000 TRMINOUT EQU X'01' . INVITE OUTSTANDING @Y17XAXF 04800000 SPACE 1 @Y17XAXF 04900000 TRMNCP DS 0XL1 . (ABNL) STATUS BYTE (NCP ONLY) @Y17XAXF 05000000 TRMIPLDM EQU X'80' . (ABNL) IPL/DUMP IN PROGRESS @Y17XAXF 05100000 TRMNCPCL EQU X'40' . NCP CLOSE DOWN IN-PRG@Y17XAXF 05200000 TRMSYGEN EQU X'20' . SYSGEN NCP ACTIVE STATE 05300000 * @Y17XAXF 05400000 TRMSLOWN EQU X'10' . 3705 SLOWDOWN INPRG @Y17XAXF 05500000 TRMQUCKN EQU X'08' NCP QUICK CLOSEDWN @Y17XAXF 05600000 * TRMNCONT BITS 5-7 NCP CONTACT STATES @Y17XAXF 05700000 SPACE 1 @Y17XAXF 05800000 TRMPU DS 0XL1 . STATUS BYTE (PUNT ONLY)@Y17XAXF 05900000 * EQU X'80'-X'08' . RESERVED @Y17XAXF 06000000 * TRMPCONT BITS 5-7 PU CONTACT STATES @Y17XAXF 06100000 TRMCRSET EQU X'00' . TRMNCONT RESET @Y17XAXF 06200000 TRMCCSNT EQU X'01' . VALUES CONTACT SENT @Y17XAXF 06300000 TRMCAPND EQU X'02' . ALSO ACTIVE PENDING @Y17XAXF 06400000 TRMCRPND EQU X'03' . RESET PENDING @Y17XAXF 06500000 TRMCACTV EQU X'04' . ACTIVE @Y17XAXF 06600000 SPACE 1 @Y17XAXF 06700000 TRMLU DS 0XL1 . (ABNL) STATUS BYTE (LUNT ONLY)@PI06917 06800000 TRMAUTO EQU X'80' . AUTO BIND TO TCAM @Y17XAXF 06900000 TRMLUIT EQU X'40' . LU INITIATES SESSION @Y17XAXF 07000000 TRMLUTM EQU X'20' . LU TERMINATES SESSION@Y17XAXF 07100000 TRMTDIFF EQU X'10' . TOTE TERM IND @Y17XAXF 07200000 TRMSESRQ EQU X'08' . LU-LU SESS REQ FROM @Y17XAXF 07300000 * IEDLUS @Y17XAXF 07400000 TRMLUREQ EQU X'04' . SESS INITIATED BY LU @Y17XAXF 07500000 TRMINERR EQU X'02' . INITIATION ERROR PROCESSING 07600000 * IN PROGRESS @PI06917 07700000 TRMLULOG EQU X'01' CAPABLE OF LOGON TO TCAM 07800000 * @Y17XAXF 07900000 SPACE 1 @Y17XAXF 08000000 TRMLINK DS XL1 . STATUS BYTE (LINE ONLY)@Y17XAXF 08100000 TRMEPMOD EQU X'80' . LINE IN EP MODE @Y17XAXF 08200000 TRMLINT EQU X'40' . 3705 LINE TRACE ACT @Y17XAXF 08300000 *TRMLSTAT BITS 2+3 LINK STATUS @Y17XAXF 08400000 TRMLRSET EQU X'00' . RESET @Y17XAXF 08500000 TRMLAPND EQU X'10' . ACTIVE PENDING @Y17XAXF 08600000 TRMLRPND EQU X'20' . RESET PENDING @Y17XAXF 08700000 TRMLACTV EQU X'30' . ACTIVE @Y17XAXF 08800000 * EQU X'08'-X'01' . RESERVED @Y17XAXF 08900000 SPACE 3 @Y17XAXF 09000000 TRMBYTE2 DS XL1 . (ABNL) STATUS BYTE @Y17XAXF 09100000 TRMRSACT EQU X'80' . RESOURCE ACTIVE @Y17XAXF 09200000 * SNA - SSCP SESS @Y17XAXF 09300000 * EXISTS @Y17XAXF 09400000 * PRE SNA - VARY @Y17XAXF 09500000 * ONTP CMD @Y17XAXF 09600000 TRMREMB EQU X'40' . (ABNL) ACTIVATE REMEMBER BIT@Y17XAXF 09700000 TRMINPG EQU X'20' . ACT/DEACT IN PROGRESS@Y17XAXF 09800000 * FOR SSCP SESSION @Y17XAXF 09900000 TRMCLOSN EQU X'20' . CLOSEDOWN IN PROGRESS @YM06966 10000000 TRMANDL EQU X'10' . MANUAL DIAL IN PROCES@Y17XAXF 10100000 TRMGPACT EQU X'08' . GENERAL POLL IS ACTVE@Y17XAXF 10200000 TRMPREP EQU X'04' . LINE BEING MONITORED @Y17XAXG 10300000 TRMNOSND EQU X'02' . DO NOT CONTINUE SEND @Y17XAXF 10400000 * OPERATION @Y17XAXF 10500000 TRMWRBRK EQU X'01' . WRITE BREAK IN @Y17XAXG 10600000 * PROGRESS @Y17XAXG 10700000 SPACE 1 @Y17XAXF 10800000 TRMBYTE1 DS XL1 . STATUS BYTE @Y17XAXF 10900000 TRMSCPRQ EQU X'80' . SSCP REQ OUTSTANDING @Y17XAXF 11000000 TRMWTNEG EQU X'80' . (PRE-SNA) WAITING @Y17XAXF 11100000 * FOR RSP TO NEG POLL@Y17XAXF 11200000 TRMINPTP EQU X'40' . INPUT PENDING @Y17XAXF 11300000 TRMAUTOC EQU X'20' . CALL OUT FROM 3705 @Y17XAXF 11400000 TRMSWBCK EQU X'10' . TERM ON BKUP CONN @Y17XAXF 11500000 TRMTRACE EQU X'08' . PIU TRACE ACTIVE @Y17XAXF 11600000 TRMTSATN EQU X'04' . INTERACTIVE ATTN CTL @Y17XAXF 11700000 TRMCKPRN EQU X'02' . CKPT REC IND FOR 3705@Y17XAXF 11800000 * RESOURCE @Y17XAXF 11900000 TRMSTOTE EQU X'01' . TOTE CONTROLS RESOURC@Y17XAXF 12000000 TRMCOHRT DS H . TTCIN TO NEXT ENTRY OF @Y17XAXF 12100000 * SAME TYPE @Y17XAXF 12200000 SPACE 1 @Y17XAXF 12300000 TRMBYTE0 DS XL1 . STATUS BYTE @Y17XAXF 12400000 TRMUDEF EQU X'80' . INVALID TSO MTA TERM @Y17XAXF 12500000 TRMINPUT EQU X'40' . CAPABLE OF INPUT @Y17XAXF 12600000 TRMOUTPT EQU X'20' . CAPABLE OF OUTPUT @Y17XAXF 12700000 * EQU X'10' . RESERVED @Y17XAXF 12800000 TRMDIAL EQU X'08' . DIAL TERMINAL @Y17XAXF 12900000 TRMGP EQU X'04' . GENERAL POLL RESOURCE@Y17XAXF 13000000 TRMSNA EQU X'02' . SNA RESOURCE @Y17XAXF 13100000 TRMBUFRD EQU X'01' . BUFFER RESOURCE @Y17XAXF 13200000 SPACE 1 @Y17XAXF 13300000 TRMSIBPT DS 0AL3 . ANCHOR FOR SIB CHAIN @Y17XAXF 13400000 TRMGPCNT DS CL1 . CNT OF OUTSTANDING @Y17XAXF 13500000 * GP OUTPUT OPER @Y17XAXF 13600000 TRMCOHTG DS H . TTCIN TO NEXT LINE @Y17XAXF 13700000 * WITHIN A GROUP @Y17XAXF 13800000 TRMRLMCT DS XL1 . RECEIVE MESS LIMIT CNT @Y17XAXF 13900000 TRMTYPE DS CL1 . RESOURCE TYPE @Y17XAXF 14000000 * @Y17XAXF 14100000 * GUIDE LINES FOR ASSIGNING TYPE VALUES @Y17XAXF 14200000 * X'01' - X'0F' NCP RANGE @Y17XAXF 14300000 * X'10' - X'1F' PUNT RANGE @Y17XAXF 14400000 * X'20' - X'2F' LINE RANGE @Y17XAXF 14500000 * X'30' - X'3F' LUNT RANGE @Y17XAXF 14600000 * X'40' - X'4F' PRE-SNA RANGE @Y17XAXF 14700000 * X'50' - X'EF' NEW TYPES @Y17XAXF 14800000 * X'F0' - X'FF' HOST ELEMENT RANGE @Y17XAXF 14900000 * @Y17XAXF 15000000 TRMGRP EQU X'00' . GROUP INDICATOR @Y17XAXF 15100000 TRMLNCP EQU X'0F' . LOCAL NCP INDICATOR @Y17XAXF 15200000 TRMPULO EQU X'10' LOW END OF PUNT RANGE 15250082 SPACE 1 @Y17XAXF 15300000 TRMPUNT EQU X'18' . PUNT INDICATOR @Y17XAXF 15400000 TRMPUHI EQU X'1F' HIGH END OF PUNT RANGE 15450082 SPACE 1 @Y17XAXF 15500000 TRMNSDLC EQU X'20' . BSC/SS LINE IND @Y17XAXF 15600000 TRMSDLC EQU X'21' . SDLC LINE IND @Y17XAXF 15700000 SPACE 1 @Y17XAXF 15800000 TRMLUNT EQU X'30' . LUNT INDICATOR @Y17XAXF 15900000 SPACE 1 @Y17XAXF 16000000 TRMCLUST EQU X'40' . PRE-SNA CLUSTER @Y17XAXF 16100000 TRMCTERM EQU X'48' . CTERM INDICATOR @Y17XAXF 16200000 TRMPSNA EQU X'4F' . PRE-SNA TERM IND @Y17XAXF 16300000 * @Y17XAXF 16400000 * X'50'-X'EF' RESERVED @Y17XAXF 16500000 * @Y17XAXF 16600000 SPACE 1 @Y17XAXF 16700000 TRMSSCP EQU X'FF' . SSCP INDICATOR @Y17XAXF 16800000 SPACE 1 @Y17XAXF 16900000 TRMSUBST DS H . TTCIN TO FIRST ELEMENT @Y17XAXF 17000000 * OF NEXT HIERARCHY @Y17XAXF 17100000 * LEVEL @Y17XAXF 17200000 IEDQTRM EQU * S22024 17400000 SPACE 17500000 TRMSTATE DS XL1 . STATUS BYTE 17600000 * BIT DEFINITIONS 17700000 * TYPE OF ENTRY - BITS 0-2 17800000 * SINGLE 000 17900000 * PROCESS 001 18000000 * LIST (C D) 010 18100000 * LOGTYPE 011 SA53610 18200000 * LINE ENTRY 100 18300000 TRMPROC EQU X'20' PROCESS ENTRY SA53610 18400000 TRMLIST EQU X'40' LIST ENTRY SA53610 18500000 TRMLOG EQU X'60' LOGTYPE ENTRY SA53610 18600000 TRMLINE EQU X'80' LINE ENTRY SA53610 18700000 TRMPREF EQU X'10' . TTE PREFIX EXISTS @Y17XAXF 18800000 * AND NON-270X RES @Y17XAXF 18900000 TRMSNGLE EQU X'E0' . MASK TO TEST FOR TPROC @Y17XAXF 19000000 * LIST, LOG OR LINE. @Y17XAXF 19100000 TRMACPTN EQU X'08' . PROCESS ENTRY STATUS 19200000 TRMACPTF EQU X'FF'-X'08' . PROCESS ENTRY STATUS 19300000 TRMHELDN EQU X'04' . TERMINAL IN HOLD MODE 19400000 TRMHELDF EQU X'FF'-X'04' . TERMINAL NOT INTERCEPTED 19500000 TRMOPTFN EQU X'02' . OPTION FIELDS USED 19600000 TRMOPTFF EQU X'FF'-X'02' . NO OPTION FIELDS USED 19700000 TRMSCNYN EQU X'01' . SECONDARY OPERATOR CTL TERM 19800000 TRMSCNYF EQU X'FF'-X'01' . NOT OPERATOR CONTROL TERM 19900000 * 20000000 TRMDESTQ DS AL3 . ADDR OF DESTINATION QCB 20100000 TLISTCNT DS 0H . COUNT OF ENTRIES IN A TLIST 20200000 TRMUTERM DS 0H . CTERM TNT INDEX (LINE ONLY) 20300000 * @Y17XAXF 20400000 TRMINSEQ DS H . INPUT SEQUENCE NUMBER 20500000 TLISTEN DS 0H . FIRST ENTRY IN A TLIST 20600000 TRMDSORG DS 0XL1 . LGB IDENTIFIER @Y17XAXF 20700000 TRMLGB EQU X'80' . INDICATES BLOCK IS AN S22024 20800000 * LGB RATHER THAN A S22024 20900000 * TERMINAL ENTRY S22024 21000000 TRMOUTSQ DS H . OUTPUT SEQUENCE NUMBER 21100000 TRMPRILK DS 0H . TTCIN OF LINE BEFORE BACKUP 21200000 * OCCURRED (LINE ONLY) @Y17XAXF 21300000 TRMALTD DS H . ALTERNATE DEST OFFSET X03039 21400000 TRMDEVFL DS H . DEVICE DEPENDENT FIELD FLAGS. 21500000 * BIT DEFINITIONS 21600000 TRMBUFS EQU X'80' . 0 BUF SIZE SPECIFIED @Y17XAXF 21700000 TRMDDIG EQU X'40' . 1 DIAL DIGITS PRESENT @Y17XAXF 21800000 TRMADDC EQU X'20' . 2 ADDRESSING CHAR PRE @Y17XAXF 21900000 TRMBLKS EQU X'10' . 3 BLK SPECIFIED @Y17XAXF 22000000 TRMSBLK EQU X'08' . 4 SUBBLK SPECIFIED @Y17XAXF 22100000 TRMTBLK EQU X'04' . 5 TRANSPARENT BLK LENG @Y17XAXF 22200000 TRMBFDY EQU X'02' . 6 BFDELAY SPECIFIED @Y17XAXF 22300000 TRMTSOB EQU X'01' . 7 TIME SHARING FIELD @Y17XAXF 22400000 TRMCONC EQU X'80' . 8 CONC OR TERMINAL S22026 22500000 * ATTACHED TO A CONC S22026 22600000 TRMLMD EQU X'40' . 9 LMD=YES S22026 22700000 * EQU X'20' . 10 RETRY @Y17XAXF 22800000 TRMRNTRM EQU X'10' . 11 3705 MODE @Y17XAXF 22900000 TRMNCPI EQU X'08' . 12 3705 DEV DEP INFO @Y17XAXF 23000000 TRMTPIN EQU X'04' . 13 TPROCESS INFO @Y17XAXF 23100000 * EQU X'02'-X'01' . 14&15 RESERVED @Y17XAXF 23200000 TRMSTAT DS 0F . ERROR STATISTICS 23300000 TRMSIO DS H . NUMBER OF START I/OS @Y17XAXF 23400000 TRMTEMPR DS XL1 . NUMBER OF TEMPORARY ERRORS 23500000 TRMSENSE DS XL1 . INTENSIVE MODE RECORDING 23600000 * INDICATOR 23700000 TRMCHCIN DS XL1 . DEVICE CHARACTERISTIC TABLE 23800000 * INDEX 23900000 TRMOPNO DS XL1 . NUMBER OF OPTION ENTRIES 24000000 TRMOPTBL DS H . OFFSET TO OPTION TABLE 24100000 TRMOPT DS 0XL1 . START OF OPTION OFFSETS 24200000 * 24300000 * *************************************************** 24400000 * 0 * STATE * DESTQ * 24500000 * *************************************************** 24600000 * 4 * INSEQ/TLISTCNT * OUTSEQ/TLISTEN * 24700000 * *************************************************** 24800000 * 8 * ALTD * DEVFL * 24900000 * *************************************************** 25000000 * 12 * STAT * 25100000 * *************************************************** 25200000 * 16 * CCHIN * OPNO * OPTBL * 25300000 * *************************************************** 25400000 * 20 * OPT * 25500000 * ************* 25600000 * 25700000 TRMPRFSZ EQU IEDQTRM-IEDNTRM S22024 25800000 MEND , */ 25900000 *%BSLTRM : ; 26000000 *%IF NEGADDR='NO' /* IF NEW TTRMD IS @Y17XAXF*/ 26100000 * %THEN %GOTO BSLTRM1; /* NEEDED, BRANCH @Y17XAXF*/ 26200000 *DECLARE 26300000 * 1 IEDQTRM BASED(IEDQTPTR) BDY(WORD), /* @Y17XAXF*/ 26400000 * 26500000 */* UPDATED 01/16/73 S22024*/ 26600000 * 26700000 * 2 TRMSTATE BIT(8), /* STATUS BYTE 26800000 * BIT DEFINITIONS 26900000 * TYPE OF ENTRY - BITS 0-2 27000000 * SINGLE 000 27100000 * PROCESS 001 27200000 * LIST (C D) 010 27300000 * LOGTYPE 011 SA53610 27400000 * LINE ENTRY 100 */ 27500000 * 3 TRMLINE BIT(1), /* LINE ENTRY SA53610*/ 27600000 * 3 TRMLOG BIT(2), /* LOGTYPE ENTRY SA53610*/ 27700000 * 4 TRMLIST BIT(1), /* LIST ENTRY SA53610*/ 27800000 * 4 TRMPROC BIT(1), /* PROCESS ENTRY SA53610*/ 27900000 * 3 TRMPREF BIT(1), /* TTE PREFIX EXISTS @Y17XAXF*/ 28000000 * /* AND NON-270X RES @Y17XAXF*/ 28100000 * 3 TRMACPTN BIT(1), /* PROCESS ENTRY STATUS */ 28200000 * 3 TRMHELDN BIT(1), /* TERMINAL IN HOLD MODE */ 28300000 * 3 TRMOPTFN BIT(1), /* OPTION FIELDS USED */ 28400000 * 3 TRMSCNYN BIT(1), /* SECONDARY OPERATOR CTL 28500000 * TERM */ 28600000 */* */ 28700000 * 2 TRMDESTQ PTR(24), /* ADDR OF DEST QCB @Y17XAXF*/ 28800000 * 2 TRMINSEQ FIXED(16), /* INPUT SEQUENCE NUMBER */ 28900000 * 3 TLISTCNT FIXED(16), /* COUNT OF ENTRIES IN A 29000000 * TLIST */ 29100000 * 4 TRMUTERM FIXED(16), /* CTERM TNT INDEX (LINE ONLY) 29200000 * @Y17XAXF*/ 29300000 * 2 TRMOUTSQ FIXED(16), /* OUTPUT SEQUENCE NUMBER */ 29400000 * 3 TLISTEN FIXED(16), /* FIRST ENTRY IN A TLIST */ 29500000 * 5 TRMDSORG CHAR(1), /* LGB IDENTIFIER @Y17XAXF*/ 29600000 * 6 TRMLGB BIT(1), /* INDICATES BLOCK IS AN LGB 29700000 * RATHER THAN A TERMINAL 29800000 * ENTRY S22024*/ 29900000 * 2 TRMALTD FIXED(16), /* ALTERNATE DESTINATION 30000000 * OFFSET */ 30100000 * 3 TRMPRILK FIXED(16), /* TTCIN OF LINE BEFORE BACKUP 30200000 * OCCURED (LINE ONLY) 30300000 * @Y17XAXF*/ 30400000 * 2 TRMDEVFL BIT(16) BDY(HWORD), /* DEVICE DEPENDENT FLAGS 30500000 * INDICATES WHICH FIELDS 30600000 * ARE PRESENT @Y17XAXF*/ 30700000 * 3 TRMBUFS BIT(1), /* BUFSIZE SPEC @Y17XAXF*/ 30800000 * 3 TRMDDIG BIT(1), /* DIAL DIGITS PRE @Y17XAXF*/ 30900000 * 3 TRMADDC BIT(1), /* ADDR CHAR PRESENT @Y17XAXF*/ 31000000 * 3 TRMBLKS BIT(1), /* BLK SPECIFIED @Y17XAXF*/ 31100000 * 3 TRMSBLK BIT(1), /* SUBBLK SPECIFIED @Y17XAXF*/ 31200000 * 3 TRMTBLK BIT(1), /* TRANSPARNT BLKLEN @Y17XAXF*/ 31300000 * 3 TRMBFDY BIT(1), /* BFDELAY SPEC @Y17XAXF*/ 31400000 * 3 TRMTSOB BIT(1), /* TSO FIELD @Y17XAXF*/ 31500000 * 3 TRMCONC BIT(1), /* CONCENTRATOR TERM S22026*/ 31600000 * 3 TRMLMD BIT(1), /* LMD SPECIFIED S22026*/ 31700000 * 3 * BIT(1), /* RETRY SPECIFIED S22025*/ 31800000 * 3 TRMRNTRM BIT(1), /* 3705 MODE @Y17XAXF*/ 31900000 * 3 TRMNCPI BIT(1), /* 3705 DEV DEP INFO @Y17XAXF*/ 32000000 * 3 TRMTPIN BIT(1), /* TPROCESS INFO @Y17XAXF*/ 32100000 * 3 * BIT(2), /* RESERVED @Y17XAXF*/ 32200000 * 2 TRMSTAT FIXED(31), /* ERROR STATISTICS */ 32300000 * 4 TRMSIO FIXED(15), /* NUMBER OF START I/OS */ 32400000 * 4 TRMTEMPR PTR(8), /* TEMPORARY ERROR COUNT */ 32500000 * 4 TRMSENSE CHAR(1), /* INTENSIVE MODE RECORDING 32600000 * INDICATOR */ 32700000 * 2 TRMCHCIN FIXED(8), /* DEVICE CHARACTERISTIC 32800000 * INDEX */ 32900000 * 2 TRMOPNO PTR(8), /* NUMBER OF OPTION ENTRIES */ 33000000 * 2 TRMOPTBL FIXED(16); /* OFFSET TO OPTION TABLE */ 33100000 *DECLARE TRMOPT (*) CHAR(1) DEF(IEDQTRM) /* @Y17XAXF*/ 33200000 * POS(LENGTH(IEDQTRM)+1); 33300000 * /* START OF OPTION OFFSETS */ 33400000 * 33500000 * 33600000 */* *************************************************** */ 33700000 */* 0 * STATE * DESTQ * */ 33800000 */* *************************************************** */ 33900000 */* 4 * INSEQ/TLISTCNT * OUTSEQ/TLISTEN * */ 34000000 */* *************************************************** */ 34100000 */* 8 * ALTD * DEVFL * */ 34200000 */* *************************************************** */ 34300000 */* 12 * STAT * */ 34400000 */* *************************************************** */ 34500000 */* 16 * CCHIN * OPNO * OPTBL * */ 34600000 */* *************************************************** */ 34700000 */* 20 * OPT * */ 34800000 */* ************* */ 34900000 *DECLARE 35000000 * 1 IEDNTRM BASED(ADDR(IEDQTRM)-LENGTH(IEDNTRM)) BDY(HWORD), 35100000 * /* @Y17XAXF*/ 35200000 * 2 TRMBYTE4 BIT(8), /* STATUS BYTE @Y17XAXF*/ 35300000 * 2 TRMBYTE3 BIT(8), /* STATUS BYTE @Y17XAXF*/ 35400000 * 2 TRMBYTE2 BIT(8) ABNL, /* STATUS BYTE @Y17XAXF*/ 35500000 * 3 TRMRSACT BIT(1), /* RESOURCE ACTIVE @Y17XAXF*/ 35600000 * /* SNA -SSCP SESS @Y17XAXF*/ 35700000 * /* EXISTS @Y17XAXF*/ 35800000 * /* PRE SNA - VARY @Y17XAXF*/ 35900000 * /* ONTP CMD @Y17XAXF*/ 36000000 * 3 TRMREMB BIT(1) ABNL, /* ACTIV REM'BR BIT @Y17XAXF*/ 36100000 * 3 TRMINPG BIT(1), /* ACT/DEACT INPRG @Y17XAXF*/ 36200000 * /* FOR SSCP SESS @Y17XAXF*/ 36300000 * 4 TRMCLOSN BIT(1), /* CLOSEDOWN IN PROGRESS @YM06966*/ 36400000 * 3 TRMANDL BIT(1), /* MANUAL DIAL INPG @Y17XAXF*/ 36500000 * 3 TRMGPACT BIT(1), /* WRITE OUTSTAND'G @Y17XAXF*/ 36600000 * 3 TRMPREP BIT(1), /* LINE BEING @Y17XAXG*/ 36700000 * /* MONITORED @Y17XAXG*/ 36800000 * 3 TRMNOSND BIT(1), /* DO NOT CONTINUE @Y17XAXF*/ 36900000 * /* SEND OPERATION @Y17XAXF*/ 37000000 * 3 TRMWRBRK BIT(1), /* WRITE BREAK IN @Y17XAXG*/ 37100000 * /* PROGRESS @Y17XAXG*/ 37200000 * 2 TRMBYTE1 BIT(8), /* STATUS BYTE @Y17XAXF*/ 37300000 * 3 TRMSCPRQ BIT(1), /* SSCP REQ OUTST'G @Y17XAXF*/ 37400000 * 4 TRMWTNEG BIT(1), /* (PRE-SNA)WAITING @Y17XAXF*/ 37500000 * /* FOR RSP TO NEG @Y17XAXF*/ 37600000 * /* POLL @Y17XAXF*/ 37700000 * 3 TRMINPTP BIT(1), /* INPUT PEND'G @Y17XAXF*/ 37800000 * 3 TRMAUTOC BIT(1), /* CALLOUT FRM 3705 @Y17XAXF*/ 37900000 * 3 TRMSWBCK BIT(1), /* TERM ON BKUP @Y17XAXF*/ 38000000 * /* CONNECTION @Y17XAXF*/ 38100000 * 3 TRMTRACE BIT(1), /* PIU TRACE ACTIVE @Y17XAXF*/ 38200000 * 3 TRMTSATN BIT(1), /* INTERACT ATTENT @Y17XAXF*/ 38300000 * /* CONTROL @Y17XAXF*/ 38400000 * 3 TRMCKPRN BIT(1), /* CHKPT REC IND @Y17XAXF*/ 38500000 * /* FOR 3705 RES @Y17XAXF*/ 38600000 * 3 TRMSTOTE BIT(1), /* TOTE CTRLS RES @Y17XAXF*/ 38700000 * 2 TRMCOHRT FIXED(16), /* TTCIN TO NEXT ENT @Y17XAXF*/ 38800000 * /* OF SAVE TYPE @Y17XAXF*/ 38900000 * 2 TRMBYTE0 BIT(8), /* STATUS BYTE @Y17XAXF*/ 39000000 * 3 TRMUDEF BIT(1), /* INV TSO MTA TRM @Y17XAXF*/ 39100000 * 3 TRMINPUT BIT(1), /* CAPABLE OF INPUT @Y17XAXF*/ 39200000 * 3 TRMOUTPT BIT(1), /* CAPABLE OF OUTPT @Y17XAXF*/ 39300000 * 3 * BIT(1), /* RESERVED @Y17XAXF*/ 39400000 * 3 TRMDIAL BIT(1), /* DIAL TERMINAL @Y17XAXF*/ 39500000 * 3 TRMGP BIT(1), /* GEN POLL RES @Y17XAXF*/ 39600000 * 3 TRMSNA BIT(1), /* SNA RESOURCE @Y17XAXF*/ 39700000 * 3 TRMBUFRD BIT(1), /* BUFFERED RES @Y17XAXF*/ 39800000 * 2 TRMSIBPT PTR(24), /* SIB CHAIN PTR @Y17XAXF*/ 39900000 * 3 TRMGPCNT CHAR(1), /* CNT OF OUTSTAND'G @Y17XAXF*/ 40000000 * /* GP OUTPUT OPER @Y17XAXF*/ 40100000 * 3 TRMCOHTG FIXED(16), /* TTCIN TO NXT LINE @Y17XAXF*/ 40200000 * /* WITHIN A GRP @Y17XAXF*/ 40300000 * 2 TRMRLMCT PTR(8), /* REC MES LIMIT CNT @Y17XAXF*/ 40400000 * 2 TRMTYPE CHAR(1), /* RESOURCE TYPE @Y17XAXF*/ 40500000 * 2 TRMSUBST FIXED(16); /* TTCIN TO 1ST ELEMENT OF 40600000 * NEXT HIERARCHY LEVEL 40700000 * @Y17XAXF*/ 40800000 *%GOTO BSLTRM2; /* @Y17XAXF*/ 54000000 * 54100000 *%BSLTRM1 : ; /* @Y17XAXF*/ 54200000 *DECLARE /* @Y17XAXF*/ 54300000 * 1 IEDTRM BASED(RTRM) BDY(HWORD), /* @Y17XAXF*/ 54400000 */* @Y17XAXF*/ 54500000 */* FORMAT OF TTE PREFIX @Y17XAXF*/ 54600000 */* @Y17XAXF*/ 54700000 * 2 IEDNTRM CHAR(14) BDY(HWORD), /* TTE PREFIX @Y17XAXF*/ 54800000 * 3 TRMBYTE4 BIT(8), /* STATUS BYTE @Y17XAXF*/ 54900000 * 3 TRMBYTE3 BIT(8), /* STATUS BYTE @Y17XAXF*/ 55000000 * 3 TRMBYTE2 BIT(8) ABNL, /* STATUS BYTE @Y17XAXF*/ 55100000 * 4 TRMRSACT BIT(1), /* RESOURCE ACTIVE @Y17XAXF*/ 55200000 * /* SNA -SSCP SESS @Y17XAXF*/ 55300000 * /* EXISTS @Y17XAXF*/ 55400000 * /* PRE SNA - VARY @Y17XAXF*/ 55500000 * /* ONTP CMD @Y17XAXF*/ 55600000 * 4 TRMREMB BIT(1) ABNL, /* ACTIV REM'BR BIT @Y17XAXF*/ 55700000 * 4 TRMINPG BIT(1), /* ACT/DEACT INPRG @Y17XAXF*/ 55800000 * /* FOR SSCP SESS @Y17XAXF*/ 55900000 * 5 TRMCLOSN BIT(1), /* CLOSEDOWN IN PROGRESS @YM06966*/ 56000000 * 4 TRMANDL BIT(1), /* MANUAL DIAL INPG @Y17XAXF*/ 56100000 * 4 TRMGPACT BIT(1), /* WRITE OUTSTAND'G @Y17XAXF*/ 56200000 * 4 TRMPREP BIT(1), /* LINE BEING @Y17XAXG*/ 56300000 * /* MONITORED @Y17XAXG*/ 56400000 * 4 TRMNOSND BIT(1), /* DO NOT CONTINUE @Y17XAXF*/ 56500000 * /* SEND OPERATION @Y17XAXF*/ 56600000 * 4 TRMWRBRK BIT(1), /* WRITE BREAK IN @Y17XAXG*/ 56700000 * /* PROGRESS @Y17XAXG*/ 56800000 * 3 TRMBYTE1 BIT(8), /* STATUS BYTE @Y17XAXF*/ 56900000 * 4 TRMSCPRQ BIT(1), /* SSCP REQ OUTST'G @Y17XAXF*/ 57000000 * 5 TRMWTNEG BIT(1), /* (PRE-SNA)WAITING @Y17XAXF*/ 57100000 * /* FOR RSP TO NEG @Y17XAXF*/ 57200000 * /* POLL @Y17XAXF*/ 57300000 * 4 TRMINPTP BIT(1), /* INPUT PEND'G @Y17XAXF*/ 57400000 * 4 TRMAUTOC BIT(1), /* CALLOUT FRM 3705 @Y17XAXF*/ 57500000 * 4 TRMSWBCK BIT(1), /* TERM ON BKUP @Y17XAXF*/ 57600000 * /* CONNECTION @Y17XAXF*/ 57700000 * 4 TRMTRACE BIT(1), /* PIU TRACE ACTIVE @Y17XAXF*/ 57800000 * 4 TRMTSATN BIT(1), /* INTERACT ATTENT @Y17XAXF*/ 57900000 * /* CONTROL @Y17XAXF*/ 58000000 * 4 TRMCKPRN BIT(1), /* CHKPT REC IND @Y17XAXF*/ 58100000 * /* FOR 3705 RES @Y17XAXF*/ 58200000 * 4 TRMSTOTE BIT(1), /* TOTE CTRLS RES @Y17XAXF*/ 58300000 * 3 TRMCOHRT FIXED(16), /* TTCIN TO NEXT ENT @Y17XAXF*/ 58400000 * /* OF SAVE TYPE @Y17XAXF*/ 58500000 * 3 TRMBYTE0 BIT(8), /* STATUS BYTE @Y17XAXF*/ 58600000 * 4 TRMUDEF BIT(1), /* INV TSO MTA TRM @Y17XAXF*/ 58700000 * 4 TRMINPUT BIT(1), /* CAPABLE OF INPUT @Y17XAXF*/ 58800000 * 4 TRMOUTPT BIT(1), /* CAPABLE OF OUTPT @Y17XAXF*/ 58900000 * 4 * BIT(1), /* RESERVED @Y17XAXF*/ 59000000 * 4 TRMDIAL BIT(1), /* DIAL TERMINAL @Y17XAXF*/ 59100000 * 4 TRMGP BIT(1), /* GEN POLL RES @Y17XAXF*/ 59200000 * 4 TRMSNA BIT(1), /* SNA RESOURCE @Y17XAXF*/ 59300000 * 4 TRMBUFRD BIT(1), /* BUFFERED RES @Y17XAXF*/ 59400000 * 3 TRMSIBPT PTR(24), /* SIB CHAIN PTR @Y17XAXF*/ 59500000 * 4 TRMGPCNT CHAR(1), /* CNT OF OUTSTAND'G @Y17XAXF*/ 59600000 * /* GP OUTPUT OPER @Y17XAXF*/ 59700000 * 4 TRMCOHTG FIXED(16), /* TTCIN TO NXT LINE @Y17XAXF*/ 59800000 * /* WITHIN A GRP @Y17XAXF*/ 59900000 * 3 TRMRLMCT PTR(8), /* REC MES LIMIT CNT @Y17XAXF*/ 60000000 * 3 TRMTYPE CHAR(1), /* RESOURCE TYPE @Y17XAXF*/ 60100000 * 3 TRMSUBST FIXED(16), /* TTCIN TO 1ST ELEMENT OF 60200000 * NEXT HIERARCHY LEVEL 60300000 * @Y17XAXF*/ 60400000 * 2 IEDQTRM CHAR(20) BDY(WORD), /* BEGINNING OF TTE @Y17XAXF*/ 60500000 * 3 TRMSTATE BIT(8), /* STATUS BYTE 60600000 * BIT DEFINITIONS 60700000 * TYPE OF ENTRY - BITS 0-3 60800000 * SINGLE 000 60900000 * PROCESS 001 61000000 * LIST (C D) 010 61100000 * LOGTYPE 011 SA53610 61200000 * LINE ENTRY 100 */ 61300000 * 4 TRMLINE BIT(1), /* LINE ENTRY SA53610*/ 61400000 * 4 TRMLOG BIT(2), /* LOGTYPE ENTRY SA53610*/ 61500000 * 5 TRMLIST BIT(1), /* LIST ENTRY SA53610*/ 61600000 * 5 TRMPROC BIT(1), /* PROCESS ENTRY SA53610*/ 61700000 * 4 TRMPREF BIT(1), /* TTE PREFIX EXISTS @Y17XAXF*/ 61800000 * /* AND NON-270X RES @Y17XAXF*/ 61900000 * 4 TRMACPTN BIT(1), /* PROCESS ENTRY STATUS */ 62000000 * 4 TRMHELDN BIT(1), /* TERMINAL IN HOLD MODE */ 62100000 * 4 TRMOPTFN BIT(1), /* OPTION FIELDS USED */ 62200000 * 4 TRMSCNYN BIT(1), /* SECONDARY OPERATOR CTL 62300000 * TERM */ 62400000 */* */ 62500000 * 3 TRMDESTQ PTR(24), /* ADDR OF DEST QCB @Y17XAXF*/ 62600000 * 3 TRMINSEQ FIXED(16), /* INPUT SEQUENCE NUMBER */ 62700000 * 4 TLISTCNT FIXED(16), /* COUNT OF ENTRIES IN A 62800000 * TLIST */ 62900000 * 5 TRMUTERM FIXED(16), /* CTERM TNT INDEX (LINE ONLY) 63000000 * @Y17XAXF*/ 63100000 * 3 TRMOUTSQ FIXED(16), /* OUTPUT SEQUENCE NUMBER */ 63200000 * 4 TLISTEN FIXED(16), /* FIRST ENTRY IN A TLIST */ 63300000 * 5 TRMDSORG CHAR(1), /* LGB IDENTIFIER @Y17XAXF*/ 63400000 * 6 TRMLGB BIT(1), /* INDICATES BLOCK IS AN LGB 63500000 * RATHER THAN A TERMINAL 63600000 * ENTRY S22024*/ 63700000 * 3 TRMALTD FIXED(16), /* ALTERNATE DESTINATION 63800000 * OFFSET */ 63900000 * 4 TRMPRILK FIXED(16), /* TTCIN OF LINE BEFORE BACKUP 64000000 * OCCURRED (LINE ONLY) 64100000 * @Y17XAXF*/ 64200000 * 3 TRMDEVFL BIT(16) BDY(HWORD), /* DEVICE DEPENDENT FLAGS 64300000 * INDICATES WHICH FIELDS 64400000 * ARE PRESENT @Y17XAXF*/ 64500000 * 4 TRMBUFS BIT(1), /* BUFSIZE SPEC @Y17XAXF*/ 64600000 * 4 TRMDDIG BIT(1), /* DIAL DIGITS PRE @Y17XAXF*/ 64700000 * 4 TRMADDC BIT(1), /* ADDR CHAR PRESENT @Y17XAXF*/ 64800000 * 4 TRMBLKS BIT(1), /* BLK SPECIFIED @Y17XAXF*/ 64900000 * 4 TRMSBLK BIT(1), /* SUBBLK SPECIFIED @Y17XAXF*/ 65000000 * 4 TRMTBLK BIT(1), /* TRANSPARNT BLKLEN @Y17XAXF*/ 65100000 * 4 TRMBFDY BIT(1), /* BFDELAY SPEC @Y17XAXF*/ 65200000 * 4 TRMTSOB BIT(1), /* TSO FIELD @Y17XAXF*/ 65300000 * 4 TRMCONC BIT(1), /* CONCENTRATOR TERM S22026*/ 65400000 * 4 TRMLMD BIT(1), /* LMD SPECIFIED S22026*/ 65500000 * 4 * BIT(1), /* RETRY SPECIFIED S22025*/ 65600000 * 4 TRMRNTRM BIT(1), /* 3705 MODE @Y17XAXF*/ 65700000 * 4 TRMNCPI BIT(1), /* 3705 DEV DEP INFO @Y17XAXF*/ 65800000 * 4 TRMTPIN BIT(1), /* TPROCESS INFO @Y17XAXF*/ 65900000 * 4 * BIT(2), /* RESERVED @Y17XAXF*/ 66000000 * 3 TRMSTAT FIXED(31), /* ERROR STATISTICS */ 66100000 * 4 TRMSIO FIXED(15), /* NUMBER OF START I/OS */ 66200000 * 4 TRMTEMPR PTR(8), /* TEMPORARY ERROR COUNT */ 66300000 * 4 TRMSENSE CHAR(1), /* INTENSIVE MODE RECORDING 66400000 * INDICATOR */ 66500000 * 3 TRMCHCIN FIXED(8), /* DEVICE CHARACTERISTIC 66600000 * INDEX */ 66700000 * 3 TRMOPNO PTR(8), /* NUMBER OF OPTION ENTRIES */ 66800000 * 3 TRMOPTBL FIXED(16), /* OFFSET TO OPTION TABLE */ 66900000 * 2 TRMOPT (*) CHAR(1); /* OPTION INFO @Y17XAXF*/ 67000000 * /* @Y17XAXF*/ 67100000 *%BSLTRM2 : ; /* @Y17XAXF*/ 67150000 */* @Y17XAXF*/ 67200000 */* VALUES FOR TRMTYPE @Y17XAXF*/ 67300000 */* @Y17XAXF*/ 67400000 */* GUIDE LINES FOR ASSIGNING TYPE VALUES @Y17XAXF*/ 67500000 */* X'01' - X'0F' NCP RANGE @Y17XAXF*/ 67600000 */* X'10' - X'1F' PUNT RANGE @Y17XAXF*/ 67700000 */* X'20' - X'2F' LINE RANGE @Y17XAXF*/ 67800000 */* X'30' - X'3F' LUNT RANGE @Y17XAXF*/ 67900000 */* X'40' - X'4F' PRE-SNA RANGE @Y17XAXF*/ 68000000 */* X'50' - X'EF' NEW TYPES @Y17XAXF*/ 68100000 */* X'F0' - X'FF' HOST ELEMENT RANGE @Y17XAXF*/ 68200000 */* @Y17XAXF*/ 68300000 * DCL /* @Y17XAXF*/ 68400000 * TRMGRP BIT(8) CONSTANT('00'X), /* GROUP IND @Y17XAXF*/ 68500000 * TRMLNCP BIT(8) CONSTANT('0F'X); /* NCP INDICATOR @Y17XAXF*/ 68600000 * DCL /* @Y17XAXF*/ 68700000 * TRMPUNT BIT(8) CONSTANT('18'X); /* PUNT IND @Y17XAXF*/ 68800000 * DCL /* @Y17XAXF*/ 68900000 * TRMNSDLC BIT(8) CONSTANT('20'X), /* BSC/SS LINE @Y17XAXF*/ 69000000 * TRMSDLC BIT(8) CONSTANT('21'X); /* SDLC LINE @Y17XAXF*/ 69100000 * DCL /* @Y17XAXF*/ 69200000 * TRMLUNT BIT(8) CONSTANT('30'X); /* LUNT IND @Y17XAXF*/ 69300000 * DCL /* @Y17XAXF*/ 69400000 * TRMCLUST BIT(8) CONSTANT('40'X), /* PRE-SNA CLUST @Y17XAXF*/ 69500000 * TRMCTERM BIT(8) CONSTANT('48'X), /* CTERM IND @Y17XAXF*/ 69600000 * TRMPSNA BIT(8) CONSTANT('4F'X); /* PRE-SNA IND @Y17XAXF*/ 69700000 */* @Y17XAXF*/ 69800000 */* X'50'- X'EF' RESERVED @Y17XAXF*/ 69900000 */* @Y17XAXF*/ 70000000 * DCL /* @Y17XAXF*/ 70100000 * TRMSSCP BIT(8) CONSTANT('FF'X); /* SSCP IND @Y17XAXF*/ 70200000 */* @Y17XAXF*/ 70300000 */* VALUES FOR TRMSTATE @Y17XAXF*/ 70400000 */* @Y17XAXF*/ 70500000 * DCL /* @Y17XAXF*/ 70600000 * TRMSNGLE BIT(8) CONSTANT('E0'X); /* MASK TO TEST @Y17XAXF*/ 70700000 * /* FOR TPROC, @Y17XAXF*/ 70800000 * /* LOG, LIST OR @Y17XAXF*/ 70900000 * /* LINE. @Y17XAXG*/ 71000000 */* @Y17XAXF*/ 71100000 */* CONTACT STATE VALUES (USED WITH TRMPCONT AND @Y17XAXF*/ 71200000 */* TRMNCONT) @Y17XAXF*/ 71300000 * DCL /* @Y17XAXF*/ 71400000 * TRMCRSET BIT(3) CONSTANT('000'B), /* RESET @Y17XAXF*/ 71500000 * TRMCCSNT BIT(3) CONSTANT('001'B), /* CONTACT SENT @Y17XAXF*/ 71600000 * TRMCAPND BIT(3) CONSTANT('010'B), /* ACTIVE PEND'G @Y17XAXF*/ 71700000 * TRMCRPND BIT(3) CONSTANT('011'B), /* RESET PENDING @Y17XAXF*/ 71800000 * TRMCACTV BIT(3) CONSTANT('100'B); /* ACTIVE @Y17XAXF*/ 71900000 */* @Y17XAXF*/ 72000000 */* LINK STATES(USED WITH TRMLSTAT) @Y17XAXF*/ 72100000 */* @Y17XAXF*/ 72200000 * DCL /* @Y17XAXF*/ 72300000 * TRMLRSET BIT(2) CONSTANT('00'B), /* RESET @Y17XAXF*/ 72400000 * TRMLAPND BIT(2) CONSTANT('01'B), /* ACTIVE PENDING @Y17XAXF*/ 72500000 * TRMLRPND BIT(2) CONSTANT('10'B), /* RESET PENDING @Y17XAXF*/ 72600000 * TRMLACTV BIT(2) CONSTANT('11'B); /* ACTIVE @Y17XAXF*/ 72700000 */* @Y17XAXF*/ 72800000 */* DEVICE DEPENDENT FIELD MASKS @Y17XAXF*/ 72900000 */* @Y17XAXF*/ 73000000 * DCL /* @Y17XAXF*/ 73100000 * TRMTPINM BIT(16) CONSTANT('0004'X),/* TPROCESS INFO MASK 73200000 * @Y17XAXF*/ 73300000 * TRMNCPIM BIT(16) CONSTANT('0008'X),/* NCP INFO MASK @Y17XAXF*/ 73400000 * TRMRNTMK BIT(16) CONSTANT('0010'X),/* 3705 MODE FLD @Y17XAXF*/ 73500000 * TRMDDIGA BIT(16) CONSTANT('4000'X);/* DIAL DIGITS FIELD 73600000 * @Y17XAXF*/ 73700000 * /* @Y17XAXG*/ 73800000 * DECLARE /* @Y17XAXF*/ 73900000 * 1 TRMPRE1 BIT(8) DEFINED(TRMBYTE4), /* PRE-SNA STAT BYTE @Y17XAXF*/ 74000000 * 2 TRMCONT BIT(1), /* CONTACT INIT SES @Y17XAXF*/ 74100000 * 2 TRMSESSN BIT(1), /* TERM IN SESSION @Y17XAXF*/ 74200000 * 2 TRMOCNI BIT(1), /* STOP LINE INPRG @Y17XAXF*/ 74300000 * 2 TRMSPACT BIT(1), /* TERM'S LINE ACTV @Y17XAXF*/ 74400000 * 2 TRMQNPL BIT(1), /* Q'D NEG POLL LIM @Y17XAXF*/ 74500000 * /* RECEIVED @Y17XAXF*/ 74600000 * 2 TRMERLCK BIT(1), /* TERM IN ERR LOCK @Y17XAXF*/ 74700000 * 2 TRMSPOUT BIT(1), /* SPEC PROC REQ @Y17XAXF*/ 74800000 * 2 TRMLYNCH BIT(1); /* DISCONN REC'VD @Y17XAXF*/ 74900000 *DECLARE /* @YM08120*/ 74920000 * 1 TRMNCP1 BIT(8) DEF(TRMBYTE4), /* STATUS BYTE @YM08120*/ 74940000 * 2 TRMINOP BIT(1), /* INOP FOR NCP @YM08120*/ 74960000 * 2 * BIT(7); /* RESERVED @YM08120*/ 74980000 * DECLARE /* @Y17XAXF*/ 75000000 * 1 TRMPRE BIT(8) DEFINED(TRMBYTE3), /* PRE-SNA STAT BYTE @Y17XAXF*/ 75100000 * 2 TRMSTPND BIT(1), /* STAT PEND'G FLAG @Y17XAXF*/ 75200000 * 2 TRMCMODE BIT(1), /* CHG MODE REQUEST @Y17XAXF*/ 75300000 * 2 TRMSTMM BIT(1), /* STOP MIDMES INPG @Y17XAXF*/ 75400000 * 2 TRMASNXI BIT(1), /* RESET IMMED INPG @Y17XAXF*/ 75500000 * 2 TRMWROUT BIT(1), /* WRITE OUTSTAND'G @Y17XAXF*/ 75600000 * 2 TRMNLOUT BIT(1), /* NULL WRITE OR @Y17XAXF*/ 75700000 * /* CONTACT OUTST'G @Y17XAXF*/ 75800000 * 2 TRMRDOUT BIT(1), /* READ OUTSTAND'G @Y17XAXF*/ 75900000 * 2 TRMINOUT BIT(1); /* INVITE OUTST'G @Y17XAXF*/ 76000000 * DECLARE /* @Y17XAXF*/ 76100000 * 1 TRMNCP BIT(8) DEF(TRMBYTE3) ABNL, /* NCP STATUS BYTE @Y17XAXF*/ 76200000 * 2 TRMIPLDM BIT(1) ABNL, /* IPL/DMP INPROG @Y17XAXF*/ 76300000 * 2 TRMNCPCL BIT(1), /* CLOSEDOWN INPRG @Y17XAXF*/ 76400000 * 2 TRMSYGEN BIT(1), /* SYSGEN NCP ACTIVE STATE 76500000 * @Y17XAXF*/ 76600000 * 2 TRMSLOWN BIT(1), /* 3705 SLOWDWN @Y17XAXF*/ 76700000 * /* IN PROGRESS @Y17XAXF*/ 76800000 * 2 TRMQUCKN BIT(1), /* NCP QUICK @Y17XAXF*/ 76900000 * /* CLOSEDOWN @Y17XAXF*/ 77000000 * 2 TRMNCONT BIT(3); /* NCP CONTACT @Y17XAXF*/ 77100000 * /* STATE @Y17XAXF*/ 77200000 * DECLARE /* @Y17XAXF*/ 77300000 * 1 TRMPU BIT(8) DEFINED(TRMBYTE3), /* PU STATUS BYTE @Y17XAXF*/ 77400000 * 2 * BIT(5), /* RESERVED @Y17XAXF*/ 77500000 * 2 TRMPCONT BIT(3); /* PU CONTACT @Y17XAXF*/ 77600000 * /* STATES @Y17XAXF*/ 77700000 * DECLARE /* @Y17XAXF*/ 77800000 * 1 TRMLU BIT(8) DEFINED(TRMBYTE3) ABNL,/*LUNT STATUS BYTE @PI06917*/ 77900000 * 2 TRMAUTO BIT(1), /* AUTO BIND TO @Y17XAXF*/ 78000000 * /* TCAM @Y17XAXF*/ 78100000 * 2 TRMLUIT BIT(1), /* LU INITIATES @Y17XAXF*/ 78200000 * /* SESSION @Y17XAXF*/ 78300000 * 2 TRMLUTM BIT(1), /* LU TERMINATES @Y17XAXF*/ 78400000 * /* SESSION @Y17XAXF*/ 78500000 * 2 TRMTDIFF BIT(1), /* TOTE TERM IND @Y17XAXF*/ 78600000 * 2 TRMSESRQ BIT(1), /* LU-LU SESS REQ @Y17XAXF*/ 78700000 * /* FROM IEDLUS @Y17XAXF*/ 78800000 * 2 TRMLUREQ BIT(1), /* SESS INITIATED @Y17XAXF*/ 78900000 * /* BY LU @Y17XAXF*/ 79000000 * 2 TRMINERR BIT(1), /* INITIATION ERROR PROCESSING 79100000 * IN PROGRESS @PI06917*/ 79200000 * 2 TRMLULOG BIT(1); /* CAPABLE OF LOGON TO TCAM 79300000 * @Y17XAXF*/ 79400000 * DECLARE /* @Y17XAXF*/ 79500000 * 1 TRMLINK BIT(8) DEFINED(TRMBYTE3), /* LINE STATUS BYTE @Y17XAXF*/ 79600000 * 2 TRMEPMOD BIT(1), /* LINE IN EP MODE @Y17XAXF*/ 79700000 * 2 TRMLINT BIT(1), /* 3705 TRACE ACTVE @Y17XAXF*/ 79800000 * 2 TRMLSTAT BIT(2), /* LINK STATUS @Y17XAXF*/ 79900000 * 2 * BIT(4); /* RESERVED @Y17XAXF*/ 80000000 *%TRMPRFSZ='LENGTH(IEDNTRM)'; /* MACRO VAR PRF LEN @Y17XAXF*/ 80100000 */* */ 80200000