# HG changeset patch
# User Pascal Bellard <pascal.bellard@slitaz.org>
# Date 1514802088 -3600
# Node ID 7547eb83cc062e75ae4dd2aceb29b0c197e47a21
# Parent  bf56c7791f56a4e953bc7aad50fa4cdeef0ef9cd
linld: fix puts

diff -r bf56c7791f56 -r 7547eb83cc06 linld/stuff/src/CRTL.ASM
--- a/linld/stuff/src/CRTL.ASM	Wed Dec 27 12:41:02 2017 +0100
+++ b/linld/stuff/src/CRTL.ASM	Mon Jan 01 11:21:28 2018 +0100
@@ -216,13 +216,13 @@
                 mov	bx,offset msg_crlf
 		jmp	putsz
 putcz:
-		mov	ah,9
+		mov	ah,2
 		int	21h
         global  putsz:near			; putsz(bx)
 putsz:
-		mov	al,[bx]
+		mov	dl,[bx]
 		inc	bx
-		or	al,al
+		or	dl,dl
 		jne	putcz			; ZF=1  (for malloc failure)
 		ret
 
diff -r bf56c7791f56 -r 7547eb83cc06 linld/stuff/src/_BEG.ASM
--- a/linld/stuff/src/_BEG.ASM	Wed Dec 27 12:41:02 2017 +0100
+++ b/linld/stuff/src/_BEG.ASM	Mon Jan 01 11:21:28 2018 +0100
@@ -175,14 +175,14 @@
 		xchg	ax,bx
                 mov	[bx+si],bh		; set eos
 argbuild:
-		;ifdef	DEBUG
+		ifdef	DEBUG
                 p386
 		pusha
 		mov	bx,si
 		extrn	puts:near
 		call	puts
 		popa
-		;endif
+		endif
                 mov	bx,2			; argc * 2
 argeos:
                 mov	dl,1			; look for a start of string