ZX Like Pascal

[ALKO]

Ещё по схожему принципу пытаюсь копировать заданную область виртуалки на экран
Но в итоге получаю мусор

По дефолту лайк паскаль переносит фулл-скрин.

а мне надо бы с отступом 5 знакомест сверху, и 6 знакомест снизу.

   row_win equ  5
 col_win equ  0
 height_win equ  12
width_win equ 31



PIMAGE  ld      hl,addr_virt_screen+2
                ld      de,col_win+2
                ldi
                ldi

                ld      d,(col_win)
                ld      e, (row_win)                  ; e=col_win, d=row_window
                ld      a,(height_win)
                ld      b,a

pimage_01       push    bc
                push    de

                LD      A,D                             
                RRCA
                RRCA
                RRCA
                AND     A,224
                ADD     A,E
                LD      E,A
                LD      A,D
                AND     24
                OR      64
                LD      D,A

                dup     8
                push    de
                ld      bc,(width_win)
                ld      b,0
                ldir
                pop     de
                inc     d
                edup

                pop     de

                inc     d

                pop     bc
                djnz    pimage_01

; +++++ _flag_attr_window +++++

                ld      de,(col_win)                    ; e=col_win, d=row_window
                ld      a,(height_win)
                ld      b,a

pimage_02       push    bc
                push    de

                LD      A,D                             
                RRCA
                RRCA
                RRCA
                LD      C,A
                AND     31
                OR      88
                LD      B,A
                LD      A,C
                AND     252
                OR      E
                LD      C,A

                ld      d,b
                ld      e,c
                ld      bc,(width_win)
                ld      b,0
                ldir

                pop     de

                inc     d

                pop     bc
                djnz    pimage_02



                ret