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

PUBLIC zx_py2saddr

.zx_py2saddr

   ld a,l
   and $07
   or $40
   ld h,a
   ld a,l
   rra
   rra
   rra
   and $18
   or h
   ld h,a
   
   ld a,l
   rla
   rla
   and $e0
   ld l,a
   
   ret
