📄 no3.txt
字号:
jmp nextT
doneT: Popr ax,bx,cx,dx
Ret
MoveT endp
EraseT proc
Mov dh,line
Mov dl,column
mov cx,6
call view1
add dl,2
inc dh
mov cx,2
call view1
mov dl,column
inc line
mov dh,line
ret
eraseT endp
Move5 proc
Pushr ax,bx,cx,dx
inc dh
Xor ch,ch
Mov line,dh
Mov column,dl
Next5: mov cx,3
call view
add dl,2
inc dh
mov cx,1
call view
inc dh
mov cx,1
call view
Call delay
Cmp dh,lowline
Ja done5
Call Erase5
jmp next5
done5: Popr ax,bx,cx,dx
Ret
Move5 endp
Erase5 proc
Mov dh,line
Mov dl,column
mov cx,3
call view1
add dl,2
inc dh
mov cx,1
call view1
inc dh
mov cx,1
call view1
mov al,column
cmp al,endy
jb do5
dec column
do5: mov dl,column
inc line
mov dh,line
ret
erase5 endp
Move6 proc
Pushr ax,bx,cx,dx
Xor ch,ch
Mov line,dh
Mov column,dl
Next6: mov cx,6
call view
add dl,2
inc dh
mov cx,2
call view
Call delay
Cmp dh,20
Ja done6
Call Erase6
jmp next6
done6: Popr ax,bx,cx,dx
Ret
Move6 endp
Erase6 proc
Mov dh,line
Mov dl,column
mov cx,6
call view1
add dl,2
inc dh
mov cx,2
call view1
cmp column,40
ja do6
inc column
do6: mov dl,column
inc line
mov dh,line
ret
erase6 endp
Move7 proc
Pushr ax,bx,cx,dx
dec dl
Xor ch,ch
Mov line,dh
Mov column,dl
Next7: mov count,7
do7: mov cx,1
call view
inc dh
dec count
cmp count,1
ja do7
Call delay
Cmp dh,lowline
Ja done7
Call Erase7
jmp next7
done7: Popr ax,bx,cx,dx
Ret
Move7 endp
Erase7 proc
Mov dh,line
Mov dl,column
mov count,7
don7: mov cx,1
call view1
inc dh
dec count
cmp count,1
ja don7
mov dl,column
inc line
mov dh,line
ret
erase7 endp
Move8 proc
Pushr ax,bx,cx,dx
Xor ch,ch
Mov line,dh
Mov column,dl
Next8:
mov cx,1
call view
inc dh
mov cx,4
call view
inc dh
mov cx,1
call view
Call delay
Cmp dh,lowline
Ja done8
Call Erase8
jmp next8
done8: Popr ax,bx,cx,dx
Ret
Move8 endp
Erase8 proc
Mov dh,line
Mov dl,column
mov cx,1
call view1
inc dh
mov cx,4
call view1
inc dh
mov cx,1
call view1
cmp column,26
jb don8
dec column
don8: mov dl,column
inc line
mov dh,line
ret
erase8 endp
Move9 proc
Pushr ax,bx,cx,dx
Xor ch,ch
Mov line,dh
Mov column,dl
Next9:
mov cx,1
call view
inc dh
mov cx,1
call view
inc dh
mov cx,3
call view
add dl,2
inc dh
mov cx,1
call view
inc dh
mov cx,1
call view
Call delay
Cmp dh,lowline
Ja done9
Call Erase9
jmp next9
done9: Popr ax,bx,cx,dx
Ret
Move9 endp
Erase9 proc
Mov dh,line
Mov dl,column
mov cx,1
call view1
inc dh
mov cx,1
call view1
inc dh
mov cx,3
call view1
add dl,2
inc dh
mov cx,1
call view1
inc dh
mov cx,1
call view1
mov al,endy
cmp column,al
jb don9
dec column
don9: mov dl,column
inc line
mov dh,line
ret
erase9 endp
Move10 proc
Pushr ax,bx,cx,dx
Xor ch,ch
Mov line,dh
Mov column,dl
Next10:
mov cx,3
call view
inc dh
mov cx,1
call view
inc dh
mov cx,1
call view
sub dl,2
inc dh
mov cx,3
call view
Call delay
Cmp dh,lowline
Ja done10
Call Erase10
jmp next10
done10: Popr ax,bx,cx,dx
Ret
Move10 endp
Erase10 proc
Mov dh,line
Mov dl,column
mov cx,3
call view1
inc dh
mov cx,1
call view1
inc dh
mov cx,1
call view1
sub dl,2
inc dh
mov cx,3
call view1
mov al,endy
cmp column,al
ja don10
inc column
don10: mov dl,column
inc line
mov dh,line
ret
erase10 endp
Move11 proc
Pushr ax,bx,cx,dx
Xor ch,ch
Mov line,dh
Mov column,dl
Next11:
mov cx,3
call view
inc dh
mov cx,3
call view
Call delay
Cmp dh,lowline
Ja done11
Call Erase11
jmp next11
done11: Popr ax,bx,cx,dx
Ret
Move11 endp
Erase11 proc
Mov dh,line
Mov dl,column
mov cx,3
call view1
inc dh
mov cx,3
call view1
mov al,endy
cmp column,al
ja don11
inc column
don11: mov dl,column
inc line
mov dh,line
ret
erase11 endp
Move12 proc
mov dh,23
mov dl,19
mov bh,0
Pushr ax,bx,cx,dx
Xor ch,ch
Next12: cmp dh,0
jz done12
inc dl
mov cx,1
call view
call delay1
cmp dl,50
jb do12
mov dl,19
dec dh
do12: jmp next12
done12: Popr ax,bx,cx,dx
Ret
Move12 endp
view proc;显示字符及属性
mov ah,2
mov bh,0
int 10h
mov ah,09h
mov bh,0
mov al,0ah
mov bl,14h
int 10h
ret
view endp
Ret
view1 proc;显示字符及属性
mov ah,2
mov bh,0
int 10h
mov ah,09h
mov bh,0
mov al,0ah
mov bl,11h
int 10h
ret
view1 endp
;横条
delay proc; 延时
pushr ax,bx,cx,dx
mov dx,7000
go: mov cx,7000
repeat: loop repeat
dec dx
jne go
popr ax,bx,cx,dx
ret
delay endp
delay1 proc; 延时
pushr ax,bx,cx,dx
mov dx,2000
go1: mov cx,3000
repeat1: loop repeat1
dec dx
jne go1
popr ax,bx,cx,dx
ret
delay1 endp
delay2 proc; 延时
pushr ax,bx,cx,dx
mov dx,60000
go2: mov cx,60000
repeat2: loop repeat2
dec dx
jne go2
popr ax,bx,cx,dx
ret
delay2 endp
clear_screen proc;清屏幕
pushr ax,bx,cx,dx
mov bh,7
mov dx,184fh
mov ax,0600h
mov cx,0
int 10h
popr ax,bx,cx,dx
ret
clear_screen endp
codes ends
end start
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -