Kiểm tra kí tự vừa nhập vào là chữ thường chữ hoa hay số

Viết chương trình cho phép nhập một ký tự từ bàn phím (dùng AH = 8h, int 21h). Nếu ký tự vừa nhập thuộc [0..9], [a..z], [A..Z], thì xuất ra màn hình ký tự đó và loại của ký tự đó (số, chữ thường, chữ hoa).
- Nếu là chữ hoa thì xuất chữ thường và ngược lại.
Ví du: Nhập vào một ký tự: 5
Ký tự vừa nhập: 5 là số

Nhập vào một ký tự : f
Ký tự vừa nhập : f là chữ thường
Ký tự in hoa của f là F

Nhập vào một ký tự : D
Ký tự vừa nhập : D là chữ hoa
Ký tự thường của D là d 


.

[code]
.model small
.data
  st          db  9,     "KIEM TRA CHU HOA, CHU THUONG, SO$"
  st_1        db  10, 13,"Nhap vao 1 ki tu: $"
  st_2        db  10, 13,"Ki tu vua nhap vao $"
  st_so       db         " la so.$"
  st_thuong   db         " la chu thuong.$"
  st_hoa      db         " la chu hoa.$"
  st_kothoa   db         " khong thoa.$"
  st_kthoa    db  10, 13,"Ki tu hoa cua $"
  st_ktthuong db  10, 13,"Ki tu thuong cua $"
  st_la       db         " la $"
.code                          
  mov ax, @data
  mov ds, ax

  lea dx, st
  mov ah, 9
  int 21h
  lea dx, st_1
  mov ah, 9
  int 21h

  
  mov ah, 8h
  int 21h
  mov bl, al

  lea dx, st_2
  mov ah, 9
  int 21h

  mov dl, bl
  mov ah, 2
  int 21h      
    
  cmp bl, '0'
  jb khac
  cmp bl, '9'
  jle so
  cmp bl, 'A'
  jb khac
  cmp bl, 'Z'
  jle hoa
  cmp bl, 'a'
  jb khac
  cmp bl, 'z'
  jle thuong

so:     
  mov dx, offset st_so
  mov ah, 9
  int 21h
  jmp exit
thuong:
  mov dx, offset st_thuong
  mov ah, 9
  int 21h
  lea dx, st_kthoa
  mov ah, 9
  int 21h
  mov dl, bl
  mov ah, 2
  int 21h
  lea dx, st_la
  mov ah, 9
  int 21h
  mov dl, bl 
  sub dl, 32
  mov ah, 2
  int 21h
  jmp exit

hoa:            
  mov dx, offset st_hoa
  mov ah, 9
  int 21h

  lea dx, st_ktthuong
  mov ah, 9
  int 21h
  mov dl, bl
  mov ah, 2
  int 21h
  lea dx, st_la
  mov ah, 9
  int 21h
  mov dl, bl 
  add dl, 32
  mov ah, 2
  int 21h
  jmp exit
khac:
  mov dx, offset st_kothoa
  mov ah, 9
  int 21h
         
exit:
  mov ah, 4ch
  int 21h
end
[/code]