;8086 program to convert a 16 bit decimal number to Hexadecimal
	.MODEL SMALL
	.STACK 100H
	.DATA
		d1 dw 999
		var1 db 0
		var2 db 0
	.CODE
		MAIN PROC


	mov ah, 1
	int 21h

	cmp al,'-'
	jne pos;

	mov var1,1;

	mov ah, 1
	int 21h

	cmp al, 39h
	jg letter



	sub al, 30h
	jmp digit
	letter:
	    sub al, 57h
	digit:

	mov bl,al
	jmp input2

	pos:

	cmp al, 39h
	jg letter5

	sub al, 30h

	jmp digit5
	letter5:
	    sub al, 57h
	digit5:
	mov bl,al

	input2:

	mov ah, 1
	int 21h

	cmp al, 39h
	jg letter2

    sub al, 30h
    jmp digit2

    letter2:
        sub al, 57h

    digit2:

    shl bx, 4
	mov ch,al
	or bl, ch

	;two digits cleared

	mov ah, 1
	int 21h

	cmp al, 39h
	jg letter3

    sub al, 30h
    jmp digit3

    letter3:
        sub al, 57h

    digit3:

    ;sub al, 30h
    shl bx, 4
	mov ch,al
	or bl, ch

	mov ah, 1
	int 21h

	cmp al, 39h
	jg letter4

    sub al, 30h
    jmp digit4

    letter4:
        sub al, 57h

    digit4:

    ;sub al, 30h
    shl bx, 4
	mov ch,al
	or bl, ch