DATA 	SEGMENT
  VAR  DB 0A2H
  RESULT  DB	5 DUP(?)
DATA 	ENDS
CODE 	SEGMENT
ASSUME  CS:CODE,DS:DATA
S:	MOV 	AX,DATA
  	MOV 	DS,AX
        LEA	SI,VAR
	LEA	DI,RESULT
	MOV	AL,[SI]
	MOV	CL,04H
	SHR	AL,CL
	CALL	PROP
	MOV	AL,[SI]
        AND     AL,0FH
	CALL 	PROP
	MOV	AH,4CH
	INT	21H
PROP	PROC	NEAR
	CMP	AL,9H
	JA	TOCHAR
TONUM:	ADD	AL,30H
	JMP	MOVRES	
TOCHAR:	ADD	AL,37H
MOVRES:	MOV	[DI],AL
	INC	DI        
        RET
PROP	ENDP	
CODE 	ENDS
     	END 	S