1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 04:58:05 +11:00

zasm: make .fill support word arguments

This commit is contained in:
Virgil Dupras 2019-07-01 10:56:03 -04:00
parent 2efe887434
commit 3a8b5108f7

View File

@ -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