Курсовая работа: Робота з записами мови ассемблера

settextattr proc near ;установка атрибутов текста

;AL=атрибут

;BL=X BH=Y - начальная позиция

;CX - количество знакомест

push ax bx cx di es

mov dl,80*2

push ax

xor ax,ax

mov al,bh

mul dl

xor dx,dx

mov dl,bl

shl dx,1

add ax,dx

mov di,ax

inc di

pop ax

mov dx,0B800h

push dx

pop es

@@l1:

stosb

inc di

loop @@l1

pop es di cx bx ax

ret

settextattr endp

clrworkfield proc near ; очитска рабочей части экрана

push ax cx dx