From d305f8e44cff480b418bb67156fd1fe579ce5fa0 Mon Sep 17 00:00:00 2001
From: Leo <erbl259-lmu@yahoo.de>
Date: Mon, 26 Jul 2010 06:28:08 +0000
Subject: [PATCH] * avr/z80.asm:   - Interpreter: inc/dec optimization.

git-svn-id: svn://cu.loc/avr-cpm/trunk@53 57430480-672e-4586-8877-bcf8adbbf3b7
---
 avrcpm/avr/z80.asm | 39 ++++++++++++++++++++++++++++++++++-----
 1 file changed, 34 insertions(+), 5 deletions(-)

diff --git a/avrcpm/avr/z80.asm b/avrcpm/avr/z80.asm
index 3d5f0b8..2be56aa 100644
--- a/avrcpm/avr/z80.asm
+++ b/avrcpm/avr/z80.asm
@@ -2611,6 +2611,8 @@ do_store_am:
 .equ OP_EI		= (38<<10)
 .equ OP_INV		= (39<<10)
 .equ OP_CPFA	= (40<<10)
+.equ OP_INCA	= (41<<10)
+.equ OP_DECA	= (42<<10)
 
 opjumps:
 	rjmp do_op_nop
@@ -2654,6 +2656,8 @@ opjumps:
 	rjmp do_op_ei
 	rjmp do_op_inv
 	rjmp do_op_cpfa
+	rjmp do_op_inca
+	rjmp do_op_deca
 
 
 ;How the flags are supposed to work:
@@ -2933,15 +2937,27 @@ do_op_nop:
 ;
 ; 
 do_op_inc:
-	ldi	temp,1
-	add	opl,temp
+	inc	opl
+#if EM_Z80
 	in	temp, sreg
+#endif
 	andi	z_flags,(1<<ZFL_H)|(1<<ZFL_C)	; preserve C-, and H-flag
 	ldpmx	temp2, sz53p_tab, opl
 	or	z_flags,temp2		;
 	do_z80_flags_HP
 	ret
 
+do_op_inca:
+	inc	z_a
+#if EM_Z80
+	in	temp, sreg
+#endif
+	andi	z_flags,(1<<ZFL_H)|(1<<ZFL_C)	; preserve C-, and H-flag
+	ldpmx	temp2, sz53p_tab, z_a
+	or	z_flags,temp2		;
+	do_z80_flags_HP
+	ret
+
 ;----------------------------------------------------------------
 ;|Mnemonic  |SZHPNC|Description          |Notes                 |
 ;----------------------------------------------------------------
@@ -2954,8 +2970,10 @@ do_op_inc:
 ;
 ;
 do_op_dec:
-	subi	opl,1
+	dec	opl
+#if EM_Z80
 	in    temp, sreg
+#endif
 	andi	z_flags,(1<<ZFL_H)|(1<<ZFL_C)	; preserve C-, and H-flag
 	ldpmx	temp2, sz53p_tab, opl
 	or	z_flags,temp2		;
@@ -2963,6 +2981,17 @@ do_op_dec:
 	do_z80_flags_set_N
 	ret
 
+do_op_deca:
+	dec	z_a
+#if EM_Z80
+	in    temp, sreg
+#endif
+	andi	z_flags,(1<<ZFL_H)|(1<<ZFL_C)	; preserve C-, and H-flag
+	ldpmx	temp2, sz53p_tab, z_a
+	or	z_flags,temp2		;
+	do_z80_flags_HP
+	do_z80_flags_set_N
+	ret
 
 ;----------------------------------------------------------------
 ;|Mnemonic  |SZHPNC|Description          |Notes                 |
@@ -3852,8 +3881,8 @@ inst_table:
 .dw (FETCH_SP	| OP_ADDHL	| STORE_HL )	 ; 39		ADD HL,SP
 .dw (FETCH_DIR16| OP_RMEM8	| STORE_A  )	 ; 3A nn nn	LD A,(nn)
 .dw (FETCH_SP	| OP_DEC16	| STORE_SP )	 ; 3B		DEC SP
-.dw (FETCH_A    | OP_INC	| STORE_A  )	 ; 3C		INC A
-.dw (FETCH_A    | OP_DEC	| STORE_A  )	 ; 3D		DEC A
+.dw (FETCH_NOP  | OP_INCA	| STORE_NOP)	 ; 3C		INC A
+.dw (FETCH_NOP  | OP_DECA	| STORE_NOP)	 ; 3D		DEC A
 .dw (FETCH_DIR8	| OP_NOP	| STORE_A  )	 ; 3E nn	LD A,n
 .dw (FETCH_NOP	| OP_CCF	| STORE_NOP)	 ; 3F		CCF (Complement Carry Flag, gvd)
 .dw (FETCH_B	| OP_NOP	| STORE_B  )	 ; 40		LD B,r
-- 
2.39.2