libs/upde.zas

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