mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 04:58:05 +11:00
zasm: make .fill support word arguments
This commit is contained in:
parent
2efe887434
commit
3a8b5108f7
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user