wok-6.x rev 20160

linld: fix puts
author Pascal Bellard <pascal.bellard@slitaz.org>
date Mon Jan 01 11:21:28 2018 +0100 (2018-01-01)
parents bf56c7791f56
children 01dce3735a94
files linld/stuff/src/CRTL.ASM linld/stuff/src/_BEG.ASM
line diff
     1.1 --- a/linld/stuff/src/CRTL.ASM	Wed Dec 27 12:41:02 2017 +0100
     1.2 +++ b/linld/stuff/src/CRTL.ASM	Mon Jan 01 11:21:28 2018 +0100
     1.3 @@ -216,13 +216,13 @@
     1.4                  mov	bx,offset msg_crlf
     1.5  		jmp	putsz
     1.6  putcz:
     1.7 -		mov	ah,9
     1.8 +		mov	ah,2
     1.9  		int	21h
    1.10          global  putsz:near			; putsz(bx)
    1.11  putsz:
    1.12 -		mov	al,[bx]
    1.13 +		mov	dl,[bx]
    1.14  		inc	bx
    1.15 -		or	al,al
    1.16 +		or	dl,dl
    1.17  		jne	putcz			; ZF=1  (for malloc failure)
    1.18  		ret
    1.19  
     2.1 --- a/linld/stuff/src/_BEG.ASM	Wed Dec 27 12:41:02 2017 +0100
     2.2 +++ b/linld/stuff/src/_BEG.ASM	Mon Jan 01 11:21:28 2018 +0100
     2.3 @@ -175,14 +175,14 @@
     2.4  		xchg	ax,bx
     2.5                  mov	[bx+si],bh		; set eos
     2.6  argbuild:
     2.7 -		;ifdef	DEBUG
     2.8 +		ifdef	DEBUG
     2.9                  p386
    2.10  		pusha
    2.11  		mov	bx,si
    2.12  		extrn	puts:near
    2.13  		call	puts
    2.14  		popa
    2.15 -		;endif
    2.16 +		endif
    2.17                  mov	bx,2			; argc * 2
    2.18  argeos:
    2.19                  mov	dl,1			; look for a start of string