;自己独立设计的17.3完整程序,输入显示字符窜允许删除，enter键表示输入结束,报错非ASCII显示

assume cs:code,ss:charstack
charstack segment
 db 1024 dup(0)
 table dw a,b
 a db 'please input some string :',0
 b db 'Warning:can not show it',0
charstack ends

code segment
start: mov ax,charstack
       mov ss,ax
       mov sp,128
       mov di,16*160
       mov si,ss:table[0] 
       mov bx,2    ;前后景            
       call showstr
;显示请求输入字符窜,输入字符窜在请求信息后

       mov bx,7    ;默认前后景  
       mov si,0
 input:mov ah,0
       int 16h
       cmp al,20h
       jb nochar
       mov ss:[si],al
       call showstr
       jmp input
;显示输入的字符窜，对于非ASCII码字符转入nochar
 
nochar:  cmp ah,1ch
         je enter
         cmp ah,0eH
         je backspace
         push si
         mov si,ss:table[2]
         push di
         mov di,23*160
         push bx
         mov bl,4
         call showstr
         pop bx
         pop di
         pop si
         jmp input        
;nochar作用,报错无ASCII码字符并返回等待重新输入,处理backspace键和enter键

         
backspace:cmp si,0
          je input
          push bx
          mov bh,1
          call showstr
          pop bx
          mov byte ptr ss:[si],0
          dec si        
          jmp input

enter: mov ax,4c00h
       int 21h


showstr:push ds
        push es
                
        push si
        mov si,ss
        mov ds,si
        mov si,0b800h
        mov es,si
        pop si
        cmp bh,1
        je subshowstr
        cld
     ls:cmp byte ptr ds:[si],0
        je over
        movsb
        mov byte ptr es:[di],bl
        inc di
        jmp ls

subshowstr:dec di
           dec di
           mov word ptr es:[di],' '
       
over:   pop es
        pop ds
        ret
;showstr作用:显示字符，必要参数si=源地址址,di=目标地址
;                      默认参数 ds=ss,es=0b800h
;                      可选参数 bx, bl=颜色,bh=1为启动subshowstr

code ends

end start