La détection de materiel
 
IV- Page Souris
 
Tout d'abord la procédure teste la présence d'une souris, puis informe l'utilisateur de la version contructeur, de l'IRQ pris, et enfin du type de connection utilisé par la souris?
 
 
PageSouris: 
         call ModeTexte 
         push es 
         xor ax,ax 
         mov es,ax 
         mov bx,33h*4 
         mov eax,dword ptr es:[bx] 
         pop es 
         cmp eax,0 
         je PS_PasDispo 
         xor ax,ax 
         int 33h 
         cmp ax,0ffffh 
         je PS_Dispo 
PS_PasDispo: 
         mov dx,offset SOURIS_PasDispo 
         call PutString 
         jmp EndPageSouris 
PS_Dispo: 
         mov dx,offset SOURIS_Dispo 
         call PutString 
         mov dx,offset SOURIS_Version 
         call PutString 
         mov ax,0024h 
         int 33h  
         xor ax,ax 
         mov al,bh 
         call PutWord 
         mov dl,'.' 
         call Putch 
         xor ax,ax 
         mov al,bl 
         call PutWord 
         mov dx,offset SOURIS_Irq 
         call PutString 
         xor ax,ax 
         mov al,cl 
         call PutWord 
         mov dx,offset SOURIS_Type 
         call PutString 
         add dx,cx 
         dec ch 
         mov cl,ch 
         shl cl,3 
         sub cl,ch 
         xor ch,ch 
         mov dx,offset SOURIS_TypePlus 
         add dx,cx 
         call PutString 
EndPageSouris: 
         call Page_HitAnyKey 
         ret