复件 heart.txt

汇编语言画心的程序,为方便大家,特此整上去

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                        ;cls 
sss: 
     call text                         ;display the text 
     mov di,2 
     mov al,1                          ;draw the big box 
     mov cx,70 
     mov dx,20 
     mov bx,160 
     call box 
     mov cx,71  
     mov dx,21 
     mov bx,158 
again: 
     mov al,1 
     mov di,0 
     call box 
     call delay 
     mov al,0 
     mov di,0 
     call box 
     inc cx 
     inc dx 
     sub bx,2 
     cmp cx,94 
     jnz again 
     mov di,0                          ;draw the 2nd box 
     mov cx,95 
     mov dx,45 
     mov al,1 
     mov bx,110 
     call box 
     mov cx,96 
     mov dx,46 
     mov bx,108 
again_00: 
     mov al,1 
     mov di,0 
     call box 
     call delay 
     call delay 
     mov al,0 
     mov di,0 
     call box 
     inc cx 
     inc dx 
     sub bx,2 
     cmp cx,114 
     jnz again_00 
     mov cx,115                        ;draw the 3rd box 
     mov dx,65 
     mov al,1 
     mov bx,70 
     call box 
     mov cx,116 
     mov dx,66 
     mov bx,68 
again_01: 
     mov al,1 
     mov di,0 
     call box 
     call delay 
     call delay 
     mov al,0 
     mov di,0 
     call box 
     inc cx 
     inc dx 
     sub bx,2 
     cmp cx,129 
     jnz again_01 
     mov di,2 
     mov al,1                          ;draw the small box 
     mov cx,130 
     mov dx,80 
     mov bx,40 
     call box 
     mov di,2 
     mov al,3                          ;对角线 
     mov si,0 
     mov cx,71 
     mov dx,21 
     mov bx,59 
     call xie_line 
     mov cx,171 
     mov dx,121 
     mov bx,59 
     call xie_line 
     mov si,1 
     mov cx,71 
     mov dx,179 
     mov bx,59 
     call xie_line 
     mov cx,171 
     mov dx,79 
     mov bx,59 
     call xie_line 
     mov cx,150                       ;十字线 
     mov dx,20 
     mov si,0 
     mov bx,60 
     call draw_line 
     mov cx,150 
     mov dx,120 
     mov bx,60 
     call draw_line 
     mov cx,70 
     mov dx,100 
     mov si,1 
     mov bx,60 
     call draw_line 
     mov cx,170 
     mov dx,100 
     mov bx,60 
     call draw_line 
     mov si,1 
     mov cx,70 
     mov dx,60 
     mov bx,60 
     call mid_line 
     mov cx,170 
     mov dx,110 
     mov bx,60 
     call mid_line 
     mov si,2 
     mov cx,110 
     mov dx,20 
     mov bx,30 
     call mid_line 
     mov cx,160 
     mov dx,120 
     mov bx,30 
     call mid_line 
     mov si,3 
     mov cx,70 
     mov dx,140 
     mov bx,60 
     call mid_line 
     mov cx,170 
     mov dx,90 
     mov bx,60 
     call mid_line 
     mov si,4 
     mov cx,110 
     mov dx,180 
     mov bx,30 
     call mid_line 
     mov cx,160 
     mov dx,80 
     mov bx,30 
call mid_line 
mov di,0 
mov al,1                           ;draw the big box again 
mov cx,70 
mov dx,20 
mov bx,160 
call box 
mov di,0 
mov al,1                           ;draw the small box again 
mov cx,130 
mov dx,80 
mov bx,40 
call box 
mov di,0 
mov cx,95 
mov dx,45 
mov al,1 
mov bx,110 
call box 
mov cx,115 
mov dx,65 
mov al,1 
mov bx,70 
call box 
mov di,1                          ;fill 
call fill 
call fill_2 
call fill_3 
mov cx,149                         ;bold 
mov dx,120 
mov al,2 
mov bx,60 
mov si,0 
call draw_line 
mov cx,151 
mov dx,120 
mov al,2 
mov bx,60 
mov si,0 
call draw_line 
heart_:                            ;draw the heart 
 
