x, y to attr

; Адрес экрана, используемый в процедурах ниже
; Для обычного экрана- #4000. Для рисования на втором экране- #c000
; Используя другие адреса можно рассчитывать координаты и во внеэкранных буферах.
; Адрес должен быть кратен #2000 - для других адресов процедуры придется усложнять
SCREEN_ADDR EQU #4000
ATTR_ADDR EQU SCREEN_ADDR+#1800
; Расчет адреса в области атрибутов с точностью до знакоместа
; Входные параметры:
;  L - координата по оси ординат (0..23)
;  H - координата по оси абсцисс (0..31)
; Результат:
;  HL - адрес в области атрибутов
; Замечание:
;  используется аккумулятор

        LD A,H
        LD H,L
        LD L,0
        AND A
        DUP 3  ;повторить участок между DUP/EDUP 3 раза
        RR H
        RR L
        EDUP
        ADD A,L
        LD L,A
        LD A,H
        OR ATTR_ADDR/#100
        LD H,A