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:
parent
2efe887434
commit
3a8b5108f7
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user