izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

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
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
apps/zasm/directive.asm
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