【MZ80,Z88DK】C言語でBeep音の音程変更

#define POKE( off, val )    ( *(unsigned char*)( off ) = ( val ) )
void main()
{
    POKE( 0xe004, 0x77 );               //  ド(L)
    POKE( 0xe004, 0x07 );               //  ド(H)
    POKE( 0xe008, 0x01 );               //  音を鳴らし始める
    for( int i = 0; i < 10000; i++ ){}  //  音の長さ
    POKE( 0xe004, 0xa7 );               //  レ(L)
    POKE( 0xe004, 0x06 );               //  レ(H)
    for( int i = 0; i < 10000; i++ ){}  //  音の長さ
    POKE( 0xe004, 0xed );               //  ミ(L)
    POKE( 0xe004, 0x05 );               //  ミ(H)
    for( int i = 0; i < 10000; i++ ){}  //  音の長さ
    POKE( 0xe008, 0x00 );               //  音を止める
}