From 72cb28157b9a89d16ef602857708b9da71287231 Mon Sep 17 00:00:00 2001
From: igor <igorcielniak.contact@gmail.com>
Date: Fri, 19 Dec 2025 11:32:12 +0100
Subject: [PATCH] fix for reading stdin

---
 build/call_syntax_parens.asm        |  15 ++-
 build/call_syntax_parens.o          | Bin 5440 -> 5504 bytes
 build/loops_and_cmp.asm             |  15 ++-
 build/loops_and_cmp.o               | Bin 5504 -> 5568 bytes
 build/override_dup_compile_time.asm |  15 ++-
 build/override_dup_compile_time.o   | Bin 5296 -> 5376 bytes
 build/string_puts.asm               |  15 ++-
 build/string_puts.o                 | Bin 5648 -> 5712 bytes
 build/test_read_stdin.asm           | 186 ++++++++++++++--------------
 build/test_read_stdin.o             | Bin 5520 -> 5584 bytes
 readstdin                           | Bin 11592 -> 11648 bytes
 stdlib/io.sl                        |  15 ++-
 12 files changed, 139 insertions(+), 122 deletions(-)

diff --git a/build/call_syntax_parens.asm b/build/call_syntax_parens.asm
index 08535fb..1c290da 100644
--- a/build/call_syntax_parens.asm
+++ b/build/call_syntax_parens.asm
@@ -446,26 +446,29 @@ word_read_stdin:
 	cmp rax, -4095
 	jae .fail_mmap
 	mov rbx, rax          ; buffer addr
-	xor rcx, rcx          ; bytes_read = 0
+	xor r9, r9          ; bytes_read = 0
 
 .read_loop:
 	mov rax, 0            ; syscall: read
 	mov rdi, 0            ; fd = stdin
-	lea rsi, [rbx + rcx]  ; buf + offset
+	lea rsi, [rbx + r9]  ; buf + offset
 	mov rdx, r14
-	sub rdx, rcx          ; remaining = max_len - bytes_read
+	sub rdx, r9          ; remaining = max_len - bytes_read
 	syscall
 	cmp rax, 0
 	je .done_read
 	js .read_error
-	add rcx, rax
-	cmp rcx, r14
+	add r9, rax
 	jl .read_loop
 
 .done_read:
 	; push len (rcx) then addr (rbx)
+	cmp r9, r14
+	je .done_no_null
+	mov byte [rbx + r9], 0
+.done_no_null:
 	sub r12, 16
-	mov [r12], rcx
+	mov [r12], r9
 	mov [r12 + 8], rbx
 	ret
 
