『第
2 楼』:
下面是我在98年写的一个小程序，模仿毛毛虫病毒发作的现象，有兴趣可以粘贴下去用masm或tasm编辑成EXE文件运行一下看。
==============================
dseg segment
data1 db " The MaoMaoChong is Coming Back ! !! !!!",0ah,0dh
db " ------Writen By Y.L.N 04/18/98 ",0ah,0dh
db " GOOD LUCK For YOU ! !! !!!",0AH,0DH,"$"
data2 db 0Fh, 0Ah, 0Fh, 0Ah,0Fh, 0Ah, 0Fh, 0Ah, 0Fh, 0Ah, 0Fh, 0Ah, 0Fh, 0Ah, 0Fh, 0Ah, F7h, 0Eh, EEh, 0Ch,0ah,0dh,'$'
cury db 00 ;hang
curx db 00 ;lie
dseg ends
stack segment stack
sta dw 100 dup(?)
stack ends
code segment
assume cs:code,ds:dseg,es:dseg
main proc
start:
push ds
xor ax,ax
push ax
mov ax,dseg
mov ds,ax
mov es,ax
mov ah,02h ;set cursor
mov dh,cury
mov dl,curx
int 10h
mov dx,offset data1 ;print string
mov ah,09h
int 21h
mov dh,03h ;reset cursor
mov dl,00h
mov cury,dh
mov curx,dl
loop1:
inc dl
mov curx,dl
cmp dl,69
jng old
cmp dl,79
jng repeat
mov dl,00
mov curx,dl
inc dh
mov cury,dh
cmp dh,23
jng old
mov dh,03h
mov cury,dh
jmp eed
old: xor ax,ax ;draw MaoMAoChong
mov ax,offset data2
mov bp,ax
mov ah,13h
mov al,10b
mov bh,0
mov cx,0ah
int 10h
mov cx,077fh ;delay
delay1:
push cx
mov cx,0bfh
delay11:
loop delay11
pop cx
loop delay1
repeat:
mov dl,curx
add dl,+11
mov ah,02h ;set cursor
mov dh,cury
int 10h
xor ax,ax
mov ah,08h ;push a chart
mov bh,00h
int 10h
mov dl,curx
mov ah,02h ;set cursor
mov dh,cury
int 10h
mov ah,0eh ;clear MaoMaoChong's tial
mov bl,00000101b
mov cx,1
int 10h
mov cx ,077fh ;delay
delay2:
push cx
mov cx,0bfh
delay21:
loop delay21
pop cx
loop delay2
jmp loop1 ;loop until the world is coming to end
eed:
mov ah,00 ;show a page and exit
int 21h
main endp
code ends
end start
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
可能delay的那一段要改一下，因为我原来是在486，顶多586的机器上编辑的。现在CPU速度快，要把delay里的循环数加大，虫子才不会跑得太快，呵呵。。。
data2 后面的8个0Fh,0Ah,本来可以简单地写成 db 08h DUP(' '),这里的' '里看起来是空白的，实际是在DOS下用ALT键＋015（小键盘），ALT键＋010（小键盘）敲进去的字符。因为这样看起来象是空白的，所以还是用比较土的办法输入，不用这种简写法。
我喜欢DOS有很大一点就是可以在DOS下编程对屏幕进行精确地控制，很好玩。呵呵。。。
希望这样的有趣的小程序能激起大家对DOS的一些些兴趣。
|
