Рисуем на BORDER

[GM BIT]

Не понял почему кратное 4 но с виду работает.

org #8000
di
ld hl,#b200; включаем im 2
ld de,#b201
ld bc,256
ld (hl),#b3
ld a,h
ld i,a
ldir
ld a,201
ld (#b3b3),a
im 2

l1 ei ;4
halt ;4

ld a,(hl) ;7 ???????? Дополняем цикл

ld hl,0 ;10 Задержим
ld de,0 ;10
ld bc,500 ;10
ldir ;21*500=10500+16 (на выход)

ld a,7 ;7 Вывод полоски
out (#fe),a ;12
xor a ;4
out (#fe),a ;12

ld a,#7f ;7 опрос батона
in a,(#fe) ;11
rra ;8
jr c,l1 ;10
im 1
ret

Итого цикл 16632 - делится на 4
Результат - устойчивое статическое изображение