帮我写一段用汇编语言实现奇偶检验的代码

以下是用汇编语言实现奇偶检验的代码：

.DATA
input BYTE ? ;定义输入变量
parity_msg BYTE "Even parity",0 ;定义输出变量，初始值为偶校验
odd_msg BYTE "Odd parity",0 ;定义输出变量，初始值为奇校验

.CODE
main PROC
mov ah, 1 ;读取输入字符
int 21h ;调用MS-DOS中断
mov input, al ;将读取的字符保存到input变量中

mov ah, 0 ;设置校验位为偶校验
mov al, input ;将输入字符赋给al寄存器
mov bl, 0 ;清空bl寄存器
mov cl, 8 ;循环8次
checkbit:
shr al, 1 ;将al寄存器右移一位
jc addone ;如果最低位为1，跳转到addone标签处
jmp nextbit ;否则跳转到nextbit标签处
addone:
inc bl ;将bl寄存器加1
nextbit:
loop checkbit ;循环8次

cmp bl, 0 ;比较bl寄存器的值是否为0
je evenparity ;如果为0，说明是偶校验
jmp oddparity ;否则是奇校验

evenparity:
mov edx, OFFSET parity_msg ;将偶校验的输出变量赋给edx寄存器
jmp printmsg ;跳转到printmsg标签处

oddparity:
mov edx, OFFSET odd_msg ;将奇校验的输出变量赋给edx寄存器

printmsg:
mov ah, 09h ;输出字符串
int 21h ;调用MS-DOS中断

mov ah, 4ch ;结束程序
int 21h ;调用MS-DOS中断
main ENDP

END main