MYSEG SEGMENT
      ASSUME CS:MYSEG
      ORG 100h

HAUPT PROC
      MOV BH,5Ah
      MOV BL,BH
      MOV CL,4
      SHR BL,CL
      ADD BL,'0'
      CMP BL,'9'
      JBE LABEL1
      ADD BL,7
LABEL1:
      MOV AH,2
      MOV DL,BL
      INT 21h
      MOV BL,BH
      AND BL,0Fh
      ADD BL,'0'
      CMP BL,'9'
      JBE LABEL2
      ADD BL,7
LABEL2:
      MOV AH,2
      MOV DL,BL
      INT 21h
      INT 20h
HAUPT ENDP

MYSEG ENDS

      END HAUPT