libs/uphl.zas

   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
  18 ;  ret
  19
  20
  21 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  22 ;; IN:
  23 ;;   HL: scraddr
  24 ;; OUT:
  25 ;;   HL: scraddrnext -- prev y line
  26 ;;   AF: dead
  27   ld   a,h
  28   dec  h
  29   and  #07
  30   ret  nz
  31   ld   a,l
  32   sub  32
  33   ld   l,a
  34   ret  c
  35   ld   a,h
  36   add  a,8
  37   ld   h,a
  38   ret