call cls_box 
call heart 
mov ah,08 
int 21h 
cmp al,'q' 
jz ok 
cmp al,20h 
jz heart_ 
call clear 
jmp sss 
ok: 
 
ret 
main endp 
 
fill proc near                    ;the procedure of fill 
mov full,0 
mov al,5 
mov cx,160 
mov dx,121 
mov si,0 
mov bx,60 
fill_Y: 
 
push cx 
push dx 
push bx 
call draw_line 
pop bx 
pop dx 
pop cx 
sub bx,2 
inc cx 
add dx,2 
inc full 
cmp full,30 
jne fill_y 
ret 
fill endp 
 
fill_2 proc near 
mov full,0 
mov al,5 
mov cx,140 
mov dx,121 
mov si,0 
mov bx,60 
fill_Y1: 
 
push cx 
push dx 
push bx 
call draw_line 
pop bx 
pop dx 
pop cx 
sub bx,2 
dec cx 
add dx,2 
inc full 
cmp full,30 
jne fill_y1 
ret 
fill_2 endp 
 
fill_3 proc near 
mov al,1 
mov full,0 
mov si,0 
mov cx,140 
mov dx,121 
mov bx,60 
re_fill: 
 
push bx 
push cx 
push dx 
call draw_line 
pop dx 
pop cx 
pop bx 
inc cx 
inc full 
cmp full,9 
jne re_fill 
mov full,0 
mov cx,159 
mov dx,121 
mov bx,60 
re_fill2: 
 
push bx 
push cx 
push dx 
call draw_line 
pop dx 
pop cx 
pop bx 
dec cx 
inc full 
cmp full,9 
jne re_fill2 
ret 
fill_3 endp 
 
draw_Line proc near               ;the procedure of draw a line 
push bx 
cmp si,0 
jz V_line1 
add bx,cx 
H_line: 
 
mov ah,0ch 
int 10h 
cmp di,0 
jz aa0 
cmp di,1 
jz aa1 
call delay 
aa1: 
 
call delay 
aa0: 
 
inc cx 
cmp cx,bx 
jne H_line 
jmp exit_line 
V_line1: 
 
add bx,dx 
V_line: 
 
mov ah,0ch 
cmp di,0 
jz bb0 
cmp di,1 
jz bb1 
call delay 
bb1: 
 
call delay 
bb0: 
 
int 10h 
inc dx 
cmp dx,bx 
jne V_line 
exit_line: 
 
pop bx 
ret 
draw_Line endp 
 
xie_line proc near                ;the procedure of draw a xie_line 
add bx,cx 
cmp si,1 
jz xieline_1 
xieline_0: 
 
mov ah,0ch 
int 10h 
inc dx 
inc cx 
cmp cx,bx 
jne xieline_0 
jmp exit_xie 
xieline_1: 
 
mov ah,0ch 
int 10h 
dec dx 
inc cx 
cmp cx,bx 
jne xieline_1 
exit_xie: 
 
ret 
xie_line endp 
 
Mid_line proc near                 ;draw a xie_line 
add bx,cx 
cmp si,2 
jz midline_2 
cmp si,3 
jz midline_3 
cmp si,4 
jz midline_4 
midline_1:  
 
mov ah,0ch 
int 10h 
inc dx 
add cx,2 
cmp cx,bx 
jne midline_1 
jmp exit_lines 
midline_2: 
mov ah,0ch 
int 10h 
add dx,2 
inc cx 
cmp cx,bx 
jne midline_2 
jmp exit_lines 
midline_3: 
mov ah,0ch 
int 10h 
dec dx 
add cx,2 
cmp cx,bx 
jne midline_3 
jmp exit_lines 
midline_4: 
mov ah,0ch 
int 10h 
sub dx,2 
inc cx 
cmp cx,bx 
jne midline_4 
exit_lines: 
ret 
mid_line endp 
 
box proc near                      ;draw a box 
push cx 
push dx 
push cx 
push dx 
push cx 
push dx 
push cx 
push dx 
mov si,1 
call draw_line                    ;top 
pop dx 
pop cx 
add cx,bx 
mov si,0 
call draw_line                     ;right 
pop dx 
pop cx 
mov si,0 
call draw_line                    ;left 
pop dx 
pop cx 
mov si,1 
add dx,bx 
call draw_line                    ;bottom 
pop dx 
pop cx 
ret 
box endp 
 
