Старая процедура гашения/появления экрана

 

Я написал такую процедуру давно - рипнул из демо DForever/DR одну табличку и на ч/б мониторе написал эффект. Таблицы можно использовать разные, но параметры нужно изменить.

        LD A,(VAR1+1):INC A
        LD (VAR1+1),A
        CP #20+16
        JR NZ,MAIN

Один из эффектов использовался в Marinadograf 53c slideshow.