王爽第二版汇编语言15.4案例分析

assume cs:code
stack segment
db 128 dup (0);定义堆栈区为128字节
stack ends
data segment
db 0,0;定义2字节的数据段
data ends
code segment
start:
mov ax,stack
mov ss,ax
mov sp,128;设置堆栈及SP指针

mov ax,data
mov ds,ax;设置数据段DS
mov ax,0
mov es,ax;设置DS段

push es:[9*4]
pop ds:[0]
push es:[9*4+2]
pop ds:[2];将int9中断例程保存到ds[0],ds[2]

mov word ptr es:[9*4],offset int9;word ptr为字节强制转换
mov es:[9*4+2],cs;修改int9中断向量

mov ax,0b800h
mov es,ax
mov ah,'a'
s: mov es:[160*12+40*2],ah
call delay
inc ah
cmp ah,'z'
jna s;在屏幕上打印'a'~'z'

mov ax,0
mov es,ax
push ds:[0]
pop es:[9*4]
push ds:[2]
pop es:[9*4+2];修改回原来的int9中断例程

mov ah,4ch
mov al,00h
int 21h;调用21号中断4c子程序，返回DOS。

delay:
push ax
push dx
mov dx,5000h
mov ax,00h
s1: sub ax,1h
sbb dx,0h
cmp ax,0h
jne s1
cmp dx,00h
jne s1
pop dx
pop ax
ret;延迟5000*16*FFFF个机器指令周期
int9:
push ax
push bx
push es;保存ax,bx,es

in al,60h;读取60H端口的内容，即检测键盘输入中断信息

pushf
call dword ptr ds:[0]
cmp al,01h;比较是否按下ESC键
jne int9ret
mov ax,0b800h
mov es,ax
inc byte ptr es:[160*12+40*2+1];更改字符的显示属性

int9ret:
pop es
pop bx
pop ax
iret;不是ESC键就弹出堆栈，释放站空间

code ends
end start