crd2pixaddr16c:
ld a,l
and #3f ; thanks for Buyan
or d
ld d,a
add hl,hl
add hl,hl
ld a,h
add a,e
srl b
rr c
ld e,c
<ret>
/* Вход:
D - маска для адреса процессорного окна (#00, #40, #80 или #C0 для окон 0,1,2 или 3, соответственно)
E - номер начальной страницы растра,
HL - Y-координата,
BC - X-координата.
*/
crd2pixaddr256c
ld de,Vid_page
ld a,l
and #1f
add a
or d
add b
ld d,a
add hl,hl
add hl,hl
add hl,hl
ld a,h
add a,e
ld e,c
ret
/* Выход:
A - номер страницы, которую нужно включить,
DE - адрес байта с пикселями,
*/
Users browsing this forum: No registered users and 1 guest