/********************************************************************/ 00050041
 /* IEEZB906                                                         */ 00090041
 /*           MACCOMP - SC1CM                                        */ 00130041
 /*           MACSTAT - AG17SP2F                                     */ 00170041
 /*           MACMEAN - INTERFACE TO IEECB906                        */ 00210041
 /*                                                                  */ 00250041
 /*      THIS MACRO MAPS THE INTERFACE TO IEECB906. IEECB906 IS THE  */ 00290041
 /*      ESTAE ROUTINE FOR SLIP COMMAND PROCESSORS IEECB905 AND      */ 00330041
 /*      IEECB907 (DISPLAY SLIP).                                    */ 00370041
 /********************************************************************/ 00410041
     DCL 1 SESTAE BASED(*),                                             00550041
           2 SESTFLG,                                                   00600041
             3 SESTSLP BIT(1),        /* ESTAE COVERS SLIP COMMAND   */ 00650041
             3 SESTDSLP BIT(1),       /* ESTAE COVERS DISPLAY SLIP   */ 00690041
             3 SESTSEQ BIT(1),        /* SHDRSEQ BYTE HELD BY PROC   */ 00730041
             3 SESTSET BIT(1),        /* SLIP SET COMMAND ENTERED    */ 00770041
             3 SESTMOD BIT(1),        /* SLIP MOD COMMAND ENTERED    */ 00810041
             3 SESTDEL BIT(1),        /* SLIP DEL COMMAND ENTERED    */ 00850041
             3 SESTCHN BIT(1),        /* SCE CHAIN BEING SCANNED     */ 00890041
             3 * BIT(1),                                                01000041
           2 SESTFLG2,                                                  01050041
             3 SEST503D BIT(1),       /* IEE0503D MUST BE DELETED    */ 01100041
             3 SESTVTSL BIT(1),       /* IEAVTSLP MUST BE DELETED    */ 01140041
             3 *        BIT(6),       /* RESERVED                    */ 01180041
           2 *          CHAR(2),      /* RESERVED                    */ 01220041
           2 SESTCSCB   PTR(31),      /* ADDR OF CSCB TO BE FREED    */ 01260041
           2 SESTSHDR   PTR(31),      /* ADDR OF SHDR TO BE FREED    */ 01300041
           2 SESTSCE    PTR(31),      /* ADDR OF SCE TO BE FREED     */ 01340041
           2 SESTWTOI   CHAR(4),      /* WTOID - ISSUE ENDLINE       */ 01500041
           2 SESTSCAN   PTR(31);      /* ADDR OF SCE CURRENTLY BEING    01550041
                                         SCANNED WHILE SCANNING THE     01600041
                                         SCE CHAIN                   */ 01650041