path: root/z80.cpu

info
	prefix z80_
	opcode_size 8
	extra_tables cb ed dded fded ddcb fdcb dd fd
	body z80_run_op
	include z80_util.c
	header z80.h
	
regs
	main 8 b c d e h l f a
	alt 8 b' c' d' e' h' l' f' a'
	i 8
	r 8
	rhigh 8
	iff1 8
	iff2 8
	imode 8
	sp 16
	ix 16
	iy 16
	pc 16
	wz 16
	nflag 8
	last_flag_result 8
	pvflag 8
	chflags 8
	zflag 8
	scratch1 16
	scratch2 16
	io_map ptrmemmap_chunk
	io_chunks 32
	io_mask 32
	
flags
	register f
	S 7 sign last_flag_result.7
	Z 6 zero zflag
	Y 5 bit-5 last_flag_result.5
	H 4 half-carry chflags.3
	P 2 parity pvflag
	V 2 overflow pvflag
	X 3 bit-3 last_flag_result.3
	N 1 none nflag
	C 0 carry chflags.7

	
z80_op_fetch
	cycles 1
	add 1 r r
	mov pc scratch1
	ocall read_8
	add 1 pc pc
	
z80_run_op
	z80_op_fetch
	dispatch scratch1
	
11001011 cb_prefix
	z80_op_fetch
	dispatch scratch1 cb

11011101 dd_prefix
	z80_op_fetch
	dispatch scratch1 dd

11101101 ed_prefix
	z80_op_fetch
	dispatch scratch1 ed

11111101 fd_prefix
	z80_op_fetch
	dispatch scratch1 fd
	
dd 11001011 ddcb_prefix
	z80_calc_index ix
	cycles 2
	mov pc scratch1
	ocall read_8
	add 1 pc pc
	dispatch scratch1 ddcb
	
fd 11001011 fdcb_prefix
	z80_calc_index iy
	cycles 2
	mov pc scratch1
	ocall read_8
	add 1 pc pc
	dispatch scratch1 fdcb
	
z80_check_cond
	arg cond 8
	local invert 8
	switch cond
	case 0
	meta istrue invert
	lnot zflag invert
	
	case 1
	meta istrue zflag
	
	case 2
	meta istrue invert
	not chflags invert
	and 0x80 invert invert
	
	case 3
	meta istrue invert
	and 0x80 chflags invert
	
	case 4
	meta istrue invert
	lnot pvflag invert
	
	case 5
	meta istrue pvflag
	
	case 6
	meta istrue invert
	not last_flag_result invert
	and 0x80 invert invert
	
	case 7
	meta istrue invert
	and 0x80 last_flag_result invert
	
	end
	
z80_fetch_hl
	lsl h 8 scratch1
	or l scratch1 scratch1
	ocall read_8
	
z80_store_hl
	lsl h 8 scratch2
	or l scratch2 scratch2
	ocall write_8

z80_fetch_immed
	mov pc scratch1
	ocall read_8
	add 1 pc pc
	
z80_fetch_immed16
	mov pc scratch1
	ocall read_8
	mov scratch1 wz
	add 1 pc pc
	mov pc scratch1
	ocall read_8
	add 1 pc pc
	lsl scratch1 8 scratch1
	or scratch1 wz wz

z80_fetch_immed_reg16
	mov pc scratch1
	ocall read_8
	mov scratch1 low
	add 1 pc pc
	mov pc scratch1
	ocall read_8
	mov scratch1 high
	add 1 pc pc
	
z80_fetch_immed_to_reg16
	mov pc scratch1
	ocall read_8
	mov scratch1 reg
	add 1 pc pc
	mov pc scratch1
	ocall read_8
	add 1 pc pc
	lsl scratch1 8 scratch1
	or scratch1 reg reg

01RRR110 ld_from_hl
	z80_fetch_hl
	mov scratch1 main.R

01DDDSSS ld_from_reg
	mov main.S main.D
	
dd 01DDD100 ld_from_ixh
	invalid D 6
	lsr ix 8 main.D
	
dd 01100SSS ld_to_ixh
	invalid S 6
	local tmp 16
	and 0xFF ix ix
	lsl main.S 8 tmp
	or tmp ix ix
	
dd 0110D10S ld_ixb_to_ixb

dd 01DDD101 ld_from_ixl
	invalid D 6
	mov ix main.D
	
dd 01101SSS ld_to_ixl
	invalid S 6
	and 0xFF00 ix ix
	or main.S ix ix
	
dd 01100101 ld_ixl_to_ixh
	local tmp 16
	lsl ix 8 tmp
	and 0xFF ix ix
	or tmp ix ix
	
dd 01101100 ld_ixh_to_ixl
	local tmp 16
	lsr ix 8 tmp
	and 0xFF00 ix ix
	or tmp ix ix
	
fd 01DDD100 ld_from_iyh
	invalid D 6
	lsr iy 8 main.D
	
fd 01100SSS ld_to_iyh
	invalid S 6
	local tmp 16
	and 0xFF iy iy
	lsl main.S 8 tmp
	or tmp iy iy
	
fd 0110D10S ld_iyb_to_iyb

fd 01DDD101 ld_from_iyl
	invalid D 6
	mov iy main.D
	
fd 01101SSS ld_to_iyl
	invalid S 6
	and 0xFF00 iy iy
	or main.S iy iy
	
fd 01100101 ld_iyl_to_iyh
	local tmp 16
	lsl iy 8 tmp
	and 0xFF iy iy
	or tmp iy iy
	
fd 01101100 ld_iyh_to_iyl
	local tmp 16
	lsr iy 8 tmp
	and 0xFF00 iy iy
	or tmp iy iy
	
z80_calc_index
	arg index 16
	mov index wz
	z80_fetch_immed
	sext 16 scratch1 scratch1
	add scratch1 wz wz

z80_fetch_index
	arg index 16
	z80_calc_index index
	mov wz scratch1
	cycles 5
	ocall read_8
	
z80_store_index
	mov wz scratch2
	ocall write_8
	
