libs/downhl.zas

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; IN:
   3 ;;   HL: scraddr
   4 ;; OUT:
   5 ;;   HL: scraddrnext -- next y line
   6 ;;   AF: dead
   7 ;  inc  h
   8 ;  ld   a,h
   9 ;  and  #07
  10 ;  ret  nz
  11 ;  ld   a,l
  12 ;  sub  #E0
  13 ;  ld   l,a
  14 ;  sbc  a,a
  15 ;  and  #F8
  16 ;  add  a,h
  17 ;  ld   h,a
  18 ;  ret
  19
  20
  21 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  22 ;; IN:
  23 ;;   HL: scraddr
  24 ;; OUT:
  25 ;;   HL: scraddrnext -- next y line
  26 ;;   AF: dead
  27   inc  h
  28   ld   a,h
  29   and  #07
  30   ret  nz
  31   ld   a,l
  32   add  a,32
  33   ld   l,a
  34   ret  c
  35   ld   a,h
  36   sub  8
  37   ld   h,a
  38   ret