学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

大大闷,帮下小弟啊,很简单的

大大闷,帮下小弟啊,很简单的

大大闷,帮下小弟啊,很简单的 怎么用键盘上的上下左右键控制光标的移动啊 read_c equ 0h key_rom equ 16h up equ 48h down equ 50h right equ 4dh left equ 4bh block equ 0dbh esc equ 1bh

video segment at 0b800h wd_buff label word v_buff db 25*80*2dup(?) video ends

pro_nam segment main proc far assume cs:pro_nam,es:video start:push ds sub ax, ax push ax

mov ax video mov es,ax

mov cx 80*25 mov bx,0

clear: mov es:[wd_buff+bx],0700h inc bx inc bx loop clear

mov ch,12d mov cl,40d

get_char: mov ah,read_c int key_rom cmp al,esc jz exit mov al,ah mov al,up jnz not_up dec ch

not_up; cmp al,down jnz not_down inc ch

not_down; cmp al,right jnz not_right inc cl

not_left; cmp al,left jnz lite_it dec cl

lite_it: mov al,160d mul ch mov bl,cl rol bl,1 mov bh,0 add bx,ax

mov al,block mov es:[v_buff+bx],al jmp get_char exit:ret main endp pro_nam ends

end start 这是书上的,可是不能运行啊,99我啊

TOP

错了,是DOS环境下的

TOP

不要重复发帖啊!

TOP

发新话题