dd 01RRR110 ld_from_ix
	z80_fetch_index ix
	mov scratch1 main.R

fd 01RRR110 ld_from_iy
	z80_fetch_index iy
	mov scratch1 main.R

00RRR110 ld_immed
	z80_fetch_immed
	mov scratch1 main.R
	
dd 00100110 ld_immed_ixh
	z80_fetch_immed
	lsl scratch1 8 scratch1
	and 0xFF ix ix
	or scratch1 ix ix
	
dd 00101110 ld_immed_ixl
	z80_fetch_immed
	and 0xFF00 ix ix
	or scratch1 ix ix
	
fd 00100110 ld_immed_iyh
	z80_fetch_immed
	lsl scratch1 8 scratch1
	and 0xFF iy iy
	or scratch1 iy iy
	
fd 00101110 ld_immed_iyl
	z80_fetch_immed
	and 0xFF00 iy iy
	or scratch1 iy iy

01110RRR ld_to_hl
	mov main.R scratch1
	z80_store_hl

dd 01110RRR ld_to_ix
	z80_calc_index ix
	mov wz scratch2
	mov main.R scratch1
	ocall write_8

fd 01110RRR ld_to_iy
	z80_calc_index iy
	mov wz scratch2
	mov main.R scratch1
	ocall write_8

00110110 ld_to_hl_immed
	z80_fetch_immed
	z80_store_hl
	
dd 00110110 ld_to_ixd_immed
	z80_calc_index ix
	z80_fetch_immed
	cycles 2
	mov wz scratch2
	ocall write_8
	
fd 00110110 ld_to_iyd_immed
	z80_calc_index iy
	z80_fetch_immed
	cycles 2
	mov wz scratch2
	ocall write_8

00001010 ld_a_from_bc
	lsl b 8 wz
	or c wz wz
	mov wz scratch1
	add 1 wz wz
	ocall read_8
	mov scratch1 a

00011010 ld_a_from_de
	lsl d 8 wz
	or e wz wz
	mov wz scratch1
	add 1 wz wz
	ocall read_8
	mov scratch1 a

00111010 ld_a_from_immed
	z80_fetch_immed16
	mov wz scratch1
	add 1 wz wz
	ocall read_8
	mov scratch1 a
	
00000010 ld_a_to_bc
	local tmp 8
	lsl b 8 scratch2
	or c scratch2 scratch2
	mov a scratch1
	add c 1 tmp
	lsl a 8 wz
	or tmp wz wz
	ocall write_8
	
00010010 ld_a_to_de
	local tmp 8
	lsl d 8 scratch2
	or e scratch2 scratch2
	mov a scratch1
	add e 1 tmp
	lsl a 8 wz
	or tmp wz wz
	ocall write_8

00110010 ld_a_to_immed
	local tmp 16
	z80_fetch_immed16
	mov wz scratch2
	mov a scratch1
	add 1 wz wz
	ocall write_8
	and 0xFF wz wz
	lsl a 8 tmp
	or tmp wz wz

ed 01000111 ld_i_a
	mov a i
	cycles 1

ed 01001111 ld_r_a
	mov a r
	and 0x80 a rhigh
	cycles 1

ed 01011111 ld_a_r
	cycles 1
	and 0x7F r a
	or rhigh a a
	update_flags SZYH0XN0
	mov iff2 pvflag
	
ed 01010111 ld_a_i
	cycles 1
	mov i a
	update_flags SZYH0XN0
	mov iff2 pvflag

00000001 ld_bc_immed
	meta high b
	meta low c
	z80_fetch_immed_reg16

00010001 ld_de_immed
	meta high d
	meta low e
	z80_fetch_immed_reg16

00100001 ld_hl_immed
	meta high h
	meta low l
	z80_fetch_immed_reg16

00110001 ld_sp_immed
	meta reg sp
	z80_fetch_immed_to_reg16

dd 00100001 ld_ix_immed
	meta reg ix
	z80_fetch_immed_to_reg16

fd 00100001 ld_iy_immed
	meta reg iy
	z80_fetch_immed_to_reg16
	
z80_fetch16_from_immed
	z80_fetch_immed16
	mov wz scratch1
	ocall read_8
	mov scratch1 low
	add 1 wz wz
	mov wz scratch1
	ocall read_8
	mov scratch1 high
	add 1 wz wz

00101010 ld_hl_from_immed
	meta low l
	meta high h
	z80_fetch16_from_immed

ed 01001011 ld_bc_from_immed
	meta low c
	meta high b
	z80_fetch16_from_immed

ed 01011011 ld_de_from_immed
	meta low e
	meta high d
	z80_fetch16_from_immed

ed 01101011 ld_hl_from_immed_slow
	meta low l
	meta high h
	z80_fetch16_from_immed
	
z80_fetch_reg16_from_immed
	z80_fetch_immed16
	mov wz scratch1
	ocall read_8
	mov scratch1 reg
	add 1 wz wz
	mov wz scratch1
	ocall read_8
	lsl scratch1 8 scratch1
	or scratch1 reg reg
	add 1 wz wz

ed 01111011 ld_sp_from_immed
	meta reg sp
	z80_fetch_reg16_from_immed

dd 00101010 ld_ix_from_immed
	meta reg ix
	z80_fetch_reg16_from_immed

fd 00101010 ld_iy_from_immed
	meta reg iy
	z80_fetch_reg16_from_immed

00100010 ld_hl_to_immed
	z80_fetch_immed16
	mov wz scratch2
	mov l scratch1
	ocall write_8
	add 1 wz wz
	mov wz scratch2
	mov h scratch1
	ocall write_8
	add 1 wz wz
	
dd 00100010 ld_ix_to_immed
	z80_fetch_immed16
	mov wz scratch2
	mov ix scratch1
	ocall write_8
	add 1 wz wz
	mov wz scratch2
	lsr ix 8 scratch1
	ocall write_8
	add 1 wz wz
	
fd 00100010 ld_iy_to_immed
	z80_fetch_immed16
	mov wz scratch2
	mov iy scratch1
	ocall write_8
	add 1 wz wz
	mov wz scratch2
	lsr iy 8 scratch1
	ocall write_8
	add 1 wz wz
	
