libs/downde.zas

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