; рекомендую переписАть эту процедуру с прорисовкой в озу и выводом на
; экран через rep movsd - получается намного быстрее ;)

                model   tiny,pascal
                .code
                .286
                jumps

                public  plasma

plasma          proc
                uses    ds
                arg     counter:word

                push    0a000h
                pop     ds
                mov     cx,counter
next_page:
                mov     bx,320*200-320
cycle:
                mov     dx,[bx]
                add     dl,dh
                rcr     dl,1
                mov     al,[bx+320]
                add     al,[bx-1]
                rcr     al,1
                add     al,dl
                rcr     al,1
                mov     [bx],al
                dec     bx
                jnz     cycle

                loop    next_page

                ret
plasma          endp

                end