From 15e4013f97ded90bf306daeccd9ce68d5f1f73ff Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 29 Apr 2018 07:25:43 -0700
Subject: [PATCH] Fix tftp xlte bug when writing text files. Bunp version

---
 PLASMA-SYS1.PO             | Bin 143360 -> 143360 bytes
 src/samplesrc/tftpd.pla    |   4 ++--
 src/vmsrc/apple/a1cmd.pla  |   2 +-
 src/vmsrc/apple/cmd.pla    |   2 +-
 src/vmsrc/apple/soscmd.pla |   2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/PLASMA-SYS1.PO b/PLASMA-SYS1.PO
index 242907704d705e95e0b8928b0a95efc99dc006bb..bfe2ce17837a647da3b7f08e64dd270dab471b1e 100644
GIT binary patch
delta 2657
zcmZWq3wTrI8UFr1=aRHEoFJD1N$DkNZRw;|>4w{omL{b&X+m@ApxD_dbR8;#30?6*
zI1_PWZ0wL~L4|3=BNNv`D}<pd8?25w=e#i8*aj%_Om>0IXFhZ*JKdX>hP2J|y!pQG
z|KIcexA#A1<5}y*v)28y1<z+f{_=33{D$z-u<8vE4O+=YnRc4vcG~mk9MLZKR5=<F
z3jObbLMgwA3R#FG5HjVf%uJcnoMFKm%dSceen2wKPXler2n~XLLZK&bVW2WakE9Ef
zMza)}>*g5=K_xMC&voKItg#Yqm2GM16Ef@*dl>I$v77A?q6g^Qm^rP>qvHh`iAg8s
zgmeaR5(@IG>dJl9OOk_`(@CI9;?UZXi&Q8t92~Vm(}fjIwv44sF0ZQ!6UHC;nX`yd
z-|$wY$hpJiwcZg9qM3u;x?meCH?1bPw4%PDVT5VsL+zgNYL$x?hDJDu5%V@IB4^wp
zJih7*Z{0Pb83gT&Fm_Z=xYAdyrqIGzYtFc}=KHGs-s)hIXWmXCJt#vhGWFVVDwOLT
zb(CZ-qe-+bXY8nj_39#TU9DFw9ac2&gWJ|j981fqtV&q{cCHnp)+R>1HYk^s9y5pA
zjXM~(WX_lgU;K|5O-wLeWSl#*P@Bx?WIVQm8=Dyyvvc#@9<&ZHV+*qy_oAnh$3i|!
zfj=<xaI9M}tPraWEglw|0I}^5t5Z=AvN(H!4KhPvT&VxjlBGkOIGfA{#n>UPG~Chn
z<vW|ca@XC<S2TaM<!dXW&o<uKqi~(Yj$|9}FmAnf)z??A`NsWg@mxPM-edOI9xkl=
zX4`r+Tw$@jQbeKmD9;zFPwqAn^C4V{Qf1WAWrd2oes3Ur!@^+Yu*0Oy<RHpU(uVGi
zLLOfztfp+G*#R^BeViGl`Gd7pHIYElU*?nW;3MNac>T!nU7ex%G~{j>Cs*K2oO1Ow
zwP#@b(s9Nw2#2ae!MdagBc=hl&y9EV!eDKR1<8C7ZYUV-25gB(^{Js07n)so@jRZM
z+>)V0p{a=>Q{>EpSn4edy`vpH+ZQUETT+_bVkr(sQ*Ki3>JGcB;pUVBGk=9O$m6yo
zKi~}nQcP|B2FIH3NU9|gI67{6;WyiZ4{wNU)V}q|CRpP#GisO;Rk+Y2oVvo4M<4t4
zceZ?Y>-WCD?FahyX#3-!{FB8_XBqQh-6wYJM2&k;0qd?}+;|O*Pwm=0-1r6)Vpq8M
z!)Ig9?Lo@`+k<<sAB^W;*gMR48H^{n@S}Y%{TK~!<!&jx#>!U^wK;6mA5TBbK4ntp
z{sY}TFN5%3cIZ{sz}cmaWxedPQ_fSfR3r$kQcJPohey+jGMa_>-d?uOVk^zSE){w6
z*LUO}W0h=u$34f`@yI@bv`&Ha!-7jcB?#JC)PDmm0{;U34fF#802fJ@MW^NvNt+DJ
zM4gTLM#P&D=OKPUbZHfcD@8$HE!y<^MT@o>+-<;iU?=)^gZmQlE|DTyH<E+EVc->X
z_Cnwo;%QOPK0y2kLZ1MiidlNUXw?TG$RyGPAYCF|k(_#=BxuFR=SYHHDp|C-=(`oD
z1gd}<U@@SA(<r&LyOG}qv`P`u)+2cc9h&6S9!0(tc{}nL@_j%ja1d=r&~^g(uYos#
zw}F$u`{+9b(KE<D1kR)WSaRutEa<YFrKibOJwvu=icI=-vP+wWc#|w>Wr*`4AXNc1
zAO=7Tfq1)2+ESnigcY(=-vF|Pd=q$&p??ed+JT+GF5ns9IrP6EJGFhtyOGE7+y(G2
z$u|8H*`ogkwaY4KxmMEitxl~7vBYZEGH$YxHV?%Ytxmn7<MVy24@MV_O^hcD9~Wk@
zE6j1|@K27s^6F1}kN)iE$BzG^@3mjX9Zq&B$5@W5a^m$kYiD@Tx4`hL8MnRh=5OD6
z`<-`B{touU)mh7w!Uu3Y^TV~3VejJPMKynq56`(VAD+0jibWVkUSjOP3;X>)ociOR
z{(Sljl<>lS8ZYb$E}Z@F-1#_r9rKF$1mgrgA~n)>`z-dCXtsU2EtutCi7^IxD(t<C
zfBe@tJBitKPinJGS{Zb-@}j=$NnPe>t977^ZkgFohFDBoeSQl57x)hl>LP)++Ll}V
z?x7-&H?0*Ct!^Y@BJuFMqUp|UY+m#!=TX)bUFPyk=yERS4VLV;EY#K>-Rdf3m!n5r
z)4h$ZW{clT%~ZURs|Ti)G?Ti)*+SVx{sk*7*~J$xE^xd3GtsYhIa|c+W@?(S$e&Kd
z64C@e@z~`aS5_uto@m*uHO_}!p<F7OJwKDwdPngfQ!hK!0auB-#Gy9!9G^9Z$Js}0
H@V5U0qR5M(

delta 2654
zcmZWq4R}-K6+Y+7y*D>44M~SkFsW&iv=XA0u2!BtgQulQXvt4wlPVPFkYQJgL)ic;
z&V`G=lR3Go7(^baSG*$QPvcsdPTa7YI;S1}tQ$&;oeUUKoR3ZrZ+DW=5YqcRZ_YX2
zdB5}B@B7|!vvx>aJ0$L%!8z^qK@Vg-f(UtFGJ(fYXtKjFnBoq1L06cY9=IYLsEY*a
zu8b^<M7=?P(Wzj7A|q^F4=E-jnGCK<(`HtmCytha9_Hjxwxl3gFh%R?<EA^`qe@vT
z!$d#m0EE;~ikb8h-{C(KAM3}<a3F5$$Ek+eViP74Cwu4i<Etp@4SD$!3XBtbr7DbJ
zmx<lk^FDSO3f*8^&0Kw#Lv)e3Gi0VP{?NzRT277|SoE1o=(jeYfSa?eHZ0WzilE(Y
zTgkOMY%BQ=r!7A1Fg}6}@g0Y8KX%7E2GKd8+p?6k>TLZw=p2YYF^H9TEdI_QPW6VY
zZMuLL+Q7Y*MW3Hi(FW1mEbU-(1!_BVHutGhwGKz%Qp!iWE$zIm4Hi#m2;_rXAUDZR
zPCM4?9>OBT$#L%yTwz&m4VQvz#+)LEwwT?c7(Hf*p0rj(7nq}=-h)T*Dn?s1Dy2rn
z$n-_iF11*TFY7YT9!Z#39x8=K^)+NdiQVBWD^DOhi|Xshsc)g6gnco9T`-(;_^a%2
zpu8Y?umCA{8Zgk8PpWI4mwicE01*1pmzcRtKRD}~LXA!7*~wom1U!`MQ+J(3vwP+>
z1JL?oj}{?bXdKVsX{Zm6amZ>5fP)e~w_K_BBI$y50~Erll3be08}J4rSJpRqys4To
zVL6xqY#Clk<9;ajMjO1%jhThD7>TjckfEg<+N-Z|u9vnk_GtIf%MEh5v@%~~z?*d@
z+AnCUcO|zPb6;o#Kg{rjtFNx8%)FlPE7}B<X3Cv^Ij1iiiDs|bO{<<9x2oM2ZW(*A
zq}8@jJ6D=A)shY?@F%p{jH%7YSg<L9Pim-MN76XKxaMffb)=VbsGJg%5Yt`1u$97Z
zQQ5>PFEaC@@89@?#WyYa;nJJie$;+T$Ff@!=AMxfQX<#O<>5Ir{rI-qSN!CsD_5<)
zqw~%+cm3>cntU2nBNnT3knulXE3LbShQ2{{E{e()rn~q42h#PsIb{dq9(-v1FH>;>
zcaQSvy0=o@i4Q-rLH>2uqZ=QKZ+d+56I*(57JiQE?Pyco$aGtuQc|<j3gncpnBnPX
z)MvLpx8pZEY4m@noHfP#a16@kHP`tX7i5k{+e1e<GEP;F#*jCfA<+>gh^8NR(o^O)
zEu7oZ+B(M6dZ;s&jq8jlfu_*B`LW;yRrM0@o^iagpf?yycE|Zg+ea5yX1?g+3j8oR
z+|(S+R@EP=S`FsX9Fe+ETI}g^G3|BI^6~Lnj(B`^S)0|~qEB#%F1K7+B;<*BuN`|g
z(EduF{^5zaG<&2e`&$9phg5A+vf9OxFOP&9llvH}r~QLYc-FX!a7KO6a8`$FAJad{
z=KS1MFK<b<?S(tjKBa0k7vC30M+Zs;)9v2-d|Gc+oVtOO^TLb2O)KY7Qci%WRmjv$
z$P6$2?&Vj0|LXqN{*Y3Tx&=*Y2QsCW@dx_;^yfEd^cz$>qOy&#H~&J>C?;_GD5|@W
ziEqF2ZvWp7zV|*2e~s!3XjEn~_QBsN)KK{zQ|HsV1OGfk@wcdkkjwXr>}G&YvjNWZ
z=HGx{qVUn-!J#9c5aTTNEXG!br{jy3;5CzvLYv^?xYa_t+Y~T^E6-KXG1J`p>=In1
zGt4ZY6LopZ*2JA{=)pDdjy60H+s1*kldy*ac^_w$4{@Aygkt)3NF#**622syA)F)V
zc#uWjA{Fu=T|%%>Ttaar*{jLcke$t2rFyc<curoy8|0O|PI`d28wg#5&6L|p++94x
zq`fqdAoLLS5niF>ekyQ)>>$rcpOF2O3VlKNiZ7PW@S=Q<3NisCo-jcG*(_LOm%vF^
zkY6Ei@^=NDR86^Bf|t-h@DrK|EyTG|uu4nGUoONzx`UiGgu5xRPOwP#lm9UJ8_9o~
z{GEh7gdQ4una18E|82s%goA_+2m_QmL`8?lA0`~7__$z|c|9kK`eHd>FUm%}PBQC3
zo}{-*MP#e=oODf$oEjoE5d1_85%F3gUatqKm2eZ~+w>MWM&xzm-$%R$DZid_8wr~U
zPZFLYY@_^ky+ztdeuDg$Xx<6ppVk}XFZ4S3EXBnlC)q`i%SDScgRFU`Xq2i%kZLHH
zBU<G8c=avVr&g2D-yk6lAN_Y)h&9N$c2P%8A8V(|bbD$isMlBI_Bze^5S0NY9{<nD
U&rXe;{+tHBM&%=;`Y#OpA8gs26#xJL

diff --git a/src/samplesrc/tftpd.pla b/src/samplesrc/tftpd.pla
index d5f7a50..ad307c3 100644
--- a/src/samplesrc/tftpd.pla
+++ b/src/samplesrc/tftpd.pla
@@ -229,7 +229,7 @@ def writeUDP(ipsrc, portsrc, data, len, param)
             fin
             len = len - t_datPkt
             if netscii
-                xlat($0A, $0D, buff+datBytes, len)
+                xlat($0A, $0D, data+datBytes, len)
             fin
             if fileio:write(ref, data+datBytes, len) <> len
                 puts("WRQ: File write error\n")
@@ -339,7 +339,7 @@ end
 if !iNet:initIP()
     return -1
 fin
-puts("TFTP Server Version 0.1\n")
+puts("TFTP Server Version 0.2\n")
 portTFTP = iNet:openUDP(TFTP_PORT, @servUDP, 0)
 //
 // Alloc aligned file/io buffers
diff --git a/src/vmsrc/apple/a1cmd.pla b/src/vmsrc/apple/a1cmd.pla
index b93c896..ef13b68 100755
--- a/src/vmsrc/apple/a1cmd.pla
+++ b/src/vmsrc/apple/a1cmd.pla
@@ -40,7 +40,7 @@ predef sext(a)#1, divmod(a,b)#2, execmod(modfile)#1
 //
 // Exported CMDSYS table
 //
-word version    = $0110 // 01.10
+word version    = $0111 // 01.11
 word syspath
 word syscmdln
 word            = @execmod
diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index 2399b39..99c6f57 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -37,7 +37,7 @@ predef execmod(modfile)#1
 //
 // Exported CMDSYS table
 //
-word version    = $0110 // 01.10
+word version    = $0111 // 01.11
 word syspath
 word syscmdln
 word            = @execmod
diff --git a/src/vmsrc/apple/soscmd.pla b/src/vmsrc/apple/soscmd.pla
index d60bbc0..3796cce 100755
--- a/src/vmsrc/apple/soscmd.pla
+++ b/src/vmsrc/apple/soscmd.pla
@@ -29,7 +29,7 @@ predef execmod(modfile)#1
 //
 // Exported CMDSYS table
 //
-word version     = $0110 // 01.10
+word version     = $0111 // 01.11
 word syspath
 word cmdlnptr
 word             = @execmod