z80_regpair_to_immed
	z80_fetch_immed16
	mov wz scratch2
	mov low scratch1
	ocall write_8
	add 1 wz wz
	mov high scratch1
	mov wz scratch2
	ocall write_8
	add 1 wz wz
	
ed 01000011 ld_bc_to_immed
	meta low c
	meta high b
	z80_regpair_to_immed

ed 01010011 ld_de_to_immed
	meta low e
	meta high d
	z80_regpair_to_immed
	
ed 01100011 ld_hl_to_immed_slow
	meta low l
	meta high h
	z80_regpair_to_immed
	
ed 01110011 ld_sp_to_immed
	meta low sp
	local sph 8
	lsr sp 8 sph
	meta high sph
	z80_regpair_to_immed

11111001 ld_sp_hl
	cycles 2
	lsl h 8 sp
	or l sp sp
	
dd 11111001 ld_sp_ix
	cycles 2
	mov ix sp

fd 11111001 ld_sp_iy
	cycles 2
	mov iy sp

z80_push
	cycles 1
	sub 1 sp sp
	mov sp scratch2
	mov high scratch1
	ocall write_8
	sub 1 sp sp
	mov sp scratch2
	mov low scratch1
	ocall write_8

11000101 push_bc
	meta high b
	meta low c
	z80_push

11010101 push_de
	meta high d
	meta low e
	z80_push

11100101 push_hl
	meta high h
	meta low l
	z80_push

11110101 push_af
	meta high a
	meta low f
	z80_push
	
dd 11100101 push_ix
	local ixh 8
	lsr ix 8 ixh
	meta high ixh
	meta low ix
	z80_push

fd 11100101 push_iy
	local iyh 8
	lsr iy 8 iyh
	meta high iyh
	meta low iy
	z80_push

z80_pop
	mov sp scratch1
	ocall read_8
	add 1 sp sp
	mov scratch1 low
	mov sp scratch1
	ocall read_8
	add 1 sp sp
	mov scratch1 high

11000001 pop_bc
	meta high b
	meta low c
	z80_pop

11010001 pop_de
	meta high d
	meta low e
	z80_pop

11100001 pop_hl
	meta high h
	meta low l
	z80_pop

11110001 pop_af
	meta high a
	meta low f
	z80_pop

dd 11100001 pop_ix
	local ixh 16
	meta high ixh
	meta low ix
	z80_pop
	lsl ixh 8 ixh
	or ixh ix ix

fd 11100001 pop_iy
	local iyh 16
	meta high iyh
	meta low iy
	z80_pop
	lsl iyh 8 iyh
	or iyh iy iy

11101011 ex_de_hl
	xchg e l
	xchg d h

00001000 ex_af_af
	xchg a a'
	xchg f f'

11011001 exx
	xchg b b'
	xchg c c'
	xchg d d'
	xchg e e'
	xchg h h'
	xchg l l'

11100011 ex_sp_hl
	mov sp scratch1
	ocall read_8
	xchg l scratch1
	cycles 1
	mov sp scratch2
	ocall write_8
	add 1 sp scratch1
	ocall read_8
	xchg h scratch1
	cycles 2
	add 1 sp scratch2
	ocall write_8
	lsl h 8 wz
	or l wz wz
	
dd 11100011 ex_sp_ix
	mov sp scratch1
	ocall read_8
	mov scratch1 wz
	mov ix scratch1
	cycles 1
	mov sp scratch2
	ocall write_8
	add 1 sp scratch1
	ocall read_8
	lsl scratch1 8 scratch1
	or scratch1 wz wz
	lsr ix 8 scratch1
	cycles 2
	add 1 sp scratch2
	ocall write_8
	mov wz ix
	
fd 11100011 ex_sp_iy
	mov sp scratch1
	ocall read_8
	mov scratch1 wz
	mov iy scratch1
	cycles 1
	mov sp scratch2
	ocall write_8
	add 1 sp scratch1
	ocall read_8
	lsl scratch1 8 scratch1
	or scratch1 wz wz
	lsr iy 8 scratch1
	cycles 2
	add 1 sp scratch2
	ocall write_8
	mov wz iy

10000RRR add_reg
	add a main.R a
	update_flags SZYHVXN0C
	
dd 10000100 add_ixh
	lsr ix 8 scratch1
	add a scratch1 a
	update_flags SZYHVXN0C
	
dd 10000101 add_ixl
	and ix 0xFF scratch1
	add a scratch1 a
	update_flags SZYHVXN0C
	
fd 10000100 add_iyh
	lsr iy 8 scratch1
	add a scratch1 a
	update_flags SZYHVXN0C
	
fd 10000101 add_iyl
	and iy 0xFF scratch1
	add a scratch1 a
	update_flags SZYHVXN0C
	
10000110 add_hl
	z80_fetch_hl
	add a scratch1 a
	update_flags SZYHVXN0C
	
dd 10000110 add_ixd
	z80_fetch_index ix
	add a scratch1 a
	update_flags SZYHVXN0C
	
fd 10000110 add_iyd
	z80_fetch_index iy
	add a scratch1 a
	update_flags SZYHVXN0C

11000110 add_immed
	z80_fetch_immed
	add a scratch1 a
	update_flags SZYHVXN0C
	
z80_add16_hl
	arg src 16
	lsl h 8 hlt
	or l hlt hlt
	add 1 hlt wz
	add src hlt hlt
	update_flags YHXN0C
	mov hlt l
	lsr hlt 8 h
	
00001001 add_hl_bc
	local hlw 16
	local bcw 16
	meta hlt hlw
	lsl b 8 bcw
	or c bcw bcw
	z80_add16_hl bcw
	
00011001 add_hl_de
	local hlw 16
	local dew 16
	meta hlt hlw
	lsl d 8 dew
	or e dew dew
	z80_add16_hl dew
	
00101001 add_hl_hl
	local hlw 16
	meta hlt hlw
	z80_add16_hl hlw
	
