[转帖]跑动的男孩

data segment
;
;男孩的跑动图形数据
;frame 1 data
;
boyd db 8 dup(0) ;ascii 80h (upper left)
  db 8 dup(0) ;ascii 81h
  db 0,1,7,31,4 dup(63) ;ascii 82h
  db 120,252,244,240,240,240,176,176 ;ascii 83h
  db 8 dup (0) ;ascii 84h
  db 0,1,3,7,14,14,12,1 ;ascii 85h
  db 31,207,231,247,127,126,254,254 ;ascii 86h
  db 248,184,200,240,128,0,8,120 ;ascii 87h
  db 0,1,3,7,15,14,12,0 ;ascii 88h
  db 7,207,207,223,255,255,239,195 ;ascii 89h
  db 254,254,255,247,227,128,128,128 ;ascii 8ah
  db 120,240,192,128,4 dup(0) ;ascii 8bh
  db 8 dup(0) ;ascii 8ch
  db 3,3,1,1,4 dup(0) ;ascii 8dh
  db 131,135,207,254,252,240,96,0 ;ascii 8eh
  db 8 dup(0) ;ascii 8fh
;
;
;frame 2 data
;
  db 8 dup(0) ;ascii 90h
  db 8 dup(0) ;ascii 91h
  db 5 dup(0),3,15,31 ;ascii 92h
  db 3 dup (0),124,2 dup(254),252,248 ;ascii 93h
  db 8 dup(0) ;ascii 94h
  db 3 dup(0),1,3,7,6,6 ;ascii 95h
  db 63,63,31,159,207,231,255,127 ;ascii 96h
  db 248,248,216,216,252,220,228,248 ;ascii 97h
  db 8 dup(0) ;ascii 98h
  db 6,15,63,127,255,255,127,127 ;ascii 99h
  db 254,3 dup(252),253,223,143,128 ;ascii 9ah
  db 0,0,96,224,224,192,128,0 ;ascii 9bh
  db 0,1,1,5 dup(0) ;ascii 9ch
  db 255,239,207,30,127,255,252,0 ;ascii 9dh
  db 192,192,0,0,128,0,0,0 ;ascii 9eh
  db 8 dup(0) ;ascii 9fh
;
;
;frame 3 data
;
  db 8 dup(0) ;ascii a0h
  db 8 dup(0) ;ascii a1h
  db 0,0,3,7,4 dup(15) ;ascii a2h
  db 0,126,3 dup(255),252,236,236 ;ascii a3h
  db 8 dup(0) ;ascii a4h
  db 7 dup(0),1 ;ascii a5h
  db 15,7,1,1,7,63,255,255 ;ascii a6h
  db 254,238,242,252,224,128,0,0 ;ascii a7h
  db 7 dup(0),1 ;ascii a8h
  db 1,3,7,15,31,63,255,252 ;ascii a9h
  db 255,254,255,255,252,255,255,252 ;ascii aah
  db 0,0,128,128,0,128,0,0 ;ascii abh
  db 3,15,30,30,28,30,30,0 ;ascii ach
  db 192,7 dup(0) ;ascii adh
  db 62,14,6 dup(0) ;ascii aeh
  db 8 dup(0) ;ascii afh
;
;
;frame 4 data
;
  db 8 dup(0) ;ascii b0h
  db 7 dup(0),13 ;ascii b1h
  db 1,7,4 dup(15),7,199 ;ascii b2h
  db 254,255,255,253,252,236,236,254 ;ascii b3h
  db 5 dup(0),63,254,254 ;ascii b4h
  db 31,30,3 dup(0),7,31,63 ;ascii b5h
  db 227,121,63,63,254,3 dup(255) ;ascii b6h
  db 238,242,252,0,3,135,255,252 ;ascii b7h
  db 252,63,63,31,4 dup(0) ;ascii b8h
  db 4 dup(255),4 dup(0) ;ascii b9h
  db 240,224,192,240,248,63,31,15 ;ascii bah
  db 0,0,96,224,224,192,192,128 ;ascii bbh
  db 8 dup(0) ;ascii bch
  db 8 dup(0) ;ascii bdh
  db 6,7 dup(0) ;ascii beh
  db 8 dup(0) ;ascii bfh
;
;
out_char db 'Author: HSLY',0DH,0AH
  db 'From : China',0dh,0ah
  db 'My Website : http://x86asm.',0dh,0ah
  db 'My E-mail : pliceman_110@',0dh,0ah
  db 'Time : 2002 02-14',0dh,0ah
  db 'Opccupation: Student',0dh,0ah
  db 'Age : 22',0dh,0ah

 len_str equ $-out_char
  ascii db ?

 frame db ?
data ends

extra segment

 dest_buffer db 40 (?)
extra ends

code segment
main proc far

 assume cs:code,ds:data,es:extra
start:

 push ds

 sub ax,ax

 push ax

 mov ax,data

 mov ds,ax

 mov ax,extra

 mov es,ax


 mov ah,0

 mov al,4

 int 10h


 mov ah,11

 mov bh,1

 mov bl,0

 int 10h
;
mov ah,11

 mov bh,0

 mov bl,1

 int 10h
;
; 设置中断向量指向跑动男孩的图形数据
;
mov al,1fh

 mov dx,offset boyd

 mov ah,25h

 int 21h
;


;把男孩的图形画在显示屏的左上角跑动
frame1: mov ascii,80h

 mov frame,1
;
startfr: sub dx,dx
;
drawchar: mov ah,2 ;置光标位置
mov bh,0

 int 10h
;设置男孩为黄色并在蓝色背景里，并设置了男孩的高度和宽度
mov ah,9

 mov cx,1

 mov bl,03h

 mov al,ascii

 int 10h
;
inc ascii

 inc dl

 cmp dl,3

 jna drawchar
;
mov dl,0

 inc dh

 cmp dh,3

 jna drawchar
;
;重复显示男孩的图形
;
call delay ;调用跑动子程序
;
inc frame ;变换男孩显示图形
cmp frame,4

 jna startfr
;
; 调用校验键盘功能如果按任意键，就重新设置成为80×25的彩色方式并返回DOS和显示我的个人资料！
mov ah,0bh

 int 21h

 cmp al,0ffh

 jne frame1

 xor dx,dx

 xor bp,bp

 mov ax,03

 int 10h


 mov bp,offset out_char

 mov cx,len_str

 mov dh,0

 mov dl,33

 mov al,1

 mov bl,0eh

 mov ah,13h

 int 10h
;
mov ax,4c00h

 int 21h
;
;
;
delay proc

 push cx

 mov cx,10000
waste: loop waste

 pop cx

 

 ret
delay endp

main endp
code ends

 end start