SON DU HP DE LA CARTE MÈRE [TASM, PORT 61H, PIT(42H, 43H), + CODE DU SCANCODE]

.386
code	segment	use16
assume	cs:code,ds:code
prog:
	push	cs
	pop	ds
	xor	ax,ax
	mov	es,ax
	mov     eax, es:[09h*4]
        mov     oldirq1, eax		;sauvegarde de l'IRQ1 lié à l'INT 09h (sinon PANIC)
        mov     ax, cs
        shl     eax, 16
        mov     ax, offset irq1
        mov     es:[09h*4], eax		;place celle du code présent
	
	mov   	al,0B6h			;on initialise le PIT au counter 2, avec diviseur 16bits,
        out   	43h,al			;mode 3, compteur binaire (Bref pour le speaker!)
        
boucle:
	mov	bx,42614		;diviseur de base
	
	cmp	scode, 17		;Touche z
	jz	pit_c2
	shr	bx,1
	cmp	scode, 18		;Touche e
	jz	pit_c2
	shr	bx,1
	cmp	scode, 19		;Touche r
	jz	pit_c2
	shr	bx,1
	cmp	scode, 20		;Touche t
	jz	pit_c2
	shr	bx,1
	cmp	scode, 21		;Touche y
	jz	pit_c2
	shr	bx,1
	cmp	scode, 22		;Touche u
	jz	pit_c2
	shr	bx,1
	cmp	scode, 23		;Touche i
	jz	pit_c2
	
	
	cmp	scode,81h		;Dès que la touche ESC est relâché on quitte
	jnz	boucle
fin:
	xor	al,al
	out	61h,al			;on éteint le haut parleur

	
	mov     eax, oldirq1		;restauration de l'Int 09h
        mov     es:[09h*4], eax
	mov	ah,4Ch
	int	21h			;code de fin

pit_c2:
	mov	al,3			;on met la valeur 3 pour
	out	61h,al			;allumer le haut parleur

	mov	al,bl
	out	42h,al			;LSB du diviseur
	mov	al,bh
	out	42h,al			;MSB du diviseur
	jmp	boucle



irq1:
	push	ax
	in	al,60h			;Lecture du Scancode
	mov	scode,al
	cmp	al,81h			;Test de la touche Esc relâchée
	jz	irqfin
	jge	break
	jmp	irqfin
	
break:
	cmp	al,0E0h			;Teste si le code E0h est présent pour les touches étendues
	jz	.e0
	cmp	al,0E1h			;Teste si le code E1h est présent (seul la touche Pause l'utilise)
	jz	.e0
	jmp	irqfin
.e0:
irqfin:
	mov	al,20h
	out	20h,al			;End Of Interrupt
	pop	ax
	iret				;Comme ret sauf pour interruption

oldirq1	dd	?			;sauvegarde de l'ancienne adresse de l'IRQ1 (irq du clavier)
scode	db 	0			;test du code 81h c'est le BreakCode de la touche Echap qui permettra de quitter le programme
code	ends
end	prog