Системное программное обеспечение. Рощин А.В. - 87 стр.

UptoLike

ВУЗ: 

МИРЭА | Москва

Составители: 

Рубрика: 

87
mov es:byte ptr [bx],0ffh
add bx,2000h
mov es:byte ptr [bx],3ch
ret
ball1 endp
ball0 proc near ; Стирание мяча
mov ax,0b800h
mov es,ax
mov ax,80
mul dh ; 80 * Y
xor bh,bh
mov bl,dl
add bx,ax ; 80 * Y + X
mov es:byte ptr [bx],0
add bx,2000h
mov es:byte ptr [bx],0
sub bx,2000h-80
mov es:byte ptr [bx],0
add bx,2000h
mov es:byte ptr [bx],0
ret
ball0 endp
lab1 proc near
mov ax,cs
mov ds,ax ; DS = CS
mov ax,0b800h
mov es,ax ; ES = B800h
xor si,si ; Обнуление регистра-источника
xor di,di ; Обнуление регистра назначения
mov cx,screen_size/2 ; Инициализация счетчика
mov al,color ; Цвет
rep stosb
ret
lab1 endp
Code ENDS
END Start 
                                   87



       mov es:byte ptr [bx],0ffh
       add bx,2000h
       mov es:byte ptr [bx],3ch
       ret
ball1 endp
ball0 proc near ; Стирание мяча
       mov ax,0b800h
       mov es,ax
       mov ax,80
       mul dh     ; 80 * Y
       xor bh,bh
       mov bl,dl
       add bx,ax ; 80 * Y + X
       mov es:byte ptr [bx],0
       add bx,2000h
       mov es:byte ptr [bx],0
       sub bx,2000h-80
       mov es:byte ptr [bx],0
       add bx,2000h
       mov es:byte ptr [bx],0
       ret
ball0 endp
lab1 proc near
       mov ax,cs
       mov ds,ax         ; DS = CS
       mov ax,0b800h
       mov es,ax         ; ES = B800h
       xor si,si         ; Обнуление регистра-источника
       xor di,di         ; Обнуление регистра назначения
       mov cx,screen_size/2 ; Инициализация счетчика
       mov al,color      ; Цвет
   rep stosb
       ret
lab1 endp
Code ENDS
       END Start

Страницы