delay.zas

   1 ; Z80 delay routine
   2 ; by Jan Bobrowski, license GPL
   3 ; wait hl T (including call; hl>=141)
   4 ; destroys: af, bc, hl
   5
   6 delay:
   7   ld   bc,-141
   8   add  hl,bc
   9   ld   bc,-23
  10 .loop:
  11   add  hl,bc
  12   jr   c,.loop
  13   ld   a,l
  14   add  a,15
  15   jr   nc,.g0
  16   cp   8
  17   jr   c,.g1
  18   or   0
  19 .g0:
  20   inc  hl
  21 .g1:
  22   rra
  23   jr   c,.b0
  24   nop
  25 .b0:
  26   rra
  27   jr   nc,.b1
  28   or   0
  29 .b1:
  30   rra
  31   ret  nc
  32   ret