#pragma inline=forced
extern "C" {
inline unsigned char *GetY(void)
{
asm("mov R16, R28");
asm("mov R17, R29");
}
};

#pragma segment="CSTACK"
#pragma segment="RSTACK"
unsigned char *dbg_ptr, *dbg_begin;
//---------------------------------------------------------------------------
int main()
{
// очистка стека данных
dbg_ptr=GetY();
dbg_begin=(unsigned char *)__segment_begin("CSTACK");
do {
*dbg_begin++=0;
} while (dbg_begin<dbg_ptr);
// заполнение стека данных символом 'D'
dbg_begin=(unsigned char *)__segment_begin("CSTACK");
do {
*dbg_begin++='D';
} while (dbg_begin<dbg_ptr);
// очистка стека возвратов
dbg_ptr=reinterpret_cast<TStackItem*>(*((volatile unsigned short*)0x3D));
dbg_ptr-=3;
dbg_begin=(unsigned char *)__segment_begin("RSTACK");
do {
*dbg_begin++=0;
} while (dbg_begin<dbg_ptr);
// заполнение стека возвратов символом 'R'
dbg_begin=(unsigned char *)__segment_begin("RSTACK");
do {
*dbg_begin++='R';
} while (dbg_begin<dbg_ptr);
//
while (1) {
// программа
}