Fix dl ?.

jacobly0 · Nov 2, 2023 · 8df3e54 · 8df3e54
1 parent 7000724
commit 8df3e54
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 0 deletions.
diff --git a/ez80.alm b/ez80.alm
@@ -77,19 +77,32 @@ iterate <name,size,cond>, w,word,no, l,long,yes
 		match current =, count, count, ()
 		jno splitend
 	splitloop:
+		match ?, current
+		jyes splitreserve
 		execute =@ez80.=word =size?, @current
+		jump splitnext
+	splitreserve:
+		execute =rl? 1
+	splitnext:
 		match current =, count, count, ()
 		jyes splitloop
 	splitend:
 		compute count, count
 		check count
 		jno repeatend
 	repeatloop:
+		match ?, current
 		arrange duplicate, sequence
 		match ( duplicate ), sequence
 	repeatsplitloop:
 		split current, duplicate
+		match ?, current
+		jyes repeatreserve
 		execute =@ez80.=word =size?, @current
+		jump repeatnext
+	repeatreserve:
+		execute =rl? 1
+	repeatnext:
 		jyes repeatsplitloop
 		compute count, count - 1
 		check count

diff --git a/tests/rl.asm b/tests/rl.asm
@@ -2,5 +2,6 @@ include 'ez80.inc'
 	dl	0
 	rla
 	rl	1
+	dl	?
 	rl	a
 test	rl	100
diff --git a/tests/rl.bin b/tests/rl.bin