使用BIOS进行键盘输入【编程：字符串的输入】

assume cs:code, ds:stack

stack segment
 dd 128 dup(0)
stack ends

code segment
start:  
  mov ax, cs
  mov ds, ax
  mov si, 0
  mov dh, 12
  mov dl, 40
  call getstr

  mov ax, 4c00h
  int 21h

;=============================
;接收字符串输入控制
;=============================
getstr:
   push ax
   
getstrs:
   mov ah, 0  
   int 16h
   cmp al, 20h  ;al中存放的是扫描码对应的ASCII码
   jb nochar  ;ASCII码小于20h, 说明不是字符
   
   ;字符入栈
   mov ah, 0  ;ah: 0号功能 字符入栈  、 al：为入栈数据
   call charstack
   ;显示栈中的字符
   mov ah, 2
   call charstack
   jmp short getstrs
     
nochar:   
   cmp ah, 0eh  ;退格键的扫描码
   je backspace 
   cmp ah, 1ch  ;Enter键的扫描码
   je enter  
   jmp short getstrs  
   
;退格键
backspace:
   mov ah, 1
   call charstack ;字符出栈
   mov ah, 2
   call charstack ;显示栈中的字符
   jmp short getstrs

;Enter键  
enter:
   mov al, 0
   mov ah, 0  ;入栈0
   call charstack
   mov ah, 2
   call charstack ;显示栈中的字符
   
   pop ax
   ret
   
   
;==========================================================
;字符串的入栈、出栈、显示
;参数说明：
;1、(ah)=功能号，
;   0表示入栈
;   1表示出栈
;   2表示显示 
;2、ds:si指向字符栈空间
;3、对于0号功能：(al)=入栈字符
; 对于1号功能：(al)=返回的字符
; 对于2号功能：(dh)、(dl)=字符串在屏幕上显示的行、列位置
;==========================================================  
charstack: 
   jmp short charstart
 table dw charpush, charpop, charshow
 top  dw 0 ;保存栈顶  注意：始终指向栈顶有效字符的上一个

charstart:
   push bx
   push dx
   push di
   push si
   push es
   
   cmp ah, 2
   ja sret  ;ja高于则转移
   mov bl, ah
   mov bh, 0
   add bx, bx ;功能号*2 = 对应的功能子程序在地址表中的偏移
   jmp word ptr table[bx]
   

;字符入栈
charpush:
   mov bx, top  ;取得栈顶
   mov [si][bx], al
   inc top   ;栈顶+1
   jmp short sret
;字符出栈
charpop:
   cmp top, 0 ;检查栈是否为空
   je sret 
   dec top  ;栈顶-1  此时指向栈顶的有效字符
   mov bx, top
   mov al, [si][bx] ;把取出的字符保存在al中
   jmp short sret

;字符显示
charshow:
   mov bx, 0b800h
   mov es, bx
   mov al, 160
   mov ah, 0
   mul dh     ;ax=al*dh=160*行数
   mov di, ax
   add dl, dl  ;dl+dl = 偏移量
   mov dh, 0
   add di, dx  ;di=(160*行数)+2*列数
   
   mov bx, 0
 charshows:
   cmp bx, top  ;bx为 存放数据空间的偏移
   jne noempty  ;栈不为空 显示
   mov byte ptr es:[di], ' ' 
   jmp short sret 
   
 noempty:
   mov al, [si][bx]
   mov es:[di], al
   mov byte ptr es:[di+2], ' ' ;如果是删除 就可以把删除的字符清空
   inc bx
   add di, 2
   jmp short charshows
;结束
sret:
   pop es
   pop si
   pop di
   pop dx
   pop bx
   ret
      
code ends
end start