zasm: make .fill support word arguments

2019-07-01 10:56:03 -04:00 · 2019-07-01 10:56:03 -04:00 · 3a8b5108f7
parent 2efe887434
commit 3a8b5108f7
1 changed files with 7 additions and 3 deletions
--- a/apps/zasm/directive.asm
+++ b/apps/zasm/directive.asm
@ -183,12 +183,16 @@ handleFIL:
 	jr	nz, .badarg
 	push	bc
 	push	ix \ pop bc
-	xor	a
-	ld	b, c
 .loop:
+	ld	a, b
+	or	c
+	jr	z, .loopend
+	xor	a
 	call	ioPutC
 	jr	nz, .ioError
-	djnz	.loop
+	dec	bc
+	jr	.loop
+.loopend:
 	cp	a		; ensure Z
 	pop	bc
 	ret