1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 17:58:07 +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 jr nz, .badarg
push bc push bc
push ix \ pop bc push ix \ pop bc
xor a
ld b, c
.loop: .loop:
ld a, b
or c
jr z, .loopend
xor a
call ioPutC call ioPutC
jr nz, .ioError jr nz, .ioError
djnz .loop dec bc
jr .loop
.loopend:
cp a ; ensure Z cp a ; ensure Z
pop bc pop bc
ret ret