leo.asm

小动画心 动画显示提示信息"按任意键进入"

data segment
full db 0
buff1 db '   Welcome you to run this programme!'
      db '                                     '
      db '           *****Please press any key*****$'
buff2 db '       My heart beats with yours!'
      db '             ***** Please q to quit *****$'
data ends
code segment
main proc far
     assume cs:code,ds:data
start:
     push ds
     sub ax,ax
     push ax
     mov ax,data
     mov ds,ax
     mov ah,00
     mov al,04
     int 10h
     mov ah,0bh
     mov bh,00
     mov bl,1
     int 10h
     mov ah,0bh
     mov bh,1
     mov bl,2
     int 10h
     mov dx,offset buff1               
     mov ah,09
     int 21h
     mov ah,08
     int 21h
     call clear                       
sss:
     mov di,2
     mov al,1
     mov cx,70
     mov dx,20
     mov bx,160
     mov cx,71 
     mov dx,21
ine:
     mov cx,160                    
     mov dx,89
     mov si,0
     mov bx,14
     mov cx,161                    
     mov dx,90
     mov si,0
     mov bx,12
     mov cx,162                    
     mov dx,91
     mov si,0
     mov bx,9
     mov cx,163                    
     mov dx,93
     mov si,0
     mov bx,5
delay proc near                   
     push cx
     push dx
     mov dx,25
     dl2:
     mov cx,2801
     dl3:
     loop dl3
     dec dx
     jnz dl2
     pop dx
     pop cx
ret
delay endp
clear proc near                   
     mov al,0
     mov bx,0
     mov cx,0
     mov dx,0
line:
     mov ah,0ch
     int 10h
     inc cx
     cmp cx,320
jne line
     mov cx,0
     inc dx
     cmp dx,200
jne line
ret
clear endp
cls_box proc near
     mov al,0
     mov bx,0
     mov cx,131
     mov dx,81
s_line:
     mov ah,0ch
     int 10h
     inc cx
     cmp cx,170
jne s_line
     mov cx,131
     inc dx
     cmp dx,120
jne s_line
ret
cls_box endp
code ends
     end start