MYSEG SEGMENT
      ASSUME CS:MYSEG

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
      MOV AX,4C00h
      INT 21h
HAUPT ENDP

MYSEG ENDS

SSEG  SEGMENT STACK
      DW 1024 DUP (?)
SSEG  ENDS

      END HAUPT