Заработало, но с адресом $4000. Меняю код на $76D0, изображения нет.
Code: Select all
set_crt3:
P_VG75: mvi A,0 ; команда формат экрана
sta 0C001H
mvi A,4DH ; 77 --> т.е 78 колонок
sta 0C000H
mvi A,25H ; 37+1 строк (т.е всего 39 строк)
sta 0C000H
mvi A,77H ; 8 линий в знакоместе, 8 подчёркив-е
sta 0C000H
mvi A,53H ; 0101.0011
sta 0C000H
mvi A,27H ; команда начало отображения
sta 0C001H
lda 0C001H; это чтобы очистить бит прерывания
WAIT: lda 0C001H
ani 20H ; ждём бит запроса на прерывание по VRTC
jz WAIT
mvi A,80H
sta 0E008H; E000 - адрес ПДП ВТ57
mvi A,0
sta 0E004H; начальный адрес экрана 4000H
mvi A,40H
sta 0E004H
mvi A,93H ; режим
sta 0E005H
mvi A,4BH ; число байтов
sta 0E005H
mvi A,0A4H
sta 0E008H
RET