libs/uphl.inc

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; IN:
   3 ;;   HL: scraddr
   4 ;; OUT:
   5 ;;   HL: scraddrnext -- prev y line
   6 ;;   AF: dead
   7   ld   a,h
   8   dec  h
   9   and  #07
  10   ret  nz
  11   ld   a,l
  12   add  a,#E0
  13   ld   l,a
  14   sbc  a,a
  15   and  #08
  16   add  a,h
  17   ld   h,a