attr to scr

Пересчёт из атрибутной области в адресную.
Там фактически надо переместить биты из младших 0-1 в более старшие 3-4, плюс сохранить адрес. Универсальность процедуры в применимости и по отношению к теневому (#c000-#daff) экрану.

Code:
    ld  a,h     ; 4
;   and %00000011   ; 7 0  - так и хочется замаскировать эти биты, но эта операция не нужна,
    add a,a     ; 4 8  - т.к. старшие биты уйдут по дальнейшей маске %00011111, а
    add a,a     ; 4 12  - младшие биты забиты нулями по add a,a
    add a,a     ; 4 16
    xor h       ; 4 20
    and %00011111   ; 7 27 - сохраним нужные биты и обнулим ненужные 0-2
    xor h       ; 4 31 - вытащили исходный адрес расположения
    ld  h,a     ; 4 35