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  hl, ($1002)  ; src  20
  14   ld  de, ($1004)  ; dst  20
  15   ld  bc, ($1006)  ; len  20
  16
  17   cp  a, 2         ;       7
  18   jp  z, rd_timing ;      10  77 (118)
  19
  20   ldir             ;      21/16
  21   jp  end          ;      10
  22
  23 rd_timing
  24   ld  d, h         ;       4
  25   ld  e, l         ;       4
  26   inc de           ;       6  14 (132)
  27 loop_read
  28   ld  a, (hl)      ;       7
  29   ld  a, (de)      ;       7
  30   dec bc           ;       6
  31   ld  a, b         ;       4
  32   or  a, c         ;       4
  33   jp  nz,loop_read ;      10  38
  34
  35   ld  a, ($7f08)   ; vcnt 13
  36   ld  de, ($1004)  ; dst  20
  37   ld  (de), a      ;       7
  38   jp  end          ;      10  50
  39
  40 ; ---
  41
  42   BLOCK $38-$
  43
  44 irq
  45   ret
  46
  47 ; ---
  48
  49 end
  50   xor a            ;       4
  51   ld  ($1000), a   ;      13
  52   jp  loop         ;      10  27
  53