Keyboard.asm

                         STACK SEGMENT PARA STACK 'STACK'
                          DB 1024 DUP(00H)
                         STACK ENDS
                         
                         DATA SEGMENT PARA PUBLIC 'DATA'
                          MSG1 DB 'ESTA ACTUANDO AHORA LA INTERRUPCION$'
                         DATA ENDS 
                         
                         CODE SEGMENT PARA PUBLIC 'CODE'
                          TRABAJO PROC FAR
                          
                          ASSUME CS:CODE
                          MOV AX,DATA
                          MOV DS,AX                          
                          ASSUME DS:DATA
                          
                          ;**** INICIO DEL PROGRAMA ***	
                          
                          
                          CALL INICINT
                          CALL PRINCIPAL                
                          MOV AH,4CH
						  INT 21H
						 TRABAJO ENDP  
						 
						 ;Inicio del las subrutinas
						                      
                         ;;;;;;;;;;;;;;;;;;;;
						 
						 INICINT PROC NEAR
						  MOV AL,1BH;ICW1
						  OUT 20H,AL
						  MOV AL,09H;ICW2
						  OUT 21H,AL
						  MOV AL,0DH;ICW4
						  OUT 21H,AL						   
						 RET
						 INICINT ENDP
						 
						 ;;;;;;;;;;;;;;;;;;;; 
						 
						 ATENTING3 PROC NEAR
						  PUSH DX
						  PUSH AX
						  push bx 
						  push cx
						  MOV AH,9
						  MOV DX,OFFSET MSG1
						  INT 21H					
						  MOV AL,20H
						  OUT 20H,AL
						  pop cx
						  pop bx 
						  POP AX
						  POP DX
						  IRET
						 ATENTING3 ENDP
						    
                         ;;;;;;;;;;;;;;;;;;;; 
                         
                         PRINCIPAL PROC NEAR
                          CLI 
                          MOV AH,35H
                          MOV AL,09H
                          INT 21H
                          PUSH ES
                          PUSH BX                       
                          MOV DX,OFFSET ATENTING3
                          MOV BX,SEG ATENTING3                  
                          MOV DS,BX
                          MOV AH,25H
                          MOV AL,09H
                          INT 21H
                          STI
                       N2:IN AL,60H                     
                          CMP AL,1CH
                          JNZ N2                      
                      FIN:
                          IN AL,61H
                          OR AL,80H
                          OUT 61H,AL
                          AND AL,7FH
                          OUT 61H,AL
                          POP DX
                          POP DS
                          MOV AH,25H
                          MOV AL,09H
                          INT 21H
                          RET
                         PRINCIPAL ENDP
                         CODE ENDS
                         END TRABAJO