testpico/z80_test.s80

   1   ORG $0
   2
   3 init
   4   di
   5   im  $1
   6   ld  sp, $2000
   7
   8 loop
   9   ld  a, ($1000)   ;      13
  10   or  a            ;       4
  11   jp  z, loop      ;      10  27 (41 worst)
  12
  13   ld  bc, ($1002)  ; src  20
  14   ld  de, ($1004)  ; dst  20  67
  15   ld  a, ($1001)   ; len  13
  16   ld  h, a         ;       4  84 (98)
  17 loop_cp
  18   ld  a, (bc)      ;       7
  19   ld  (de), a      ;       7
  20   inc bc           ;       6
  21   inc de           ;       6
  22   dec h            ;       4  30
  23   jp  nz, loop_cp  ;      10  40
  24
  25   xor a            ;       4
  26   ld  ($1000), a   ;      13
  27   jp  loop         ;      10  27
  28
  29 ; ---
  30
  31   BLOCK $38-$
  32
  33 irq
  34   ret
  35