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