应用：字符串的输入(1702)

本文为《汇编语言程序设计》1702小节例程。点击链接…进课程主页。

任务：（见程序中注释）
程序：

;最基本的字符串输入程序，需要具备下面的功能：
;（1）在输入的同时需要显示这个字符串；
;（2）一般在输入回车符后，字符串输入结束；
;（3）能够删除已经输入的字符。

;编写一个接收字符串的输入子程序，实现上面三个基本功能。
;因为在输入的过程中需要显示，子程序的参数如下：
; (dh)、(dl)=字符串在屏幕上显示的行、列位置；
; ds:si 指向字符串的存储空间，字符串以O 为结尾符。


assume cs:code, ds:data
data segment
   db 32 dup (?)
data ends
code segment
start:
        mov ax, data
        mov ds, ax
        mov si, 0   ;设置字符串的存储空间
        mov dh, 12
        mov dl, 20  ;设置显示位置
        call getstr

return: mov ax,4c00h
        int 21h


;完整的接收字符串输入的子程序

getstr: push ax

getstrs:mov ah,0
        int 16h

        cmp al,20h
        jb nochar   ;小于20h，说明不是字符
        mov ah,0;
        call charstack;字符入栈
        mov ah,2
        call charstack;显示栈中的字符
        jmp getstrs


nochar:      ;处理非字符
        cmp ah,0eh;退格键的扫描码
        je backspace
        cmp ah,1ch;回车键的扫描码
        je enter
        jmp getstrs


backspace:   ;退格
        mov ah,1
        call charstack;字符出栈
        mov ah,2
        call charstack;显示栈中的字符
        jmp getstrs

enter:;回车
        mov al,0
        mov ah,0
        call charstack ;0入栈
        mov ah,2
        call charstack;显示栈中的字符

        pop ax
        ret ;getstr ends


;功能子程序实现
charstack:
     jmp short charstart
     table dw charpush,charpop,charshow
     top dw 0  ;栈顶
charstart:
        push bx
        push dx
        push di
        push es

        cmp ah,2
        ja sret
        mov bl,ah
        mov bh,0
        add bx,bx
        jmp word ptr table[bx]

charpush:mov bx,top
        mov [si][bx],al
        inc top
        jmp sret

charpop:cmp top,0
        je sret
        dec top
        mov bx,top
        mov al,[si][bx]
        jmp sret

charshow:mov bx,0b800h
        mov es,bx
        mov al,160
        mov ah,0
        mul dh
        mov di,ax
        add dl,dl
        mov dh,0
        add di,dx

        mov bx,0

charshows:cmp bx,top
        jne noempty
        mov byte ptr es:[di],' '
        jmp sret

noempty:mov al,[si][bx]
        mov es:[di],al
        mov byte ptr es:[di+2],' '
        inc bx
        add di,2
        jmp charshows

sret:   pop es
        pop di
        pop dx
        pop bx
        ret
code ends
end start