DATA 	SEGMENT
  VAR  DB  12H,0A2H,0ABH,2CH
  COUNTER DB	$-VAR
  RESULT  DB	50 DUP(?)
DATA 	ENDS
CODE 	SEGMENT
ASSUME  CS:CODE,DS:DATA
S:	MOV 	AX,DATA
  	MOV 	DS,AX
        LEA	SI,VAR
	LEA	DI,RESULT
LOP:	MOV	AL,[SI]
        MOV     CL,04H
	SHR	AL,CL
	CALL	PROP
	MOV	AL,[SI]
        AND     AL,0FH
	CALL 	PROP
        INC     SI
        INC     DI
	DEC 	COUNTER
	JNZ	LOP
	MOV	AH,4CH
	INT	21H
PROP	PROC	NEAR
        CMP     AL,09H
	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