huaxia.txt

运行结果后产生华夏字样

data segment
car  db  238         
db 2ah,238,1,4
db 2ah,238,0,7
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,1,-2
db 2ah,238,0,-6
db 2ah,238,0,-4
db 2ah,238,1,-1
db 2ah,238,0,1
db 2ah,238,0,2
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,3
db 2ah,238,1,3
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-4
db 2ah,238,0,-4
db 2ah,238,0,-2
db 2ah,238,1,2
db 2ah,238,0,4
db 2ah,238,0,4
db 2ah,238,0,4
db 2ah,238,1,0
db 2ah,238,0,-2
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-2
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-4
db 2ah,238,1,2
db 2ah,238,0,6
db 2ah,238,0,4
db 2ah,238,1,0
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-6
db 2ah,238,1,-4
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,1
db 2ah,238,0,3
db 2ah,238,1,3
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-1
db 2ah,238,0,-6
db 2ah,238,1,0
db 2ah,238,0,5
db 2ah,238,0,2
db 2ah,238,0,2
db 2ah,238,1,-1
db 2ah,238,0,-8
db 2ah,238,1,0
db 2ah,238,0,7
db 2ah,238,0,2
db 2ah,238,1,1
db 2ah,238,0,-4
db 2ah,238,0,-6



char_cnt dw ?
pointer  dw ?
line_on  db ?
col_on   db ?
data     ends
stack  segment
db  2000 dup (0)
stack  ends
code segment
assume cs:code,ds:data
main proc far
push ds
sub ax,ax
push ax
mov ax,data          
mov ds,ax
mov ah,0             
mov al,3
int 10h
mov ah,0bh           
mov bh,0
mov bl,2
int 10h
mov ah,0bh          
mov bh,01
mov bl,00
int 10h
call clear_screen    
lea di,car          
mov dh,5            
mov dl,5            
call move_shape
mov ah,01h           
int 21h
cmp al,0dh
je exit
exit:mov ah,4ch
int 21h
ret
main endp
clear_screen proc near    
push ax              
push bx
push cx
push dx
mov ah,6             
mov al,6
mov ch,0             
mov cl,0             
mov dh,250          
mov dl,200           
mov bh,7             
int 10h             
pop dx               
pop cx
pop bx
pop ax
ret                 
clear_screen endp
move_shape proc near
push ax
push bx
push cx
push dx
push di
mov ah,0fh          
int 10h
sub ch,ch            
mov cl,[di]          
inc di               
mov char_cnt,cx      
mov pointer,di
mov line_on,dh
mov col_on,dl
plot_next:
add dh,[di+2]        
add dl,[di+3]
cmp dl,150           

jb mov_crsr
call erase
pop di
pop dx
pop cx
pop bx
pop ax
ret
mov_crsr:
mov ah,2             
int 10h
mov al,[di]
mov bl,[di+1]       
push cx
mov cx,1
mov ah,09            
int 10h
pop cx
add di,4             
loop plot_next
call dly_qrtr       
call erase           
jmp short plot_next
move_shape endp
erase proc near           
mov cx,char_cnt
mov di,pointer
mov dh,line_on
mov dl,col_on
erase_next:
add dh,[di+2]
add dl,[di+3]
mov ah,2
int 10h
mov al,[di]
mov bl,0
push cx
mov cx,1
mov ah,9
int 10h
pop cx
add di,4
loop erase_next
mov cx,char_cnt
mov di,pointer
mov dh,line_on
inc col_on
mov dl,col_on
ret
erase endp
dly_qrtr proc near 
push cx
push dx
mov dx,50000
d11:mov cx,8000
d12:loop d12
dec dx
jnz d11
pop dx
pop cx
ret
dly_qrtr endp
code ends
end main