RESULT		EQU		30H
            ORG		00H
START:
           	MOV   	A,#1AH
           	CALL  	BINTOHEX
           	LJMP  	$
BINTOHEX:
            MOV  	DPTR,#ASCIITAB
            MOV   	B,A             	;暫存A
            SWAP 	A
            ANL   	A,#0FH         		;取高四位
            MOVC 	A,@A+DPTR           ;查ASCII表      
			MOV   	RESULT, A
			MOV   	A,B            		;恢復A
			ANL   	A,#0FH       		;取低四位
			MOVC 	A,@A+DPTR     		;查ASCII表
			MOV   	RESULT+1,A
			RET
ASCIITAB:
            DB  	'0123456789ABCDEF' 	;定義數字對應的ASCII表
           	END