zx_cy2saddr.asm
bitfixer_bitfixer/dg/z88dk/libsrc/spectrum/display/zx_cy2saddr.asm
; uchar __FASTCALL__ *zx_cy2saddr(uchar row)
; aralbrec 06.2007

PUBLIC zx_cy2saddr

; l = char Y 0..23

.zx_cy2saddr

   ld a,l
   and $18
   or $40
   ld h,a
   
   ld a,l
   rrca
   rrca
   rrca
   and $e0
   ld l,a
   
   ret