00111001 add_hl_sp
	local hlw 16
	meta hlt hlw
	z80_add16_hl sp
	
dd 00001001 add_ix_bc
	lsl b 8 scratch1
	or c scratch1 scratch1
	add scratch1 ix ix
	update_flags YHXN0C
	
dd 00011001 add_ix_de
	lsl d 8 scratch1
	or e scratch1 scratch1
	add scratch1 ix ix
	update_flags YHXN0C
	
dd 00101001 add_ix_ix
	add ix ix ix
	update_flags YHXN0C
	
dd 00111001 add_ix_sp
	add sp ix ix
	update_flags YHXN0C
	
fd 00001001 add_iy_bc
	lsl b 8 scratch1
	or c scratch1 scratch1
	add scratch1 iy iy
	update_flags YHXN0C
	
fd 00011001 add_iy_de
	lsl d 8 scratch1
	or e scratch1 scratch1
	add scratch1 iy iy
	update_flags YHXN0C
	
fd 00101001 add_iy_iy
	add iy iy iy
	update_flags YHXN0C
	
fd 00111001 add_iy_sp
	add sp iy iy
	update_flags YHXN0C
	
10001RRR adc_reg
	adc a main.R a
	update_flags SZYHVXN0C
	
dd 10001100 adc_ixh
	lsr ix 8 scratch1
	adc a scratch1 a
	update_flags SZYHVXN0C
	
dd 10001101 adc_ixl
	and ix 0xFF scratch1
	adc a scratch1 a
	update_flags SZYHVXN0C
	
fd 10001100 adc_iyh
	lsr iy 8 scratch1
	adc a scratch1 a
	update_flags SZYHVXN0C
	
fd 10001101 adc_iyl
	and iy 0xFF scratch1
	adc a scratch1 a
	update_flags SZYHVXN0C

10001110 adc_hl
	z80_fetch_hl
	adc a scratch1 a
	update_flags SZYHVXN0C
	
dd 10001110 adc_ixd
	z80_fetch_index ix
	adc a scratch1 a
	update_flags SZYHVXN0C
	
fd 10001110 adc_iyd
	z80_fetch_index iy
	adc a scratch1 a
	update_flags SZYHVXN0C

11001110 adc_immed
	z80_fetch_immed
	adc a scratch1 a
	update_flags SZYHVXN0C
	
z80_adc16_hl
	arg src 16
	lsl h 8 hlt
	or l hlt hlt
	add 1 hlt wz
	adc src hlt hlt
	update_flags SZYHVXN0C
	mov hlt l
	lsr hlt 8 h
	
ed 01001010 adc_hl_bc
	local hlw 16
	local bcw 16
	meta hlt hlw
	lsl b 8 bcw
	or c bcw bcw
	z80_adc16_hl bcw
	
ed 01011010 adc_hl_de
	local hlw 16
	local dew 16
	meta hlt hlw
	lsl d 8 dew
	or e dew dew
	z80_adc16_hl dew
	
ed 01101010 adc_hl_hl
	local hlw 16
	meta hlt hlw
	z80_adc16_hl hlw

	
ed 01111010 adc_hl_sp
	local hlw 16
	meta hlt hlw
	z80_adc16_hl sp

10010RRR sub_reg
	sub main.R a a
	update_flags SZYHVXN1C
	
dd 10010100 sub_ixh
	lsr ix 8 scratch1
	sub scratch1 a a
	update_flags SZYHVXN1C
	
dd 10010101 sub_ixl
	and ix 0xFF scratch1
	sub scratch1 a a
	update_flags SZYHVXN1C
	
fd 10010100 sub_iyh
	lsr iy 8 scratch1
	sub scratch1 a a
	update_flags SZYHVXN1C
	
fd 10010101 sub_iyl
	and iy 0xFF scratch1
	sub scratch1 a a
	update_flags SZYHVXN1C
	
10010110 sub_hl
	z80_fetch_hl
	sub scratch1 a a
	update_flags SZYHVXN1C
	
dd 10010110 sub_ixd
	z80_fetch_index ix
	sub scratch1 a a
	update_flags SZYHVXN1C

fd 10010110 sub_iyd
	z80_fetch_index iy
	sub scratch1 a a
	update_flags SZYHVXN1C

11010110 sub_immed
	z80_fetch_immed
	sub scratch1 a a
	update_flags SZYHVXN1C

10011RRR sbc_reg
	sbc main.R a a
	update_flags SZYHVXN1C
	
dd 10011100 sbc_ixh
	lsr ix 8 scratch1
	sbc scratch1 a a
	update_flags SZYHVXN1C
	
dd 10011101 sbc_ixl
	and ix 0xFF scratch1
	sbc scratch1 a a
	update_flags SZYHVXN1C
	
fd 10011100 sbc_iyh
	lsr iy 8 scratch1
	sbc scratch1 a a
	update_flags SZYHVXN1C
	
fd 10011101 sbc_iyl
	and iy 0xFF scratch1
	sbc scratch1 a a
	update_flags SZYHVXN1C
	
	
10011110 sbc_hl
	z80_fetch_hl
	sbc scratch1 a a
	update_flags SZYHVXN1C
	
dd 10011110 sbc_ixd
	z80_fetch_index ix
	sbc scratch1 a a
	update_flags SZYHVXN1C

fd 10011110 sbc_iyd
	z80_fetch_index iy
	sbc scratch1 a a
	update_flags SZYHVXN1C

11011110 sbc_immed
	z80_fetch_immed
	sbc scratch1 a a
	update_flags SZYHVXN1C
	
z80_sbc16_hl
	arg src 16
	lsl h 8 hlt
	or l hlt hlt
	add 1 hlt wz
	sbc src hlt hlt
	update_flags SZYHVXN1C
	mov hlt l
	lsr hlt 8 h
	
ed 01000010 sbc_hl_bc
	local hlw 16
	local bcw 16
	meta hlt hlw
	lsl b 8 bcw
	or c bcw bcw
	z80_sbc16_hl bcw
	
