From 81c1eadbced80bf070a9828ae70e818a8de7cd22 Mon Sep 17 00:00:00 2001
From: Leo C
Date: Tue, 27 Nov 2018 20:49:09 +0100
Subject: Bugfix PB loop controll (bpl_next)

---
 ddt180.z80 | 3 +++
 1 file changed, 3 insertions(+)

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
-- 
cgit v1.2.3