Ensamblador - ayuda, interrupciones!!!

hola a todos!!
pues tengo que hacer que al oprimir impPnt en lugar de que se guarde la pantalla se ejecute un programa, estoy probando que solo imprima un caractér (al menos asi seria mas simple no???) pero pues ni eso hace, en realidad no hace nada, alguien me puede decir en donde anda mal mi programa???

DATASEG SEGMENT PARA 'DATA'

DIRECC LABEL WORD ;DWORD
HOFFSET DW 0
LOFFSET DW 0

DATASEG ENDS

STACKSEG SEGMENT PARA STACK 'STACK'
STACKSEG ENDS

CODESEG SEGMENT PARA 'CODE'
PRINCIPAL PROC FAR
ASSUME CS:CODESEG, DS:DATASEG, SS:STACKSEG
PUSH DS
XOR AX, AX
PUSH AX
MOV AX, DATASEG
MOV DS, AX

MOV AH, 35h
MOV AL, 05h
INT 21h
MOV WORD PTR HOFFSET, BX
MOV WORD PTR LOFFSET, ES

MOV AX, DATASEG
MOV DS, AX

LEA DX, NEWINT5
MOV AH, 25h
MOV AL, 05h
INT 21h
JMP FINE

;*********************************************************
NEWINT5 PROC NEAR

STI

PUSH AX
PUSH BX
PUSH CX
PUSH DX

MOV DL, 41h
MOV AH, 02
INT 21h

POP AX
POP BX
POP CX
POP DX
IRET
NEWINT5 ENDP
;NEWINT5 DUDP
;*********************************************************

FINE:MOV AH, 01
INT 21h

MOV DX, WORD PTR DIRECC
MOV AH, 25h
MOV AL, 05h
INT 21h

RET
PRINCIPAL ENDP
CODESEG ENDS
END PRINCIPAL