1 /*****************************************************************************
2
3 ExeUsc()
4
5 This function executes a control-underscore (^_) command.
6
7 *****************************************************************************/
8
9 #include "zport.h" /* define portability identifiers */
10 #include "tecoc.h" /* define general identifiers */
11 #include "defext.h" /* define external global variables */
12 #include "dchars.h" /* define identifiers for characters */
13
ExeUsc()14 DEFAULT ExeUsc() /* execute control-_ command */
15 {
16 DBGFEN(1,"ExeUsc",NULL);
17 DBGFEX(1,DbgFNm,"PushEx(USCHAR)");
18 return PushEx((LONG)USCHAR, OPERATOR);
19 }
20