ed 01010010 sbc_hl_de
	local hlw 16
	local dew 16
	meta hlt hlw
	lsl d 8 dew
	or e dew dew
	z80_sbc16_hl dew
	
ed 01100010 sbc_hl_hl
	local hlw 16
	meta hlt hlw
	z80_sbc16_hl hlw

	
ed 01110010 sbc_hl_sp
	local hlw 16
	meta hlt hlw
	z80_sbc16_hl sp

10100RRR and_reg
	and a main.R a
	update_flags SZYH1PXN0C0
	
dd 10100100 and_ixh
	lsr ix 8 scratch1
	and scratch1 a a
	update_flags SZYH1PXN0C0
	
dd 10100101 and_ixl
	and ix a a
	update_flags SZYH1PXN0C0
	
fd 10100100 and_iyh
	lsr iy 8 scratch1
	and scratch1 a a
	update_flags SZYH1PXN0C0
	
fd 10100101 and_iyl
	and iy a a
	update_flags SZYH1PXN0C0
	
10100110 and_hl
	z80_fetch_hl
	and a scratch1 a
	update_flags SZYH1PXN0C0
	
dd 10100110 and_ixd
	z80_fetch_index ix
	and a scratch1 a
	update_flags SZYH1PXN0C0
	
fd 10100110 and_iyd
	z80_fetch_index iy
	and a scratch1 a
	update_flags SZYH1PXN0C0

11100110 and_immed
	z80_fetch_immed
	and a scratch1 a
	update_flags SZYH1PXN0C0
	
10110RRR or_reg
	or a main.R a
	update_flags SZYH0PXN0C0
	
dd 10110100 or_ixh
	lsr ix 8 scratch1
	or scratch1 a a
	update_flags SZYH0PXN0C0
	
dd 10110101 or_ixl
	or ix a a
	update_flags SZYH0PXN0C0
	
fd 10110100 or_iyh
	lsr iy 8 scratch1
	or scratch1 a a
	update_flags SZYH0PXN0C0
	
fd 10110101 or_iyl
	or iy a a
	update_flags SZYH0PXN0C0
	
10110110 or_hl
	z80_fetch_hl
	or a scratch1 a
	update_flags SZYH0PXN0C0
	
dd 10110110 or_ixd
	z80_fetch_index ix
	or a scratch1 a
	update_flags SZYH0PXN0C0
	
fd 10110110 or_iyd
	z80_fetch_index iy
	or a scratch1 a
	update_flags SZYH0PXN0C0

11110110 or_immed
	z80_fetch_immed
	or a scratch1 a
	update_flags SZYH0PXN0C0
	
10101RRR xor_reg
	xor a main.R a
	update_flags SZYH0PXN0C0
	
dd 10101100 xor_ixh
	lsr ix 8 scratch1
	xor scratch1 a a
	update_flags SZYH0PXN0C0
	
dd 10101101 xor_ixl
	xor ix a a
	update_flags SZYH0PXN0C0
	
fd 10101100 xor_iyh
	lsr iy 8 scratch1
	xor scratch1 a a
	update_flags SZYH0PXN0C0
	
fd 10101101 xor_iyl
	xor iy a a
	update_flags SZYH0PXN0C0
	
10101110 xor_hl
	z80_fetch_hl
	xor a scratch1 a
	update_flags SZYH0PXN0C0
	
dd 10101110 xor_ixd
	z80_fetch_index ix
	xor a scratch1 a
	update_flags SZYH0PXN0C0
	
fd 10101110 xor_iyd
	z80_fetch_index iy
	xor a scratch1 a
	update_flags SZYH0PXN0C0

11101110 xor_immed
	z80_fetch_immed
	xor a scratch1 a
	update_flags SZYH0PXN0C0

10111RRR cp_reg
	mov main.R last_flag_result
	cmp main.R a
	update_flags SZHVN1C
	
dd 10111100 cp_ixh
	local tmp 8
	lsr ix 8 tmp
	mov tmp last_flag_result
	cmp last_flag_result a
	update_flags SZHVN1C
	
dd 10111101 cp_ixl
	local tmp 8
	mov ix tmp
	mov ix last_flag_result
	cmp tmp a
	update_flags SZHVN1C
	
fd 10111100 cp_iyh
	local tmp 8
	lsr iy 8 tmp
	mov tmp last_flag_result
	cmp tmp a
	update_flags SZHVN1C
	
fd 10111101 cp_iyl
	local tmp 8
	mov iy tmp
	mov iy last_flag_result
	cmp tmp a
	update_flags SZHVN1C
	
10111110 cp_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	mov scratch1 last_flag_result
	cmp tmp a
	update_flags SZHVN1C
	
dd 10111110 cp_ixd
	local tmp 8
	z80_fetch_index ix
	mov scratch1 tmp
	mov scratch1 last_flag_result
	cmp tmp a
	update_flags SZHVN1C
	
fd 10111110 cp_iyd
	local tmp 8
	z80_fetch_index iy
	mov scratch1 tmp
	mov scratch1 last_flag_result
	cmp tmp a
	update_flags SZHVN1C

11111110 cp_immed
	local tmp 8
	z80_fetch_immed
	mov scratch1 tmp
	mov scratch1 last_flag_result
	cmp tmp a
	update_flags SZHVN1C

00RRR100 inc_reg
	add 1 main.R main.R
	update_flags SZYHVXN0
	
dd 00100100 inc_ixh
	add 0x100 ix ix
	update_flags SZYHVXN0
	
dd 00101100 inc_ixl
	local tmp 8
	mov ix tmp
	add 1 tmp tmp
	update_flags SZYHVXN0
	and 0xFF00 ix ix
	or tmp ix ix
	
fd 00100100 inc_iyh
	add 0x100 iy iy
	update_flags SZYHVXN0
	
fd 00101100 inc_iyl
	local tmp 8
	mov iy tmp
	add 1 tmp tmp
	update_flags SZYHVXN0
	and 0xFF00 iy iy
	or tmp iy iy
	
