26 lines
905 B
C
26 lines
905 B
C
/*****************************************************************************
|
|
ExeCtZ()
|
|
This function executes a control-Z command.
|
|
^Z <CTRL/Z> (caret/Z) is equivalent to the total space
|
|
occupied by text in the Q-registers (including the
|
|
command line currently being executed).
|
|
*****************************************************************************/
|
|
#include "zport.h" /* define portability identifiers */
|
|
#include "tecoc.h" /* define general identifiers */
|
|
#include "defext.h" /* define external global variables */
|
|
DEFAULT ExeCtZ() /* execute a ^Z (control-Z) command */
|
|
{
|
|
LONG TmpLng;
|
|
WORD TmpWrd;
|
|
DBGFEN(1,"ExeCtZ",NULL);
|
|
TmpLng = (CStEnd - CStBeg) + 1;
|
|
for (TmpWrd = 0; TmpWrd < 36; ++TmpWrd) {
|
|
TmpLng += QRgstr[TmpWrd].End_P1 - QRgstr[TmpWrd].Start;
|
|
}
|
|
#if DEBUGGING
|
|
sprintf(DbgSBf,"PushEx(%ld)", TmpLng);
|
|
DbgFEx(1,DbgFNm,DbgSBf);
|
|
#endif
|
|
return PushEx(TmpLng,OPERAND);
|
|
}
|