[megadrive.git] / testpico / z80_test.s80

  ORG $0

init
  di
  im  $1
  ld  sp, $2000

loop
  ld  a, ($1000)   ;      13
  or  a            ;       4
  jp  z, loop      ;      10  27 (41 worst)

  ld  bc, ($1002)  ; src  20
  ld  de, ($1004)  ; dst  20  67
  ld  a, ($1001)   ; len  13
  ld  h, a         ;       4  84 (98)
loop_cp
  ld  a, (bc)      ;       7
  ld  (de), a      ;       7
  inc bc           ;       6
  inc de           ;       6
  dec h            ;       4  30
  jp  nz, loop_cp  ;      10  40

  xor a            ;       4
  ld  ($1000), a   ;      13
  jp  loop         ;      10  27

; ---

  BLOCK $38-$

irq
  ret
Commit	Line	Data
ffd4b35c	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