Bugfix PB loop controll (bpl_next)

1 files changed, 3 insertions, 0 deletions

diff --git a/ddt180.z80 b/ddt180.z80
index d042c76..246ff90 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -1589,7 +1589,9 @@ bpl_init:
 

 bpl_next:

 	ld	de,BP_SIZE

+	push	af

 	add	ix,de

+	pop	af

 	dec	b

 	ret	z

 

@@ -1631,6 +1633,7 @@ cmd_B:
 	dec de

 	ld a,001h

 	jp bp_enter

+

 bp_clr0:

 	call skipbl

 	jr z,bp_clr_all