//  Компиляция:
//  zcc +zx -vn -startup=1 -clib=new  AY.c -o AY_01 -create-app

//  zcc +zx -vn AY.c -o AY_01 -create-app

// Через регистр L, если один параметр
// Через HL, если 2 параметра ( unsigned char )  Первый (параметр) = L, второй = H
////////////////////////////////////////////////////////////////////////////////////////
void Sleep(unsigned char value)
{

             __asm

               ld  b, l

L_01:          ld  a, 255
wait_loop:     dec a
               jr nz, wait_loop
               dec b
               jr nz, L_01

             __endasm;
}

////////////////////////////////////////////////////////////////////////////////////////
void main(void)                                                                       //
{

    unsigned char *screen = (unsigned char *)0x4000;
    unsigned char *attr   = (unsigned char *)0x5800;
    int i, i2;

    // Заливаем видеопамять кодом символа (пробел)

    for(i2 = 0; i2 < 6084; i2+=32)
    {

        for(i  = 0; i  < 32 ; i ++ )
        {

            screen[i+i2] = 255;  //
            Sleep(1);
        }
    }

    for(i  = 0; i  < 84 ; i ++ )
    {
        attr[i + 8*i] = i;
        Sleep(155);
    }

    for(i  = 0; i  < 40 ; i ++ )   Sleep(255);
}