汇编实现简单动画

PDATA SEGMENT
	 X DB 10
	 Y DB 40
CHRTAB DW 5
	   DB 01,0,0,0DBH,1,0,13H,1,0
	   DB 2FH,-1,-1,5CH,0,2
CHRTAB2 DW 5
	   DB 00H,0,0,00H,1,0,00H,1,0
	   DB 00H,-1,-1,00H,0,2
PDATA ENDS
;-------------------------------------
STACKS SEGMENT PARA STACK'STACK'
    DB 100 DUP(?)
STACKS ENDS
;-------------------------------------
CODES SEGMENT
    ASSUME CS:CODES,DS:PDATA,SS:STACKS
START PROC FAR
	PUSH DS
	MOV AX,0
	PUSH AX	
    MOV AX,PDATA
    MOV DS,AX
;-------------------------------------
	STI
	MOV AL,02                    ;设置显示方式：80*25黑白
	MOV AH,0
	INT 10H
;-------------------------------------
	MOV DI,OFFSET CHRTAB
	MOV CX,[DI]
	MOV DH,X                     ;定参考点于X行Y列
	MOV DL,Y
	ADD DI,2
;-------------------------------------	
AGAIN:
NEXT:
	ADD DH,[DI+1]
	ADD DL,[DI+2]
	MOV AH,2                     ;显示字符图形
	INT 10H
	MOV AL,[DI]
	PUSH CX
	MOV CX,1
	MOV AH,10
	INT 10H
	POP CX
	ADD DI,3                      ;指向下一字符
	LOOP NEXT
	CALL SOFTDLY                  ;调用延时子程序
;-------------------------------------
	MOV DI,OFFSET CHRTAB2
	MOV CX,[DI]
	MOV DH,X
	MOV DL,Y
	ADD DI,2
NEXT2:                            ;清除原图形
	ADD DH,[DI+1]
	ADD DL,[DI+2]
	MOV AH,2
	INT 10H
	MOV AL,[DI]
	PUSH CX
	MOV CX,1
	MOV AH,10
	INT 10H
	POP CX
	ADD DI,3
	LOOP NEXT2
;-------------------------------------
	INC Y                          ;改变参考点，实现人像的移动
	MOV DI,OFFSET CHRTAB
	MOV CX,[DI]
	MOV DH,X
	MOV DL,Y
	ADD DI,2
	JMP AGAIN
	RET
START ENDP
;-------------------------------------
SOFTDLY PROC                      ;定义延时子程序
	MOV BL,100
DELAY:MOV CX,2801
WAITS:LOOP WAITS
      DEC BL
      JNZ DELAY
	  RET
SOFTDLY ENDP
;-------------------------------------
CODES ENDS
    END START