;áâà ­­® ã ¬¥­ï çã¢á⢮ çâ® £¤¥â® ï ¢¨¤¥« íâ®â íä䥪â
.486p ;                                         Ú¿
; by Zen  from Vladivostok      ÄÒÄÄÄÒÄÄÄ¿     ÚÙÀ¿   ÚÄ¿ Ú¿    Ú¿ Ú¿   Ú¿
;Sorry its only ugly effect      º   ºÍÍÍÏÑÍÍÍÑÏÍÍÏÑÍÑÏÍÏÍÏÏÑÑÑÑÏØÑÏÏÍÑÑÏÏÑ
; i use it to generate texture       º    ÀÄÄÄÙ    ÀÄÙ      ÀÙÀÙ ÀÙ   ÀÙ  ÀÄ
; zen333@rambler.ru                                   Ú¿
; look at :                                 Ä¿       ÚÙÀ¿   Ú¿       Ú¿  Ú¿
; fan333.chat.ru                             ÔËÍÑÑÍÑÑÏÍÍÏÍÑÑÏÏÑÑÍÍÍÑÑÏÏÑÑÏÏÍÍ
; for more my releases in 256b and smaller    º ÃÙ ÀÙ     ÀÙ  ÀÙ   ÀÙ  ÀÙ
seg_a           segment public byte use16
                assume  cs:seg_a
                org     100h

rad             proc    far
start:
                les     bp,[bx]
                mov     al,13h   ;vga_init
                int     10h                ;
            push 06000h
            pop ds
        mov dx,3C9h
        mov cl,64
pal:
        xor al,al
;        shr al,cl
        out dx,al
        sub al,cl
        out dx,al
        out dx,al
        loop pal

loc_1:       ;­ ç «® ®¡é¥£® 横« 
hlt                           ;time waiting
smoot:
mov di,cx
mov al,ds:[di+1]
add al,ds:[di-320]
add al,ds:[di+320]
add al,ds:[di-1]
inc al
shr al,2
inc al
mov ds:[di],al
stosb ;to screen
loop smoot

loc_5:          in      al,60h                  ; port 60h, keybd scan or sw1
                dec     al
                jnz  short loc_1
exit:
                mov     al,3
                 int     10h
                  retn
rad             endp
seg_a           ends
                end     start