|
主题 : : 实验16。完成 [待解决] |
回复[ 2次 ]
点击[ 539次 ] | |
荣誉值:8
信誉值:0
注册日期:2010-07-12 08:47 |
好吧,我承认我没有独立完成。参考了论坛才成功。
assume cs:code
code segment
setscreen: jmp short set
table dw sub1,sub2,sub3,sub4
set:push bx
cmp ah,3
ja sret
mov bl,ah
mov bh,0
add bx,bx
call word ptr table[bx]
sret:pop bx
iret
sub1:push es
push cx
push bx
mov bx,0b800h
mov es,bx
mov bx,0
mov cx,2000
sub1s:mov byte ptr es:[bx],' '
add bx,2
loop sub1s
pop bx
pop cx
pop es
ret
sub2:push bx
push cx
push es
mov bx,0b800h
mov es,bx
mov bx,1
mov cx,2000
sub2s:and byte ptr es:[bx],11111000b
or byte ptr es:[bx],al
add bx,2
loop sub2s
pop es
pop cx
pop bx
ret
sub3:push bx
push cx
push es
mov bx,0b800h
mov es,bx
mov bx,1
mov cl,4
shl al,cl
mov cx,2000
sub3s:and byte ptr es:[bx],10001111b
or byte ptr es:[bx],al
add bx,2
loop sub3s
pop es
pop cx
pop bx
ret
sub4:push si
push di
push bx
push cx
push es
push ds
mov bx,0b800h
mov ds,bx
mov es,bx
mov si,160
mov di,0
mov cx,24
cld
sub4s:push cx
mov cx,160
rep movsb
pop cx
loop sub4s
mov cx,80
mov si,0
sub4s1:mov byte ptr es:[160*24+si],' '
add si,2
loop sub4s1
pop ds
pop es
pop cx
pop bx
pop bx
pop di
pop si
ret
setscreenend:nop
start: mov ax,cs
mov ds,ax
mov si,offset setscreen
mov ax,0
mov es,ax
mov di,200h
mov cx,offset setscreenend-offset setscreen
cld
rep movsb
mov ax,0
mov es,ax
cli
mov word ptr es:[7ch*4],0
mov word ptr es:[7ch*4+2],20h
sti
mov ax,4c00h
int 21h
code ends
end start | | |