;http://www.edaboard.com/showthread.php?182595-how-to-produce-beep-using-assembly-in-8086
;;

sound:
STARTSOUND:   ;CX=FREQUENCY IN HERTZ. DESTROYS AX & DX
pushfwide
pushawide

CMP CX, 014H
JB STARTSOUND_DONE
;CALL STOPSOUND
IN AL, 061H
;AND AL, 0FEH
;OR AL, 002H
OR AL, 003H
DEC AX
OUT 061H, AL   ;TURN AND GATE ON; TURN TIMER OFF
MOV DX, 00012H   ;HIGH WORD OF 1193180
MOV AX, 034DCH   ;LOW WORD OF 1193180
DIV CX
MOV DX, AX
MOV AL, 0B6H
PUSHF
CLI   ;!!!
OUT 043H, AL
MOV AL, DL
OUT 042H, AL
MOV AL, DH
OUT 042H, AL
POPF
IN AL, 061H
OR AL, 003H
OUT 061H, AL
   STARTSOUND_DONE:
popawide
popfwide
RET

   STOPSOUND:   ;DESTROYS AL
IN AL, 061H
AND AL, 0FCH
OUT 061H, AL
popawide
popfwide
RET






nosound:
pushfwide
push wideax

IN AL, 061H
AND AL, 0FCH
OUT 061H, AL



pop wideax
popfwide
retwide

;Inputs:
;       AH -- Uniform beep value
;       CX -- Low word wait counter
;       DI -- High word wait counter
;
;;
OPCODE__speaker_bootbeep:
pusha
pushf

;mov ah,5
mov al,0xB6
out 43h,al
mov al,ah
out 42h,al
out 42h,al
in al,61h
or al,3
out 61h,al
.wait:
push ecx
;mov cx,0xFF
loop $
pop ecx
dec di
jnz .wait
and al,-3
out 61h,al

popf
popa
ret

;Inputs:
;       AH -- Uniform beep value
;       CX -- Low word wait counter
;       DI -- High word wait counter
;
;;
OPCODE__speaker_bootbeep:
pushawide
pushfwide

;mov ah,5
mov al,0xB6
out 43h,al
mov al,ah
out 42h,al
out 42h,al
in al,61h
or al,3
out 61h,al
.wait:
push widecx
;mov cx,0xFF
loop $
pop widecx
dec di
jnz .wait
and al,-3
out 61h,al

popfwide
popawide
retwide

mov widedi,0x5
mov widecx,0xFFFF
mov ah,6
call OPCODE__speaker_bootbeep

mov widedi,0x3
mov widecx,0xFFFF
mov ah,5
call OPCODE__speaker_bootbeep

mov edi,0xf
mov ecx,0xFFFF
mov ah,7
call OPCODE__speaker_bootbeep