編譯方法 Tasm /x/t yin.asm Tlink /x/t yin.obj 
code segment 
assume cs:code, ds:code 
.386 
org 100h 
start: 
mov al,13h 
int 10h 
push 0a000h 
pop es 
push 1000h 
pop fs 
xor ax,ax 
mov dx,03c8h 
out dx,al 
inc dx 
@pal: 
out dx, al  
xchg bx, ax  ; 
out dx, al  
xchg bx, ax  ; 
out dx, al  
xchg bx, ax  ; 
inc ax  
jnz @pal 
setPixel: 
mov cx,2048 
@s: in ax,40h 
sal ax, 4 
add di,ax 
in ax,40h 
mov fs:[di],al 
loop @s 
@main: inc sd 
test sd, 8 
jz setPixel 

mov di, 0fa00h 
m1:xor ax,ax 
xor dx,dx 
mov al, fs:[di-1] 
mov dl, fs:[di+1] 
add  ax,dx 
mov dl, fs:[di+140h] 
add  ax,dx 
mov dl, fs:[di-140h] 
add  ax,dx 
sar   ax,2 
dec   ax 
mov fs:[di-140h*2],al 
mov fs:[di],al 
dec di 
jnz m1 

wt: mov dx,3dah 
in al,dx 
test al,8 
jnz wt 

push ds fs 
pop   ds 
xor si,si 
xor di,di 
mov ch,3eh 
rep movsd 
pop  ds 

in al,60h ;  
dec al 
jnz @main 

mov ax,3 
int 10h 
int 20h 
sd dw ? 
code ends 
end start