MACRO                                                          00050001
&NAME    STTMPMD &A,&KEYS=NO                                            00100001
.********************************************************************** 00150001
.*                                                                    * 00200001
.* STATUS - NEW MACRO                                           ZA24648 00250001
.*                                                                    * 00300001
.* NAME - STTMPMD   (SET TMP         MODE)                            * 00350001
.*                                                                    * 00400001
.* FUNCTION - THE STTMPMD MACRO IS USED TO SPECIFY WHETHER OR NOT     * 00450001
.*            AN APPLICATION IS PRESENTING DISPLAYS TO A TSO          * 00500001
.*            DISPLAY TERMINAL AS THE TERMINAL CONTROLLER.            * 00550001
.*                                                                    * 00600001
.*       THE MACRO PROTOTYPE IS ABOVE                                 * 00650001
.*                                                                    * 00700001
.*       THE STANDARD FORM OF THE EXPANSION IS BELOW                  * 00750001
.*&NAME  LA    1,128+64                 SET PARM FLAGS                * 00800001
.*       SLL   1,24                     SHIFT TO HIGH ORDER BYTE      * 00850001
.*       LA    0,20                     LOAD ENTRY CODE               * 00900001
.*       SLL   0,24                     SHIFT TO HIGH ORDER BYTE      * 00950001
.*       SVC   94                       TERMINAL CONTROL MACRO SVC    * 01000001
.*                                                                    * 01050001
.********************************************************************** 01100001
         LCLA  &SYSTMP                                                  01150001
         LCLA  &SYSKEYS                                                 01200001
&SYSTMP  SETA  128                                                      01250001
&SYSKEYS SETA  0                                                        01300001
         AIF   ('&KEYS' NE 'ALL' AND '&KEYS' NE 'NO').ERROR1            01350001
         AIF   ('&KEYS' EQ 'NO').TESTA                                  01400001
&SYSKEYS SETA  64                                                       01450001
.TESTA   ANOP                                                           01500001
         AIF   ('&A' EQ 'ON' OR '&A' EQ '').FSON                        01550001
         AIF   ('&A' NE 'OFF').ERROR                                    01600001
.FSOFF   ANOP                                                           01650001
&SYSTMP  SETA  0                                                        01700001
.FSON    ANOP                                                           01750001
&NAME    LA    1,&SYSTMP+&SYSKEYS       SET PARM FLAGS                  01800001
         SLL   1,24                     SHIFT TO HIGH ORDER BYTE        01850001
         LA    0,20                     LOAD ENTRY CODE                 01900001
         SLL   0,24                     SHIFT TO HIGH ORDER BYTE        01950001
         SVC   94                       TERMINAL CONTROL MACRO SVC      02000001
         MEXIT                                                          02050001
.ERROR   IHBERMAC 36,,&A                                                02100001
         MEXIT                                                          02150001
.ERROR1  IHBERMAC 54,,,                                                 02200001
         MEND                                                           02250001