00110100 inc_hl
	local tmp 8
	z80_fetch_hl
	#TODO: Either make DSL compiler smart enough to optimize these unnecessary moves out
	#or add some syntax to force a certain size on an operation so they are unnecessary
	mov scratch1 tmp
	add 1 tmp tmp
	update_flags SZYHVXN0
	mov tmp scratch1
	z80_store_hl
	
dd 00110100 inc_ixd
	local tmp 8
	z80_fetch_index ix
	#TODO: Either make DSL compiler smart enough to optimize these unnecessary moves out
	#or add some syntax to force a certain size on an operation so they are unnecessary
	mov scratch1 tmp
	add 1 tmp tmp
	update_flags SZYHVXN0
	mov tmp scratch1
	cycles 1
	z80_store_index

fd 00110100 inc_iyd
	local tmp 8
	z80_fetch_index iy
	#TODO: Either make DSL compiler smart enough to optimize these unnecessary moves out
	#or add some syntax to force a certain size on an operation so they are unnecessary
	mov scratch1 tmp
	add 1 tmp tmp
	update_flags SZYHVXN0
	mov tmp scratch1
	cycles 1
	z80_store_index
	
z80_inc_pair
	arg high 8
	arg low 8
	local word 16
	lsl high 8 word
	or low word word
	add 1 word word
	mov word low
	lsr word 8 high
	
00000011 inc_bc
	z80_inc_pair b c
	
00010011 inc_de
	z80_inc_pair d e
	
00100011 inc16_hl
	z80_inc_pair h l

00110011 inc_sp
	add 1 sp sp
	
dd 00100011 inc_ix
	add 1 ix ix

fd 00100011 inc_iy
	add 1 iy iy

00RRR101 dec_reg
	sub 1 main.R main.R
	update_flags SZYHVXN1
	
dd 00100101 dec_ixh
	sub 0x100 ix ix
	update_flags SZYHVXN1
	
dd 00101101 dec_ixl
	local tmp 8
	mov ix tmp
	sub 1 tmp tmp
	update_flags SZYHVXN1
	and 0xFF00 ix ix
	or tmp ix ix
	
fd 00100101 dec_iyh
	sub 0x100 iy iy
	update_flags SZYHVXN1
	
fd 00101101 dec_iyl
	local tmp 8
	mov iy tmp
	sub 1 tmp tmp
	update_flags SZYHVXN1
	and 0xFF00 iy iy
	or tmp iy iy
	
00110101 dec_hl
	z80_fetch_hl
	#TODO: fix size
	sub 1 scratch1 scratch1
	update_flags SZYHVXN1
	z80_store_hl
	
dd 00110101 dec_ixd
	local tmp 8
	z80_fetch_index ix
	#TODO: Either make DSL compiler smart enough to optimize these unnecessary moves out
	#or add some syntax to force a certain size on an operation so they are unnecessary
	mov scratch1 tmp
	sub 1 tmp tmp
	update_flags SZYHVXN1
	mov tmp scratch1
	cycles 1
	z80_store_index

fd 00110101 dec_iyd
	local tmp 8
	z80_fetch_index iy
	#TODO: Either make DSL compiler smart enough to optimize these unnecessary moves out
	#or add some syntax to force a certain size on an operation so they are unnecessary
	mov scratch1 tmp
	sub 1 tmp tmp
	update_flags SZYHVXN1
	mov tmp scratch1
	cycles 1
	z80_store_index
	
z80_dec_pair
	arg high 8
	arg low 8
	local word 16
	lsl high 8 word
	or low word word
	sub 1 word word
	mov word low
	lsr word 8 high
	
00001011 dec_bc
	z80_dec_pair b c
	
00011011 dec_de
	z80_dec_pair d e
	
00101011 dec16_hl
	z80_dec_pair h l

00111011 dec_sp
	sub 1 sp sp
	
dd 00101011 dec_ix
	sub 1 ix ix

fd 00101011 dec_iy
	sub 1 iy iy

00101111 cpl
	not a a
	update_flags YH1XN1

ed 01DDD100 neg
	neg a a
	update_flags SZYHVXN1C

00111111 ccf
	local tmp 8
	and 0x80 chflags chflags
	lsr chflags 4 tmp
	or tmp chflags chflags
	xor 0x80 chflags chflags
	update_flags N0

00110111 scf
	update_flags H0N0C1

00000000 nop

01110110 halt
	sub 1 pc pc

11110011 di
	mov 0 iff1
	mov 0 iff2
	#TODO: update interrupt/sync cycle

11111011 ei
	mov 1 iff1
	mov 1 iff2
	#TODO: update interrupt/sync cycle

ed 01D00110 im0
	mov 0 imode

ed 01D10110 im1
	mov 1 imode

ed 01D11110 im2
	mov 2 imode
	
ed 01D01110 im3
	mov 3 imode
	
11000011 jp
	z80_fetch_immed16
	mov wz pc
	
11101001 jp_hl
	lsl h 8 pc
	or l pc pc
	
dd 11101001 jp_ix
	mov ix pc
	
fd 11101001 jp_iy
	mov iy pc
	
11CCC010 jp_cc
	z80_check_cond C
	z80_fetch_immed16
	if istrue
	
	mov wz pc
	
	end
	
00011000 jr
	z80_fetch_immed
	#TODO: determine if this updates wz
	sext 16 scratch1 scratch1
	add scratch1 pc pc
	cycles 5
	
001CC000 jr_cc
	z80_check_cond C
	z80_fetch_immed
	
	if istrue
	
	sext 16 scratch1 scratch1
	add scratch1 pc pc
	cycles 5
	
	end
	
00010000 djnz
	cycles 1
	z80_fetch_immed
	sub 1 b b
	
	if b
	
	sext 16 scratch1 scratch1
	add scratch1 pc pc
	cycles 5
	
	end
	

11001101 call_uncond
	z80_fetch_immed16
	local pch 8
	lsr pc 8 pch
	meta high pch
	meta low pc
	z80_push
	mov wz pc
	
11CCC100 call_cond
	local pch 8
	z80_fetch_immed16
	z80_check_cond C
	
	if istrue
	
	lsr pc 8 pch
	meta high pch
	meta low pc
	z80_push
	mov wz pc
	
	end
	
