帮忙解决一下汇编程序

;*********************************************
data segment

mes1 db 'Great$'

mes2 db 'Good$'

mes3 db 'Medium$'

mes4 db 'Poor$'

mes5 db 'Fail$'

mes6 db 'shuruyouwu$'

data ends

;********************************************

code segment

assume cs:code;ds:data

main proc far

;********************************************

start:
mov ax,data

mov ds,ax

;********************************************
zhuanhuan:

mov bx,0

mov ah,1

int 21h

sub al,30h

jl exit

cmp al,9d

jg exit

cbw

xchg ax,bx

mov cx,10d

mul cx

;*********************************************
data segment
mes0 db 'Input Fenshu(0-100): $'
mes1 db '..Great...',0dh,0ah,'$' ;优<99
mes2 db '...Good...',0dh,0ah,'$' ;好<89
mes3 db '..Medium..',0dh,0ah,'$' ;中<79
mes4 db '...Poor...',0dh,0ah,'$' ;差<69
mes5 db '...Fail...',0dh,0ah,'$' ;失败<59
mes6 db 'shuruyouwu',0dh,0ah,'$' ;输入有误>100
Len equ $-mes6
data ends
;********************************************
code segment
assume cs:code;ds:data
main proc far
start:
mov ax,data
mov ds,ax
@1:lea dx,mes0
mov ah,9
int 21h
mov bx,0
Q0:
mov cx,3
Inp:mov ah,0
int 16h
cmp al,1bh ;Esc结束程序
jz exit
cmp al,0dh;回车结束分数输入
jz Q1
cmp al,'0'
jb Q0
cmp al,'9'
ja Q0
mov ah,0eh;显示
int 10h