bp_get_condition: eliminate expr_p2

1 files changed, 7 insertions, 8 deletions

diff --git a/ddt180.z80 b/ddt180.z80
index e624c8b..b7503fa 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -1780,20 +1780,19 @@ bp_get_condition:
 	ld de,expr_bufe

 	call cp_hl_de

 	jr nc,error12

-	pop hl

-	ld (expr_p2),hl

-	pop de

-	ex de,hl

+	pop	de

+	pop	hl

+	push	de

 	ldir

-	xor a

-	ld (de),a

-	inc de

 	ex de,hl

+	ld (hl),c		; trailing 0

+	inc hl

 	ld (expr_p1),hl

-	ld hl,(expr_p2)

+	pop	hl

 	ret

 

 ;-------------------------------------------------------------------------------

+; Breakpoint handling routine.

 

 bpddtz:

 	ld (reg.l),hl