zasm: make .fill support word arguments · 3a8b5108f7 - collapseos - GitLain

Преглед на файлове

zasm: make .fill support word arguments

pull/10/head

Virgil Dupras преди 5 години

родител

2efe887434

ревизия

3a8b5108f7

променени са 1 файла, в които са добавени 7 реда и са изтрити 3 реда

Разделен изглед

							
								+ 7
								
								- 3
							
apps/zasm/directive.asmЦелия файл
								
			@@ -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