1 /*****************************************************************************
2 
3 	ExeCCC()
4 
5 	This function executes a ^^ (control-caret or caret-caret) command.
6 
7 	^^x	Equivilent to the ASCII value of x
8 
9 *****************************************************************************/
10 
11 #include "zport.h"		/* define portability identifiers */
12 #include "tecoc.h"		/* define general identifiers */
13 #include "defext.h"		/* define external global variables */
14 #include "deferr.h"		/* define identifiers for error messages */
15 
ExeCCC()16 DEFAULT ExeCCC()		/* execute a control-^ command */
17 {
18 	DBGFEN(1,"ExeCCC",NULL);
19 
20 	if (IncCBP() == FAILURE) {
21 		DBGFEX(1,DbgFNm,"FAILURE");
22 		return FAILURE;
23 	}
24 
25 	DBGFEX(1,DbgFNm,"PushEx()");
26 	return PushEx((LONG)*CBfPtr, OPERAND);
27 }
28