Mercurial > repos > blastem

changeset 1727:9ea0b4cc8f02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implemented BIT instruction in new Z80 core and fixed a bunch of WZ register calculations
author Michael Pavone <pavone@retrodev.com>
date Sat, 02 Feb 2019 15:10:18 -0800
parents 4f064b575e57
children b0e01e64d76d
files z80.cpu
diffstat 1 files changed, 63 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/z80.cpu	Fri Feb 01 22:19:09 2019 -0800
+++ b/z80.cpu	Sat Feb 02 15:10:18 2019 -0800
@@ -226,40 +226,58 @@
 	z80_store_hl
 
 00001010 ld_a_from_bc
-	lsl b 8 scratch1
-	or c scratch1 scratch1
+	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 scratch1
-	or e scratch1 scratch1
+	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
@@ -305,6 +323,7 @@
 	mov wz scratch1
 	ocall read_8
 	mov scratch1 high
+	add 1 wz wz
 
 00101010 ld_hl_from_immed
 	meta low l
@@ -336,6 +355,7 @@
 	ocall read_8
 	lsl scratch1 8 scratch1
 	or scratch1 reg reg
+	add 1 wz wz
 
 ed 01111011 ld_sp_from_immed
 	meta reg sp
@@ -358,6 +378,7 @@
 	mov wz scratch2
 	mov h scratch1
 	ocall write_8
+	add 1 wz wz
 	
 z80_regpair_to_immed
 	z80_fetch_immed16
@@ -368,6 +389,7 @@
 	mov high scratch1
 	mov wz scratch2
 	ocall write_8
+	add 1 wz wz
 	
 ed 01000011 ld_bc_to_immed
 	meta low c
@@ -395,13 +417,6 @@
 	cycles 2
 	lsl h 8 sp
 	or l sp sp
-	mov wz scratch2
-	mov sp scratch1
-	ocall write_8
-	add 1 wz wz
-	lsr sp 8 scratch1
-	mov wz scratch2
-	ocall write_8
 
 z80_push
 	cycles 1
@@ -1699,4 +1714,40 @@
 	z80_srl_index tmp
 	
 fdcb 00111RRR srl_iyd_reg
-	z80_srl_index main.R
\ No newline at end of file
+	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
\ No newline at end of file