判断奇数或偶数

判断奇偶数的汇编程序CODE     SEGMENT
         ASSUME   CS: CODE
START:   MOV      AH,  01H         ; 调用 DOS中断的1号子功能(键入一个字符)，
         INT      21H              ; AL←键入一位数字
         CMP   AL,  30H    ; 若输入比‘0’小的字符则重新输入
  JB   START
  CMP   AL,  39H    ; 若输入比‘9’大的字符则重新输入
  JA   START 
  CLC                       ; CF标志清0
         SHR      AL,  1           ; AL最低位移入CF
         JNC      EVN              ; 根据CF的状态，判断输入数字的奇偶性
         MOV      BL,  31H         ; 奇数，BL←1的ASCII码
         JMP      DISP
EVN:     MOV      BL,  30H         ; 偶数，BL←0的ASCII码
DISP:    MOV      AH,  02H         ; 调用DOS中断的2号子功能，输出字符
         MOV      DL,  0AH         ; 输出换行
         INT      21H
         MOV      DL,  0DH         ; 输出回车
         INT      21H
         MOV      DL,  BL          ; 输出标志字符
         INT      21H
  mov   ah, 1
  int   21h
         MOV      AH, 4CH          ; 返回DOS
         INT      21H
CODE     ENDS
         END      START