space proc near                    ;display a space 
mov ah,02 
mov dl,' ' 
int 21h 
ret 
space endp 
 
return proc near                  ;回车 
mov ah,2 
mov dl,0ah 
int 21h 
mov dl,0dh 
int 21h 
ret 
return endp 
 
text proc near                    ;显示文本信息 
mov bh,0 
mov dh,0 
mov dl,0 
mov ah,2 
int 10h 
mov dx,offset buff2 
mov ah,09 
int 21h 
text endp 
 
heart proc near 
mov cx,136                         ;draw_heart 
mov dx,93 
mov si,0 
mov bx,5 
mov al,2 
call draw_line 
mov cx,137                        ;draw_heart 
mov dx,91 
mov si,0 
mov bx,9 
call draw_line 
mov cx,138                        ;draw_heart 
mov dx,90 
mov si,0 
mov bx,12 
call draw_line 
mov cx,139                        ;draw_heart 
mov dx,89 
mov si,0 
mov bx,14 
call draw_line 
mov cx,140                        ;draw_heart 
mov dx,88 
mov si,0 
mov bx,16 
call draw_line 
mov cx,141                        ;draw_heart 
mov dx,88 
mov si,0 
mov bx,17 
call draw_line 
mov cx,142                        ;draw_heart 
mov dx,87 
mov si,0 
mov bx,19 
call draw_line 
mov cx,143                        ;draw_heart 
mov dx,87 
mov si,0 
mov bx,20 
call draw_line 
mov cx,144                        ;draw_heart 
mov dx,87 
mov si,0 
mov bx,21 
call draw_line 
mov cx,145                        ;draw_heart 
mov dx,88 
mov si,0 
mov bx,21 
call draw_line 
mov cx,146                         ;draw_heart 
mov dx,88 
mov si,0 
mov bx,22 
call draw_line 
mov cx,147                        ;draw_heart 
mov dx,89 
mov si,0 
mov bx,22 
call draw_line 
mov cx,148                        ;draw_heart 
mov dx,90 
mov si,0 
mov bx,22 
call draw_line 
mov cx,149                        ;draw_heart 
mov dx,91 
mov si,0 
mov bx,22 
call draw_line 
mov cx,150                        ;1draw_heart 
mov dx,91 
mov si,0 
mov bx,22 
call draw_line 
mov cx,151                        ;draw_heart 
mov dx,90 
mov si,0 
mov bx,22 
call draw_line 
mov cx,152                        ;draw_heart 
mov dx,89 
mov si,0 
mov bx,22 
call draw_line 
mov cx,153                        ;draw_heart 
mov dx,88 
mov si,0 
mov bx,22 
call draw_line 
mov cx,154                        ;draw_heart 
mov dx,88 
mov si,0 
mov bx,21 
call draw_line 
mov cx,155                        ;draw_heart 
mov dx,87 
mov si,0 
mov bx,21 
call draw_line 
mov cx,156                        ;draw_heart 
mov dx,87 
mov si,0 
mov bx,20 
call draw_line 
mov cx,157                        ;draw_heart 
mov dx,87 
mov si,0 
mov bx,19 
call draw_line 
mov cx,158                        ;draw_heart 
mov dx,88 
mov si,0 
mov bx,17 
call draw_line 
mov cx,159                        ;draw_heart 
mov dx,88 
mov si,0 
mov bx,16 
call draw_line 
mov cx,160                        ;draw_heart 
mov dx,89 
mov si,0 
mov bx,14 
call draw_line 
mov cx,161                        ;draw_heart 
mov dx,90 
mov si,0 
mov bx,12 
call draw_line 
mov cx,162                        ;draw_heart 
mov dx,91 
mov si,0 
mov bx,9 
call draw_line 
mov cx,163                        ;draw_heart 
mov dx,93 
mov si,0 
mov bx,5 
call draw_line 
ret 
heart endp 
 
delay proc near                   ;the procedure of delay 
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                   ;clear 
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