11TTT111 rst
	local pch 8
	lsr pc 8 pch
	meta high pch
	meta low pc
	z80_push
	lsl T 3 scratch1
	mov scratch1 pc

11001001 ret
	local pch 16
	cycles 1
	meta high pch
	meta low pc
	z80_pop
	lsl pch 8 pch
	or pch pc pc
	
11CCC000 ret_cond
	local pch 16
	cycles 1
	z80_check_cond C
	if istrue
	
	meta high pch
	meta low pc
	z80_pop
	lsl pch 8 pch
	or pch pc pc
	
	end

11011011 in_abs
	z80_fetch_immed
	ocall io_read8
	mov scratch1 a
	
ed 01RRR000 in_bc
	lsl b 8 scratch1
	or c scratch1 scratch1
	ocall io_read8
	mov scratch1 main.R
	
11010011 out_abs
	z80_fetch_immed
	mov scratch1 scratch2
	mov a scratch1
	ocall io_write8
	
ed 01RRR001 out_bc
	lsl b 8 scratch2
	or c scratch2 scratch2
	mov main.R scratch1
	ocall io_write8
	
00000111 rlca
	rol a 1 a
	update_flags YH0XN0C
	
00010111 rla
	rlc a 1 a
	update_flags YH0XN0C
	
00001111 rrca
	ror a 1 a
	update_flags YH0XN0C

00011111 rra
	rrc a 1 a
	update_flags YH0XN0C
	
cb 00000RRR rlc
	rol main.R 1 main.R
	update_flags SZYH0PXN0C
	
cb 00000110 rlc_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	rol tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_hl
	
z80_rlc_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	rol tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_index
	
ddcb 00000110 rlc_ixd
	local tmp 8
	z80_rlc_index tmp
	
ddcb 00000RRR rlc_ixd_reg
	z80_rlc_index main.R
	
fdcb 00000110 rlc_iyd
	local tmp 8
	z80_rlc_index tmp
	
fdcb 00000RRR rlc_iyd_reg
	z80_rlc_index main.R
	
cb 00010RRR rl
	rlc main.R 1 main.R
	update_flags SZYH0PXN0C

cb 00010110 rl_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	rlc tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_hl
	
z80_rl_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	rlc tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_index
	
ddcb 00010110 rl_ixd
	local tmp 8
	z80_rl_index tmp
	
fdcb 00010110 rl_iyd
	local tmp 8
	z80_rl_index tmp
	
	
ddcb 00010RRR rl_ixd_reg
	z80_rl_index main.R
	
fdcb 00010RRR rl_iyd_reg
	z80_rl_index main.R
	
cb 00001RRR rrc
	ror main.R 1 main.R
	update_flags SZYH0PXN0C
	
cb 00001110 rrc_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	ror tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_hl
	
z80_rrc_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	ror tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_index
	
ddcb 00001110 rrc_ixd
	local tmp 8
	z80_rrc_index tmp
	
ddcb 00001RRR rrc_ixd_reg
	z80_rrc_index main.R
	
fdcb 00001110 rrc_iyd
	local tmp 8
	z80_rrc_index tmp
	
fdcb 00001RRR rrc_iyd_reg
	z80_rrc_index main.R
	
cb 00011RRR rr
	rrc main.R 1 main.R
	update_flags SZYH0PXN0C
	
cb 00011110 rr_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	rrc tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_hl
	
z80_rr_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	rrc tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_index
	
ddcb 00011110 rr_ixd
	local tmp 8
	z80_rr_index tmp
	
ddcb 00011RRR rr_ixd_reg
	z80_rr_index main.R
	
fdcb 00011110 rr_iyd
	local tmp 8
	z80_rr_index tmp
	
fdcb 00011RRR rr_iyd_reg
	z80_rr_index main.R
	
cb 00100RRR sla
	lsl main.R 1 main.R
	update_flags SZYH0PXN0C
	
cb 00100110 sla_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	lsl tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_hl
	
z80_sla_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	lsl tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_index
	
ddcb 00100110 sla_ixd
	local tmp 8
	z80_sla_index tmp
	
ddcb 00100RRR sla_ixd_reg
	z80_sla_index main.R
	
fdcb 00100110 sla_iyd
	local tmp 8
	z80_sla_index tmp
	
fdcb 00100RRR sla_iyd_reg
	z80_sla_index main.R
	
cb 00101RRR sra
	asr main.R 1 main.R
	update_flags SZYH0PXN0C
	
cb 00101110 sra_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	asr tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_hl
	
z80_sra_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	asr tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_index
	
ddcb 00101110 sra_ixd
	local tmp 8
	z80_sra_index tmp
	
ddcb 00101RRR sra_ixd_reg
	z80_sra_index main.R
	
fdcb 00101110 sra_iyd
	local tmp 8
	z80_sra_index tmp
	
fdcb 00101RRR sra_iyd_reg
	z80_sra_index main.R
	
cb 00110RRR sll
	lsl main.R 1 main.R
	update_flags SZ0YH0XN0C
	or 1 main.R main.R
	update_flags P
	
cb 00110110 sll_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	lsl tmp 1 tmp
	update_flags SZ0YH0XN0C
	or 1 tmp tmp
	update_flags P
	mov tmp scratch1
	z80_store_hl
	
z80_sll_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	lsl tmp 1 tmp
	update_flags SZ0YH0XN0C
	or 1 tmp tmp
	update_flags P
	mov tmp scratch1
	z80_store_index
	
ddcb 00110110 sll_ixd
	local tmp 8
	z80_sll_index tmp
	
ddcb 00110RRR sll_ixd_reg
	z80_sll_index main.R
	
fdcb 00110110 sll_iyd
	local tmp 8
	z80_sll_index tmp
	
fdcb 00110RRR sll_iyd_reg
	z80_sll_index main.R
	
cb 00111RRR srl
	lsr main.R 1 main.R
	update_flags SZYH0PXN0C
	
