nedoPC.org

;tasm -85 -b gfx.asm gfx.bin -l
;bin2tape -t rkr gfx.bin gfx.rkr

   .ORG 0
   .NOLIST
SA      .EQU $76D0
CN   .EQU 74+2
 lxi h,$76d0
 mvi d,25+5
ylp:
 mvi b,CN
 mvi a,48
xlp:
 mov m,a
 inx h
 inr a
 cpi 58
  jnz nolp
 mvi a,48
nolp:
 dcr b
  jnz xlp
 push d
 lxi d,78-CN
 dad d
 pop d
 dcr d
  jnz ylp
 JP $
.END

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