输入身份证前十七位数字，输入18位身份证
程序运行：
代码：
datas segmentw db 7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2y db '1','0','X','9','8','7','6','5','4','3','2'ID_max_length db 18ID db 0, 19 dup(?)input db 'input 17-bit digital code=$'output db 0dh,0ah,'output ID=$'output_error db 0dh,0ah,'input error$'datas endsstacks segment stackdb 100h dup(?)stacks endscodes segmentassume cs:codes,ds:datas,ss:stacks
main proc far
start:push dsmov ax,0hpush axmov ax,datas ;初始化dsmov ds,ax;输入提示lea dx,inputmov ah,9int 21h;输入Nlea dx,ID_max_lengthmov ah,10 int 21hlea si,IDmov cl,[si] ;设置循环次数cmp cl,17 ;判断长度是否合法jnz errxor ch,ch inc si mov dx,0 s:mov al,17sub al,cl lea bx,wxlat ;获取Wimov bl,[si]cmp bl,'0' ;判断字符是否合法jb errcmp bl,'9'ja errsub bl,30h ;获取Aimul bl ;乘积add dx,ax ;累加求和inc siloop s mov ax,dxmov bl,11 ;和对11求余数div blmov al,ah lea bx,yxlat ;获得第一位字符mov ID+1+17,al ;设置输出字符串mov ID+1+18,'$'lea dx,output ;输出提示mov ah,9int 21hlea dx,ID+1 ;输出身份证号码mov ah,9int 21hjmp exiterr:lea dx,output_error ;若错误，输出错误提示mov ah,9int 21h exit:retmain endp
codes endsend main