cb 00111110 srl_hl
	local tmp 8
	z80_fetch_hl
	mov scratch1 tmp
	lsr tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_hl
	
z80_srl_index
	arg tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	mov scratch1 tmp
	lsr tmp 1 tmp
	update_flags SZYH0PXN0C
	mov tmp scratch1
	z80_store_index
	
ddcb 00111110 srl_ixd
	local tmp 8
	z80_srl_index tmp
	
ddcb 00111RRR srl_ixd_reg
	z80_srl_index main.R
	
fdcb 00111110 srl_iyd
	local tmp 8
	z80_srl_index tmp
	
fdcb 00111RRR srl_iyd_reg
	z80_srl_index main.R
	
cb 01BBBRRR bit_reg
	local tmp 8
	lsl 1 B tmp
	mov main.R last_flag_result
	and main.R tmp tmp
	update_flags SZH1PN0
	
cb 01BBB110 bit_hl
	local tmp 8
	z80_fetch_hl
	lsl 1 B tmp
	lsr wz 8 last_flag_result
	and scratch1 tmp tmp
	update_flags SZH1PN0
	
	
ddcb 01BBBRRR bit_ixd
	local tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	lsl 1 B tmp
	lsr wz 8 last_flag_result
	and scratch1 tmp tmp
	update_flags SZH1PN0
	
fdcb 01BBBRRR bit_iyd
	local tmp 8
	mov wz scratch1
	ocall read_8
	cycles 1
	lsl 1 B tmp
	lsr wz 8 last_flag_result
	and scratch1 tmp tmp
	update_flags SZH1PN0
	
cb 10BBBRRR res_reg
	local tmp 8
	lsl 1 B tmp
	not tmp tmp
	and main.R tmp main.R
	
cb 10BBB110 res_hl
	z80_fetch_hl
	cycles 1
	local tmp 8
	lsl 1 B tmp
	not tmp tmp
	and scratch1 tmp scratch1
	z80_store_hl
	
z80_res_index
	arg bit 8
	arg tmp 8
	lsl 1 bit tmp
	not tmp tmp
	mov wz scratch1
	ocall read_8
	cycles 1
	and scratch1 tmp tmp
	mov tmp scratch1
	z80_store_index
	
ddcb 10BBB110 res_ixd
	local tmp 8
	z80_res_index B tmp
	
ddcb 10BBBRRR res_ixd_reg
	z80_res_index B main.R
	
fdcb 10BBB110 res_iyd
	local tmp 8
	z80_res_index B tmp
	
fdcb 10BBBRRR res_iyd_reg
	z80_res_index B main.R
	
cb 11BBBRRR set_reg
	local tmp 8
	lsl 1 B tmp
	or main.R tmp main.R
	
cb 11BBB110 set_hl
	z80_fetch_hl
	cycles 1
	local tmp 8
	lsl 1 B tmp
	or scratch1 tmp scratch1
	z80_store_hl
	
z80_set_index
	arg bit 8
	arg tmp 8
	lsl 1 bit tmp
	mov wz scratch1
	ocall read_8
	cycles 1
	or scratch1 tmp tmp
	mov tmp scratch1
	z80_store_index
	
ddcb 11BBB110 set_ixd
	local tmp 8
	z80_set_index B tmp
	
ddcb 11BBBRRR set_ixd_reg
	z80_set_index B main.R
	
fdcb 11BBB110 set_iyd
	local tmp 8
	z80_set_index B tmp
	
fdcb 11BBBRRR set_iyd_reg
	z80_set_index B main.R
	
z80_fetch_mod_hl
	local tmp 16
	arg change 16
	lsl h 8 tmp
	or l tmp tmp
	mov tmp scratch1
	add change tmp tmp
	mov tmp l
	lsr tmp 8 h
	ocall read_8
	cycles 1
	
z80_ldd_ldi
	arg change 16
	local tmp 16
	local tmp8 8
	z80_fetch_mod_hl change
	
	add a scratch1 tmp8
	update_flags H0XN0
	
	and 0x2 tmp8 tmp8
	lsl tmp8 4 tmp8
	and 0x88 last_flag_result last_flag_result
	or tmp8 last_flag_result last_flag_result
	
	lsl d 8 tmp
	or e tmp tmp
	mov tmp scratch2
	add change tmp tmp
	mov tmp e
	lsr tmp 8 d
	ocall write_8
	
	lsl b 8 tmp
	or c tmp tmp
	sub 1 tmp tmp
	
	mov tmp c
	lsr tmp 8 b
	mov c pvflag
	or b pvflag pvflag
	
	cycles 5
	

ed 10100000 ldi
	z80_ldd_ldi 1

ed 10101000 ldd
	z80_ldd_ldi -1

ed 10110000 ldir
	z80_ldd_ldi 1
	if pvflag
	
	add 1 pc wz
	sub 2 pc pc
	cycles 5
	
	end

ed 10111000 lddr
	z80_ldd_ldi -1
	if pvflag
	
	add 1 pc wz
	sub 2 pc pc
	cycles 5
	
	end
	
z80_cpd_cpi
	local tmp 16
	local tmp8 8
	arg change 16
	
	z80_fetch_mod_hl change
	sub scratch1 a tmp8
	update_flags SZHXN1
	
	and 0x2 tmp8 tmp8
	lsl tmp8 4 tmp8
	and 0x88 last_flag_result last_flag_result
	or tmp8 last_flag_result last_flag_result
	
	lsl b 8 tmp
	or c tmp tmp
	sub 1 tmp tmp
	
	mov tmp c
	lsr tmp 8 b
	mov c pvflag
	or b pvflag pvflag
	
	cycles 5
	
ed 10100001 cpi
	z80_cpd_cpi 1
	
ed 10101001 cpd
	z80_cpd_cpi -1
	
ed 10110001 cpir
	z80_cpd_cpi 1
	if pvflag
	
	add 1 pc wz
	sub 2 pc pc
	cycles 5
	
	end
	
ed 10111001 cpdr
	z80_cpd_cpi -1
	if pvflag
	
	add 1 pc wz
	sub 2 pc pc
	cycles 5
	
	end