利用修改显示页面功能实现动画
; masm main.asm;; link main; STACK SEGMENT PARA STACK DB 256 DUP (0)STACK ENDSDATA SEGMENT PUBLIC point dw 0b800h COLOR DB 11011000B MASKS DB 11000000b DB 00110000B DB 00001100B DB 00000011B COUNT DW 24 COORD DB 103 DW 154 DB 103 DW 155 DB 103 DW 156 DB 103 DW 157 DB 103 DW 158 DB 103 DW 159 DB 103 DW 160 DB 103 DW 161 DB 103 DW 162 DB 103 DW 163 DB 103 DW 164 DB 103 DW 165 DB 103 DW 166 DB 102 DW 155 DB 101 DW 165 DB 101 DW 156 DB 101 DW 164 DB 100 DW 157 DB 100 DW 163 DB 99 DW 158 DB 99 DW 162 DB 98 DW 159 DB 98 DW 161 DB 97 DW 160EIGHTY DB 80DATA ENDSCODE SEGMENT PUBLIC START PROC FAR ASSUME CS:CODE, DS:DATA , SS:STACK PUSH DS MOV AX,0 PUSH AX MOV AX,DATA; MOV DS,AX MOV Ax,4 INT 10H mov dx,3d4h MOV DX,3D9H MOV AL,09H OUT DX,AL mov bx,point call chgdm MOV AX,0b8feh MOV ES,AX MOV CX,COUNT MOV BX,OFFSET COORDMAIN:MOV AL,[BX] INC BX MOV DX,[BX] ADD BX,2 CALL DRAW LOOP MAINmove:mov cx,0dh mov dx,3300h mov ah,86h int 15h add point,010h cmp point,0bb30h je exit mov bx,point call chgdm; jmp moveexit:mov cx,3dh mov dx,3300h mov ah,86h int 15h mov ax,2 int 10h ret start endp DRAW PROC NEAR SHR AL,1 JC ODD MOV DI,0 JMP SHORT COMMON ODD:MOV DI,2000HCOMMON:MUL EIGHTY ADD DI,AX MOV SI,DX SHR DX,1 SHR DX,1 ADD DI,DX AND SI,03H MOV AL,[MASKS+SI] MOV DH,COLOR AND DH,AL not al mov ah,es:[di] and ah,al OR AH,DH MOV ES:[DI],AH RET DRAW ENDP chgdm proc near ;DM segment in bx push dx push ax mov dx,3d4h mov al,12 out dx,al inc dx mov ah,bh out dx,al dec dx mov al,13 out dx,al inc dx mov al,bl out dx,al pop ax pop dx ret chgdm endpCODE ENDS END START?
