汇编语言小程序记录鼠标路径.docxVIP

;TITLE DRAW--Program to draw on screen with ;cursor arrows,character write to video memory ; read_c equ 0h ;read character word key_rom equ 16h ;rom keyboard routine up equ 48h ;scan code for up arrow down equ 50h ;scan code for down arrow righetqu 4dh ;scan code for right arrow leftequ 4bh ;scan code for left arrow block equ 01h ;solid graphics character quitequ 1bh ;escape key ;************************************************************************* video segment at 0b800h ;define extra seg wd_buff labewl ord v_buff db 25*80*2 dup (?) video ends ;************************************************************************* pro_nam segment ;define code segment ; main procfar ;main part of program assume cs:pro_nam,es:video ;set up stack for return start: pushds ;save ds sub ax,ax ;set ax to zero pushax ;put it on stack ;set es to extra segment mov ax,video mov es,ax ;clear screen by writing zeros to it ;even bytes get 0(characters) ;odd bytes get 7(normalattribute) mov cx,80*25 mov bx,0 clear: mov es:[wd_buff+bx],0700h inc bx ;increase pointer inc bx ;twice loopclear ;do again ;screen pointer will be in cx register ;row nuber(0 to 24 d)in ch ;column nuber(0 to 79d)in cl ;set screen pointer to center of screen mov ch,12d ;row divide by 2 mov cl,40d ;column divide by2 ;get character from keyboard,using rom bios routine get_char: mov ah,read_c ;code for read char int key_rom ;keyboard i/o rom call cmp al,quit ;is it escape? jz exit ;yes mov al,ah ;put scan code in al cmp al,up ;is it up arrow? jnz not_up ;no dec ch ;yes,decrement row not_up: cmp al,down ;is it down arrow? jnz not_down ;no inc ch ;yes,increase row not_down: cmp al,right;is it right arrow? jnz not_righ;tno inc cl ;yes,increase column not_right: cmp al,left ;is it left arrow? jnz lite_it ;no dec cl ;yes,decrement column lite_it: mov al,160d ;bytes per row into al mul ch ;time of rows ;result in ax mov bl,cl ;of columns in bl rol bl,1 ;times 2 to get bytes mov bh,0 ;clear top part of bx add bx,ax ;