scr adr to attr adr

; Адрес экрана, используемый в процедурах ниже
; Для обычного экрана- #4000. Для рисования на втором экране- #c000
; Используя другие адреса можно рассчитывать координаты и во внеэкранных буферах.
; Адрес должен быть кратен #2000 - для других адресов процедуры придется усложнять
SCREEN_ADDR EQU #4000
ATTR_ADDR EQU SCREEN_ADDR+#1800

; Входные параметры:
;  HL - адрес в экранной области
; Результат:
;  HL - адрес в области атрибутов
; Замечание:
;  используется аккумулятор

        LD A,H
        AND #18
        RRCA
        RRCA
        RRCA
        ADD A,ATTR_ADDR/#100
        LD H,A