字符输入删除和显示。

xiaosawanjava

1. assume CS:code
   
2. 
   
3. code segment
   
4. start:
   
5.   CALL getstr
   
6. 
   
7.   MOV AX,4c00h
   
8.   INT 21h
   
9.   
   
10. 
    
11. charstack:
    
12.   JMP short charstart
    
13. table DW charpush,charpop,charshow    ;定义3个方法
    
14. top DW 0
    
15. 
    
16. charstart:
    
17.   PUSH bx
    
18.   PUSH DX
    
19.   PUSH DI
    
20.   PUSH ES
    
21. 
    
22.   CMP AH,2                ;如果大于 2 就结束，没有这个功能
    
23.   JA sret
    
24.   
    
25.   MOV BL,AH             ;功能号 加上本身 得到偏移
    
26.   MOV BH,0
    
27.   ADD bx,bx
    
28.   JMP WORD ptr table[bx];调用对应的功能
    
29. 
    
30. ;入栈
    
31. charpush:
    
32.   MOV bx,top         ;top代表栈顶
    
33.   MOV[SI][bx],AL
    
34.   INC top
    
35.   JMP sret
    
36. 
    
37. ;出栈
    
38. charpop:
    
39.   CMP top,0
    
40.   JE sret
    
41.   DEC top
    
42.   MOV bx,top
    
43.   MOV AL,[SI][bx]
    
44.   JMP sret
    
45. 
    
46. charshow:
    
47.   MOV bx,0b800h
    
48.   MOV ES,bx
    
49. 
    
50.   ;计算行
    
51.   MOV AL,160
    
52.   MOV AH,0
    
53.   MUL DH
    
54. 
    
55.   ;计算列
    
56.   MOV DI,AX
    
57.   ADD DL,DL
    
58.   MOV DH,0
    
59. 
    
60.   ;行加列
    
61.   ADD DI,DX
    
62. 
    
63.   MOV bx,0
    
64. 
    
65. charshows:
    
66.   CMP bx,top     ;字符栈是否为空
    
67.   JNE noempty
    
68.   ;MOV BYTE ptr ES:[DI],' '
    
69.   JMP sret
    
70. 
    
71. noempty:
    
72.   MOV AL,[SI][bx]
    
73.   MOV ES:[DI],AL
    
74.   MOV BYTE ptr ES:[DI+2],' '
    
75.   INC bx
    
76.   ADD DI,2
    
77.   JMP charshows
    
78. 
    
79. sret:
    
80.   POP ES
    
81.   POP DI
    
82.   POP DX
    
83.   POP bx
    
84.   RET
    
85. 
    
86. 
    
87. getstr:
    
88.   PUSH AX
    
89. 
    
90. getstrs:
    
91.   MOV AH,0
    
92.   INT 16h
    
93.   
    
94.   CMP AL,20h    ;小于20的都不是字符
    
95.   JB nochar
    
96.   
    
97.   MOV AH,0      ;字符入栈
    
98.   CALL charstack
    
99.   
    
100.   MOV AH,2      ;显示字符
     
101.   CALL charstack
     
102.   
     
103.   JMP getstrs
     
104. 
     
105. nochar:
     
106.   CMP AH,0eh   ;表示按下的是退格键
     
107.   JE backspace
     
108.   
     
109.   CMP AH,1ch
     
110.   JE ENTER1
     
111.   JMP getstrs
     
112. 
     
113. backspace:     ;删除一个，在显示
     
114.   MOV AH,1   
     
115.   CALL charstack
     
116.   MOV AH,2
     
117.   CALL charstack
     
118.   JMP getstrs
     
119. 
     
120. ENTER1:        ;如果是回车键，al给0 写入到字符栈里面
     
121.    MOV AL,0
     
122.    MOV AH,0
     
123.    CALL charstack
     
124.    MOV AH,2
     
125.    CALL charstack
     
126.    POP AX
     
127.    RET   
     
128.   
     
129. code ends
     
130. end

复制代码