Kdysi ještě za bolševika jsem si napsal ovladač klávesnice, kterej při přepínání mezi "normální" a "Kameníkama" pípal. Zde jsou funkce sound a nosound. Ale nechtějte po mě, abych dneska někomu vysvětloval co to dělá :-)
Sound proc near
assume cs:_TEXT, ds:_TEXT, es:_TEXT, ss:_TEXT
push dx
push bx
mov bx, ax
in al, 61h
and al, 0FCh
out 61h, al
mov ax, 34DDh
mov dx, 12h
cmp dx, bx
jnb SoundRet
div bx
mov bx, ax
in al, 61h
test al, 3h
jne SoundRet
or al, 3h
out 61h, al
mov al, 0B6h
out 43h, al
mov al, bl
out 42h, al
mov al, bh
out 42h, al
SoundRet:
pop bx
pop dx
retn
Sound endp
NoSound proc near
assume cs:_TEXT, ds:_TEXT, es:_TEXT, ss:_TEXT
push ax
in al, 61h
and al, 0FCh
out 61h, al
pop ax
retn
NoSound endp