libs/scr2attrhl.inc

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; IN:
   3 ;;   HL: scraddr
   4 ;; OUT:
   5 ;;   HL: attraddr
   6 ;;   AF: dead
   7   ld   a,h
   8   rrca
   9   rrca
  10   rrca
  11   and  #03
  12   or   #58
  13   ld   h,a