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()16DEFAULT 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