; Печать курсора на 51 символа
; DE - координаты курсора (начало отсчета)
; A  - смещение от начала <DE>

CURS51  EX AF,AF'
        CALL RASCH
        EX AF,AF'

        CP 8
        CALL NC,incc

        PUSH HL
        ADD A,A
        LD BC,TAB51
        LD H,0
        LD L,A
        ADD HL,BC
        LD A,(HL)
        INC HL
        LD C,(HL)
        POP HL
        ADD A,L
        LD L,A
        LD B,8
djnz1   LD A,C
        XOR (HL)
        LD (HL),A
        INC H
        DJNZ djnz1
        RET 

TAB51   DB 0,%10000000
        DB 0,%00000100
        DB 1,%00100000
        DB 1,%00000001
        DB 2,%00001000
        DB 3,%01000000
        DB 3,%00000010
        DB 4,%00010000

incc    SUB 8
        EX AF,AF'
        LD A,L
        ADD A,5
        LD L,A
        EX AF,AF'
        CP 8
        RET C
        JR incc


