From 3a8b5108f75a9cec53a8c371e5be9d57813c5c4d Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Mon, 1 Jul 2019 10:56:03 -0400 Subject: [PATCH] zasm: make .fill support word arguments --- apps/zasm/directive.asm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/apps/zasm/directive.asm b/apps/zasm/directive.asm index d80004d..2fae320 100644 --- 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