diff --git a/build/call_syntax_parens.o b/build/call_syntax_parens.o
index 5f6143ae670264047e6def211ae7d05fa647b4b1..aed5fd1d58f3f3315dacb2e656ae1e8d72090408 100644
GIT binary patch
delta 732
zcmX@0)u26L0i)Q&h2~5NoD&_zCVtRhOqeXmXb&VK8SO<Ea58{F06T<c15&<|*D`8z
zeh`3&+?xE5(VX$ZWJxAV#^TMvOw6p7!5*E5eGO0U04dlHBD{J{xP3Z5`DmWvXZ2|Q
z!BE0pA?wL_u;#9><;N0Mr(-PK44%zz1bjDlum>|TuAh8|!@?!z&;S1~!hr-(hQsqX
ziwek~7fnb4j39wRkTS1dK*ATq@&FQtK`Oyuvp;7fYrO+2j1Qq#Gl6JE1}`-66HxI8
zH1Wq!@hmj)zfkc;G;wxji1~*h;`I<)fut-{;xU>A9jG`nD0Gp4DO6kyP23TOxHnYX
z2}OM}14AfOA`nG_fguAbo`)u04i)c26K{ly-$E1bn*5PpoN+3coHtofK%8;u<Uk;~
z0ZeY6+z4bJ0+VMZ&lE7&d{JN*6HiKhUTS<^etceOPR`~kVKK(Zy&}eplP4b(5oeqQ
oCXY`3C?alg9U5Ao&}ISRKmS1y&%nS2bp%Yjh5;NOU^x&00NxvdMF0Q*

delta 675
zcmZqBKA<&W0VDs!h2~5FoD&_zCVtRh445p*Xb&VK8SO<Ua58{_1v`Xh15!Sd*D`8z
zUJ!tY?4A6O(VTI@WJxAV#+=Q;Ow6oCJ|3NiJq%Co04dlHB0PFcxP3Z5d1#*EXZ2|Q
z!BE0gA?Cq&(8uy)%`MO7Hv*oU``LpT8MjS-%wb`j{OAAw7jZxWD8u1-oJ9p>!i!EM
z0Y;EO1xQ)oFCY;DV)+A!!<*wdBU$U6SwT7wU^Nqn&BzdlCVmVmo{T2`04iRECjJU4
zz6VX5ff-`{9f){6+-82L#2+*b5>Rn@P-r3n6&&JvP;qNC^%hWZFBI{~^Z2<O(@}&N
z7^0v`o6y8lpyHR&#B(Pb3WzgSfJo*>W`@a*jG~MklM{hrlfmSy$rFL>rC@UX<bwhR
z69YIle-zlowE2WEE92w~A_j~-lNm+DCy7ch?wf2VDsFKB8VI03WC7wo|3T5n!0;bU
NyoLcB%wRbX0RWRtc%J|O

diff --git a/build/loops_and_cmp.asm b/build/loops_and_cmp.asm
index 0fa23ec..03068e5 100644
--- a/build/loops_and_cmp.asm
+++ b/build/loops_and_cmp.asm
@@ -446,26 +446,29 @@ word_read_stdin:
 	cmp rax, -4095
 	jae .fail_mmap
 	mov rbx, rax          ; buffer addr
-	xor rcx, rcx          ; bytes_read = 0
+	xor r9, r9          ; bytes_read = 0
 
 .read_loop:
 	mov rax, 0            ; syscall: read
 	mov rdi, 0            ; fd = stdin
-	lea rsi, [rbx + rcx]  ; buf + offset
+	lea rsi, [rbx + r9]  ; buf + offset
 	mov rdx, r14
-	sub rdx, rcx          ; remaining = max_len - bytes_read
+	sub rdx, r9          ; remaining = max_len - bytes_read
 	syscall
 	cmp rax, 0
 	je .done_read
 	js .read_error
-	add rcx, rax
-	cmp rcx, r14
+	add r9, rax
 	jl .read_loop
 
 .done_read:
 	; push len (rcx) then addr (rbx)
+	cmp r9, r14
+	je .done_no_null
+	mov byte [rbx + r9], 0
+.done_no_null:
 	sub r12, 16
-	mov [r12], rcx
+	mov [r12], r9
 	mov [r12 + 8], rbx
 	ret
 
diff --git a/build/loops_and_cmp.o b/build/loops_and_cmp.o
index 8ccf0a9adac621dce047b126d4750b8244599d59..202d3d53788f1e1377ea9a41a2b7b89f1d650048 100644
GIT binary patch
delta 697
zcmZqBKA=5e0i*uJh5vao*crfp4M_S;UdyP>sUQduc{=$aqdAj+=wvA-3&!Hj!A#7o
zmcbsKhkXrC?f|LS4<fvJO}KqJKlx~$;%D_}{=rbfULotrc(CTKujR)QR;Obu+zg)0
zZv=cdcd(Z-GWJgX$6>^{ak3$&qFDd0|Nmda|NH+RD9_<}oJ9p>+~LjnoRO^c4y+&!
z0xV+!u^Ab>(8Lcz#Us$f??J`0(8Pa0#T(JYnV2EwABKq6!)=y;N<2o>pbiyh1_c`u
zFo24yp^4kz5O;%$JE5ot+8+Rw2t<)!U`U3F=b?!gLB%`K#A~49+tI{3q2f2u#HWJ9
zC%Xy=GcK6yC?L+fl9^$$BcmwehRKBj;*7h&<e|w6f$Xzj^7`b90tOQUI5sm1Ze`+0
z$<IrT&&!X`E6vH-yi{15aq?LaW5&so8AZhzXMxG1lMO}1Ev`d@6BHdRK>X)FBRCM*
Qpss<5*D!!13@isC0FQ-aK>z>%

delta 643
zcmX@0-Jm^T0i(vmh5va2*crfp4M_S<UdyP>$sh<3IWhSmqdC(Bk;zg_7K}NYgPE9F
zjeI;h4|^D%+yPRtA4GWcnsEDce)7;f#n0-|{DYx{t3u3!@t}|8$C_K7&2I!eH}|ub
zGBQq?%*tuRxMQ*fr=sk%U;qEVi2wKhKTw{-^EitN$ehC<0thzeb4Ie(JF`M~Fmf3a
zh{ebdh$emzDxQocej6%Yg(m(KD!vCz{5Mqm4n({jW-kL5GsNOQXc~l};_{$iLjv+R
z#5JMf)@bUDq2gXB;*;0$b48}32r)2(LX|e5iN{05H=v2<K*cYiiC0W^6cA@@29rIL
z3xVv(lNSQXd0=ws<cmP|1~9p6@=F1O&5D9snKpkGmSUVNAZozaGucs8e6oY61mnKR
gg`(mX7oY(H3P2Vh{_~#^9321A#A_J9K@1Nn0GFy=@Bjb+

diff --git a/build/override_dup_compile_time.asm b/build/override_dup_compile_time.asm
index 380f3a4..2b4141f 100644
--- a/build/override_dup_compile_time.asm
+++ b/build/override_dup_compile_time.asm
@@ -446,26 +446,29 @@ word_read_stdin:
 	cmp rax, -4095
 	jae .fail_mmap
 	mov rbx, rax          ; buffer addr
-	xor rcx, rcx          ; bytes_read = 0
+	xor r9, r9          ; bytes_read = 0
 
 .read_loop:
 	mov rax, 0            ; syscall: read
 	mov rdi, 0            ; fd = stdin
-	lea rsi, [rbx + rcx]  ; buf + offset
+	lea rsi, [rbx + r9]  ; buf + offset
 	mov rdx, r14
-	sub rdx, rcx          ; remaining = max_len - bytes_read
+	sub rdx, r9          ; remaining = max_len - bytes_read
 	syscall
 	cmp rax, 0
 	je .done_read
 	js .read_error
-	add rcx, rax
-	cmp rcx, r14
+	add r9, rax
 	jl .read_loop
 
 .done_read:
 	; push len (rcx) then addr (rbx)
+	cmp r9, r14
+	je .done_no_null
+	mov byte [rbx + r9], 0
+.done_no_null:
 	sub r12, 16
-	mov [r12], rcx
+	mov [r12], r9
 	mov [r12 + 8], rbx
 	ret
 
diff --git a/build/override_dup_compile_time.o b/build/override_dup_compile_time.o
index 9e335bb5f6c5c24b2660a7fec71fe114e8089a61..d7df610e287c0467237c7cfd8f9bc139e12ce80a 100644
GIT binary patch
delta 647
zcmdm>*`PIH0ps$C3(c86a7=U*oA^P4@xx?EMtdL`$!ITXz{vmx7VHq34M_P+UdyP>
zSs(xrxiR@6qd8;1WJxAV#^TMvOw6p7!5*E5eGO0U04dlHBD{J{xP3Z5`DmWvXZ2|Q
z!BE0pA?wL_u;#9><;N0Mr(-PK44%zz1bjDlutzd-fOLSs<_8=Rto0785FU)&!~|k7
zGI*hhpNEP^pozbNif5sTvoJ%<X+#s}gNh%9h}XmHWl(`iJVw)C3>9Yvg$)w0fr_i4
ziF@D>4}yw2p{Vy}V2FWA1fobVFyuqU^U%cWpyHiq;vJJ4`NbJ0gGlB%%nXwq8ATZv
zPu>U=TL&h$PJRev9{`i5CJPD}Obp=I>?m-Mi6<pLFEu_dKR&NCCuj3VA%4cme}#>K
sCK-x|GtL5&M<*wWh+ABT1`R04S%CP@e@1YCut8k{6R%+aM+!W!0J2$H>Hq)$

delta 580
zcmZqB+MqdM0po&+3(c7xa7=U*oA^P4@xf$CMtdL`$!IUCz{vmx3hWS?4M=%UUdyP>
z=^y|R***Coqd6nPWJxAV#+=Q;Ow6oCJ|3NiJq%Co04dlHB0PFcxP3Z5d1#*EXZ2|Q
z!BE0gA?Cq&(8uy)%`MO7Hv*oU``IHIH-F>^XRUW;1?fP5O-vv*BSRpX_*tlUGMe~v
zsCX5c_(!Pt9yD=wW{CNBAma6Ko5i3Kf6z3@L&fDmVSxm+afq8j#jVlQ+e5{@P{b$e
z@pEaWqX;oDBtn%op^0Ztp2#oGSOzBRCm#f|+a`Ymk`uw?jLC`u;*5*I<l4!W0tTB4
z1r9Pz_80y)IY7jKv1f9li1_3N5ede9lQ)WpTU>zp6BJG?K>X)FBiMKU(Zp*Qz#$3u
FIRN@DQqKSY

diff --git a/build/string_puts.asm b/build/string_puts.asm
index c2882b4..87e60db 100644
--- a/build/string_puts.asm
+++ b/build/string_puts.asm
@@ -446,26 +446,29 @@ word_read_stdin:
 	cmp rax, -4095
 	jae .fail_mmap
 	mov rbx, rax          ; buffer addr
-	xor rcx, rcx          ; bytes_read = 0
+	xor r9, r9          ; bytes_read = 0
 
 .read_loop:
 	mov rax, 0            ; syscall: read
 	mov rdi, 0            ; fd = stdin
-	lea rsi, [rbx + rcx]  ; buf + offset
+	lea rsi, [rbx + r9]  ; buf + offset
 	mov rdx, r14
-	sub rdx, rcx          ; remaining = max_len - bytes_read
+	sub rdx, r9          ; remaining = max_len - bytes_read
 	syscall
 	cmp rax, 0
 	je .done_read
 	js .read_error
-	add rcx, rax
-	cmp rcx, r14
+	add r9, rax
 	jl .read_loop
 
 .done_read:
 	; push len (rcx) then addr (rbx)
+	cmp r9, r14
+	je .done_no_null
+	mov byte [rbx + r9], 0
+.done_no_null:
 	sub r12, 16
-	mov [r12], rcx
+	mov [r12], r9
 	mov [r12 + 8], rbx
 	ret
 
diff --git a/build/string_puts.o b/build/string_puts.o
index 9035e65f96635884c9a20c7119979c329c84544f..febf51b9113299fd49da23694dadc7fe9f3e02a4 100644
GIT binary patch
delta 767
zcmbQBb3tdq0>-x!7yjox!Oj2%Y(O$-@>)i1&ICb-$gjx{8O<3JCQC9|G8S(RW@2Ww
z4EE?e>}z;(2S~ww5aHEp!tK-f$w%`PKdVRc4~7!<3RzFagEe=3EkBm9Ivr!-X7Fr&
zBjCHagMA_6W&_R&)_Mn4kVXVp!USS7GI*hhAB2iWpo!msif5sTe}jrQqKPvwL(D%6
z5wC~aEC!W$jHW>qD$WcF5+tAp6<0$Ox56Rr0u^^cQSZ&b;0KimM3G=%NQ8>#p@|nj
z#XHf&t0sTs7iVk*k&@kDH6Q<TBRLqvoH|)iKwNS*4%wxX1A(%up|WUN8MaPt6cA_L
z$ILL<kx`WK=;Vz8;*1x-<n_r9f$T?M^37yHL4%0_9Ge{lH#701<maWv=jF%emFDD3
zUN0=R`KPct<78P;W5&so14YFpXF&rS6j>l^MWL1+o!lrY?s*+amIWyD=RYG@o(<}A
lkS>sT4Ffo`874x-LB0li0<4;WVcq11qT&*#(PSl{vH+;&Xa@iQ

delta 717
zcmcbhGeKv<0>)<(7yjqnz|H^$Y(O$_@>)i1P6t7V$lb{g8O<3LCQC9|GUjX!W@2VF
z^6}_A>|uCv2S~ww5aH2l!tK-f$wTuLKdVRc4~7!13Na7HgFcoYYi@ZqzY*}<+|Ry{
zkp-l5vo2>fYrQioh>ZYCm_TeshCnp&{ZR2_H1V5I@hUX&$58P-XyQMi;&&k8^>CXx
zm?0MbLDL`z6_*DE2ojLRA+8P;w?<QM2o?825ue=0&!w4;BE-ND3{~2MCLTNaBfmIf
z2AIs7tSBHZSpinb#K42(Fc7m2EZYH<l|Ym2o7@Q0I|C{!i6*;n@<su1#ubwv0?Ex_
za@S-*L2<^TVDkKAO+kariGrJ%CO;5n-E1bJ&Nw+i)PS*P@<dT_$;r^b0|he3cu}a?
z`z9Y075BV=BnwIcfBrLq<^Q9J*D!!1iJ=SXe{P^Euw$X7EuX9?CN6OVO%~=$0CoLY
ABme*a

diff --git a/build/test_read_stdin.asm b/build/test_read_stdin.asm
index 52d8069..5dce101 100644
--- a/build/test_read_stdin.asm
+++ b/build/test_read_stdin.asm
@@ -37,97 +37,11 @@ word_r_40:
 	mov [r12], rax
 	ret
     ret
-word_puts:
-	; detects string if top is len>=0 and next is a pointer in [data_start, data_end]
-	mov rax, [r12]      ; len or int value
-	mov rbx, [r12 + 8]  ; possible address
-	cmp rax, 0
-	jl puts_print_int
-	lea r8, [rel data_start]
-	lea r9, [rel data_end]
-	cmp rbx, r8
-	jl puts_print_int
-	cmp rbx, r9
-	jge puts_print_int
-	; treat as string: (addr below len)
-	mov rdx, rax        ; len
-	mov rsi, rbx        ; addr
-	add r12, 16         ; pop len + addr
-	test rdx, rdx
-	jz puts_str_newline_only
-	mov rax, 1
-	mov rdi, 1
-	syscall
-puts_str_newline_only:
-	mov byte [rel print_buf], 10
-	mov rax, 1
-	mov rdi, 1
-	lea rsi, [rel print_buf]
-	mov rdx, 1
-	syscall
-	ret
-
-puts_print_int:
-	mov rax, [r12]
-	add r12, 8
-	mov rbx, rax
-	mov r8, 0
-	cmp rbx, 0
-	jge puts_abs
-	neg rbx
-	mov r8, 1
-puts_abs:
-	lea rsi, [rel print_buf_end]
-	mov rcx, 0
-	mov r10, 10
-	cmp rbx, 0
-	jne puts_digits
-	dec rsi
-	mov byte [rsi], '0'
-	inc rcx
-	jmp puts_sign
-puts_digits:
-puts_loop:
-	xor rdx, rdx
-	mov rax, rbx
-	div r10
-	add dl, '0'
-	dec rsi
-	mov [rsi], dl
-	inc rcx
-	mov rbx, rax
-	test rbx, rbx
-	jne puts_loop
-puts_sign:
-	cmp r8, 0
-	je puts_finish_digits
-	dec rsi
-	mov byte [rsi], '-'
-	inc rcx
-puts_finish_digits:
-	mov byte [rsi + rcx], 10
-	inc rcx
-	mov rax, 1
-	mov rdi, 1
-	mov rdx, rcx
-	mov r9, rsi
-	mov rsi, r9
-	syscall
-    ret
 word_dup:
 	mov rax, [r12]
 	sub r12, 8
 	mov [r12], rax
     ret
-word_write_buf:
-	mov rdx, [r12]        ; len
-	mov rsi, [r12 + 8]    ; addr
-	add r12, 16           ; pop len + addr
-	mov rax, 1            ; syscall: write
-	mov rdi, 1            ; fd = stdout
-	syscall
-	ret
-    ret
 word_drop:
 	add r12, 8
     ret
@@ -532,26 +446,29 @@ word_read_stdin:
 	cmp rax, -4095
 	jae .fail_mmap
 	mov rbx, rax          ; buffer addr
-	xor rcx, rcx          ; bytes_read = 0
+	xor r9, r9          ; bytes_read = 0
 
 .read_loop:
 	mov rax, 0            ; syscall: read
 	mov rdi, 0            ; fd = stdin
-	lea rsi, [rbx + rcx]  ; buf + offset
+	lea rsi, [rbx + r9]  ; buf + offset
 	mov rdx, r14
-	sub rdx, rcx          ; remaining = max_len - bytes_read
+	sub rdx, r9          ; remaining = max_len - bytes_read
 	syscall
 	cmp rax, 0
 	je .done_read
 	js .read_error
-	add rcx, rax
-	cmp rcx, r14
+	add r9, rax
 	jl .read_loop
 
 .done_read:
 	; push len (rcx) then addr (rbx)
+	cmp r9, r14
+	je .done_no_null
+	mov byte [rbx + r9], 0
+.done_no_null:
 	sub r12, 16
-	mov [r12], rcx
+	mov [r12], r9
 	mov [r12 + 8], rbx
 	ret
 
@@ -568,6 +485,91 @@ word_read_stdin:
 	mov qword [r12 + 8], 0
 	ret
     ret
+word_puts:
+	; detects string if top is len>=0 and next is a pointer in [data_start, data_end]
+	mov rax, [r12]      ; len or int value
+	mov rbx, [r12 + 8]  ; possible address
+	cmp rax, 0
+	jl puts_print_int
+	lea r8, [rel data_start]
+	lea r9, [rel data_end]
+	cmp rbx, r8
+	jl puts_print_int
+	cmp rbx, r9
+	jge puts_print_int
+	; treat as string: (addr below len)
+	mov rdx, rax        ; len
+	mov rsi, rbx        ; addr
+	add r12, 16         ; pop len + addr
+	test rdx, rdx
+	jz puts_str_newline_only
+	mov rax, 1
+	mov rdi, 1
+	syscall
+puts_str_newline_only:
+	mov byte [rel print_buf], 10
+	mov rax, 1
+	mov rdi, 1
+	lea rsi, [rel print_buf]
+	mov rdx, 1
+	syscall
+	ret
+puts_print_int:
+	mov rax, [r12]
+	add r12, 8
+	mov rbx, rax
+	mov r8, 0
+	cmp rbx, 0
+	jge puts_abs
+	neg rbx
+	mov r8, 1
+puts_abs:
+	lea rsi, [rel print_buf_end]
+	mov rcx, 0
+	mov r10, 10
+	cmp rbx, 0
+	jne puts_digits
+	dec rsi
+	mov byte [rsi], '0'
+	inc rcx
+	jmp puts_sign
+puts_digits:
+puts_loop:
+	xor rdx, rdx
+	mov rax, rbx
+	div r10
+	add dl, '0'
+	dec rsi
+	mov [rsi], dl
+	inc rcx
+	mov rbx, rax
+	test rbx, rbx
+	jne puts_loop
+puts_sign:
+	cmp r8, 0
+	je puts_finish_digits
+	dec rsi
+	mov byte [rsi], '-'
+	inc rcx
+puts_finish_digits:
+	mov byte [rsi + rcx], 10
+	inc rcx
+	mov rax, 1
+	mov rdi, 1
+	mov rdx, rcx
+	mov r9, rsi
+	mov rsi, r9
+	syscall
+    ret
+word_write_buf:
+	mov rdx, [r12]        ; len
+	mov rsi, [r12 + 8]    ; addr
+	add r12, 16           ; pop len + addr
+	mov rax, 1            ; syscall: write
+	mov rdi, 1            ; fd = stdout
+	syscall
+	ret
+    ret
 word_main:
     ; push 1024
     sub r12, 8
diff --git a/build/test_read_stdin.o b/build/test_read_stdin.o
index 05acd01766c59c3b9f5a94ec308d9dee22a1604d..27caafde38952d3a34fb595d63bef1b2b239eacc 100644
GIT binary patch
delta 1967
zcmZwIT}V_x6ae6vyI0-K(A``UH7P+P@xjtSO;GWnc1=sOB8^f+#Zp$W6)VJ579Tb-
zTqb;wD1(RsD{CR@B@?yQLJEA)5Fx2xDGTh6N@<&!d(`Wpd6=2~&N(ypfBRBjr}hof
zpWf@4G~fFsk5;i*D*AGo7d>bqvUP@OV<;aEu{$)?w8NswC$>N{6>~I;Q?lq;R;HAM
zxfhLgkDBCrU>H)f%WR&p;@y*vMD~d23VZj27kR!GrM!p?vAKT{XV|#}I~{GGFV0?a
zh7>$g!-?I!Xf9@b#te2%`N9Sa@%#9S&($QN5)wG@Hy8|z{0;_rmZp5sK*=(P9yQ7C
z9yi*$pE|b&hJq;N$1>YwijVS&`e~j%CXPlnUz(|ux=zVCB@LjfLp^x&D!|wR-hsRw
z+>5*${4R1WkGjZ96c~VlS>!jsza!TcrX+%H3_OPXDCFbdd!@V9i(WzCC@Rnngpz9H
z3y|N0{3CcL@^9e%dKdezKwwB8;AWJ+De)t>g1<+e08SLS;98dqz72UgcfLO*StyVT
z1xJwY2d_e20`5d!0X~ep4&1MZ{dKJw0<);#JUB7vlKHd?d?)gY;5o=IgBPti?0*#k
zC)WbnMz_JMk^8{gkUs(MMLq={$KPdr`|N^1HVTBwD?rIX<lDjPk*9(Ckr#r`A+G^<
zeLw;29#WDJqCZYTE<r&)@>}4A$S1&$BYz8iM)URi{|5qHs6dsMl9Dmxap3Qer+^#8
zS6kQ8!IL*Q-#_=i0YYrx1se(oISgKkycXPn+zIYM-XYw|U%zP-=wVBdF|=RyS6HGs
zCibRWLLpmp=Od=~SgARNK4e|IAC<kI-RJXZ+0U~{^Dag$<%XKpX5WnEgtED&$x&PB
zXsUFyHa4<EYYwZhG??02PCIKWt6S^XG3y03WzBFgxTfNkh^<%nzlvxB$Ror-@HU}y
k@jNXD<zr1|kgtG;!WoP8MSeScvgS0mkZ_LjocSo)KN!o<WdHyG

delta 1877
zcmZ|QUr19?7y$5d?yk8%Vq2-p1SMNwNij3f9>S~#?^444P?^Orv`qUWwlxFehE_Df
zavdV}P-yicwx@~gt%*`75rcfGhcJB^VueLfY23~|_hZu!IuGZb`}@A{oV#=XEK%BD
z+CM<Qh6XFBJM_Ma*0X%7_YJfvx8FiUYt1x{Yxv<Hi_lUFaTxNJeWDdoB8P31D(MAw
zM5<@6GUu(b%hS7H_5@`Yi<k?e5ot)?S*HZYm9oj0Uieb)l)hcIy5Kiu>(tr|rS}){
zS-bKSI##!PvHJrrw|m(A%<>w2p4YOA$b=+MYMPde{?RlsyRN(?y~`Z#>Pt?Tm0NLN
zUh*+ck^eG>rNHX{&Fg1*`gpX;a)_#4y`E4qAdczIFNT!F(<DYW!Do>7ft%>+K=?oY
z%<u!G2o*%2U<dLzcrEft@Dps%=2Wks=qyCLkS~DWM*b5#j9ddBMQ#)4l)N*XRb)9l
zGbpDJa+Z;ofaghK@>Ew2Ucf?GPIVuOdLVil`C;%j<c;6~<jvrBkY5CUVz`>Rtg8?h
zK?ObF3FP;{7mz;!H=9yZi@^Z6YnAi$UqE2*ssJG|@Keagz*~_|fp;UH29F^Z_fh5V
zMgj%qp<o92cW^U*QCGGla5r*U><lIQk!OP+<(}SuKH~-mw4j2`;BCmagR96Z!5<>8
z0WZ!-UB0pYIS5pz10v%F_%Y;R@DAid;0fdt;B&}7N@9IVKBK@FDA=NZk5@F~p`xS~
zd9k=vlr$jU1Ky7OICxJ93N%6B4f0E@%<iPu^gdq|Ig1+nL8LA($eQd<(*qM>)ijre
zS%_CW7yU3B<Kt1$$JwIY9jZ68O^yaul+(Vh+226|mphxifzI>37VjDV+30mgqr`r!
z-^Ri@K4#B#s~xb2zAgId`~xpq0C_f?KV9MaL$IWYXOxT}Uk0B;-c7^}Ak)S+IEalW
Jh@TCK{{RQR(3t=L

diff --git a/readstdin b/readstdin
index 6541ca6e9088c72b796ca3032961d42a9edd2af7..5f6fb0700da3d45394c4c7f01e4c3123584f170d 100755
GIT binary patch
delta 1917
zcmZwFUr19?90%}ox0!m)oX)n?B(345(+8<A^W|n#Th5r+KQuGN!2dIwSRu|>QA<Xx
zLl!}l^-vF^GN~je70Z_O5>i;vlNu9z$V@Aw*17loH2u*Ye)sVCp5OU%@BBq=#TSfR
zpEuPWKD&%azuB(NBT?K@s!`iQU6WxJw@TmL80}MK7n<Dz`I)bJ#96&!+3DF3VRe7A
zrVd4gm|Z`KBlK9Jh3jwmoS!}A2+18(MG%W?Qk_q2+V%16D!rxsfIdu|*ivZqgjDf_
zSUr&ro*q}H#_r`6gzw?RrNv_QY~04vN9qhk2T#Y<m9!{2VLLm_OO>9e2npo<2?hhb
zzk)%wfvl`4V4GtgZsd9%W<K5L&<1=#G-YOv4rvp3uh>7#rVn&Y@!=Pf`kedN0)%j+
zMlDFA`BEkgIMRT;2D}w{6Sx<7EBIaH=VW)1*C?RSFoOIV_;=*D!B<2J(rCUs0M{UY
z3cgu#=lpa+{1EIx4R68Ak$(iYBOe8CLp}-KvDn4^XCUw`4w!M`KZ1Q4Kk`WMG2~is
z5+jI>3%@nstC5?Sv;8@;2?bfuup7Ameh9e*+=09h{66whaDR-j=>4<vRzWa=8XCcg
zMp(F&I5+`rMD7C5LGA&!E;#Ie8G@39K;GvjcsX((cr)_H;2z|I;PJ77yfD-+P6)D5
z5Cq?ae3e4%<VYoQBe);=R`5^AOTeAuD5!%Vaisuflpkln1>~LJJCQ#F-;ewQc(v^R
zzW+1?CsD(1@B!o+rFbxoj3QqPuG9+h$)TFSQ<gZ}KkL5%AzQ$6moyNP2VQ{uAb36U
zI&e4gX3=BW4Te#0ie{$hxbsrIM9Wfiao43K6eK2T>7DLSFPnLf_Otp#s{M3|jo*kh
z?!DBdBsY?Bm%NFyG})kw8)K=OC`l4p^D8Yd=(t<7%22JWXlm%T8H*LmE9~`$OY7~W
z^-Z<4^lDlT9X8a^9mXj7E^V5=Fs<We>4d2_vMp5JD1<$%^kKRw{E9)AA9Nx;i`^+X
G!|)f@qv}rp

delta 1850
zcmZ|PT}V@57zgn8%wx`loK4*sV$>$f`7tB=q`PGoowY$m5;_$t{8*Z4rl@4hluWUK
z?j=IdsHmW;5F=&~Y6eymC|-niBT2LiZLGSmP}Y0So;mhFyLisa@BcpU$2qX>@^`MG
z9Ik&jw<$TegDAh?_`|CLcbTSXi^ahTvs&uiAYEsj-o!fsAx>|~J%NtubJIHo718)P
z)-oj*$$Qu>&?S9=YEqzT(XHXl_TDwMeSkO9MsfE<qxKnpz$p#PN`>$J@;*~?k-Ud?
zItPAAxgUf?d7oBIhbVC~&SRmjW!A2>)6@EcC*^hKcr)P%3An=HaA4wZIIOHLEBghi
zHW>`cTfS9Gx29Xgz!;vwZ_x!YQ`7c`^?zm4XU9XjWS?=`Q!1}OIPySiQ%2EpMHz5p
z8u<<I736*32|AlHiWc90d^F;x$R5=26dLv+p9FUxe*<1h7fc4vHI#mVv;+A!@IK^0
z@Db!2;4hK$^4DjtZ!zMuE=y-$L30c+XA`*zTuikot4E6!Jd@6389YTOErPTXxdXf&
zc?ozs@=EZ2<h9`UBkqZwiZns+0ySI*pGSThd=2>!xH>KV+9TlRIA{Amfxs3Q5Hb#4
zf&3M?8~H4F7xGWwe&kECd)UXFN5LvItRP<lSEt9{>^Jy+<Xhk;kSD3+m(GzA=CSwB
zNC!a;YS;x{k31XPgS-&@E^-@qmVWyJk^Rp@a6A^sM<ku#=aBorn~^^PpGW>0d=>d;
zm9jra)=}^s8up6YCshu_CCCqsIFM(8mmxm_-hjLqye9_*E(ks%ucH^T4P1*{Gdh$x
zp|DOlQmpjQVU`XmX#z1CZLx@rd~}AbFs9VUG{nZwl{!gH7DGk@>(a7|5%j-1N6)Zy
zQAt%K6|LDvZ(8c<P+mi7bz3uOZ)&NoYHzvJT2pngt#;yvrCdd8^YW-B|Ci5d<bu>>
gol0>hMNXB-9uB&0%}?&OL}Zzo3XXCvT2^5B2Wj`_H~;_u

diff --git a/stdlib/io.sl b/stdlib/io.sl
index a480b15..8ebdc89 100644
--- a/stdlib/io.sl
+++ b/stdlib/io.sl
@@ -151,26 +151,29 @@
 	cmp rax, -4095
 	jae .fail_mmap
 	mov rbx, rax          ; buffer addr
-	xor rcx, rcx          ; bytes_read = 0
+	xor r9, r9          ; bytes_read = 0
 
 .read_loop:
 	mov rax, 0            ; syscall: read
 	mov rdi, 0            ; fd = stdin
-	lea rsi, [rbx + rcx]  ; buf + offset
+	lea rsi, [rbx + r9]  ; buf + offset
 	mov rdx, r14
-	sub rdx, rcx          ; remaining = max_len - bytes_read
+	sub rdx, r9          ; remaining = max_len - bytes_read
 	syscall
 	cmp rax, 0
 	je .done_read
 	js .read_error
-	add rcx, rax
-	cmp rcx, r14
+	add r9, rax
 	jl .read_loop
 
 .done_read:
 	; push len (rcx) then addr (rbx)
+	cmp r9, r14
+	je .done_no_null
+	mov byte [rbx + r9], 0
+.done_no_null:
 	sub r12, 16
-	mov [r12], rcx
+	mov [r12], r9
 	mov [r12 + 8], rbx
 	ret