From a036a8bce4e254afb798e87dd1fce8fed8d0cb5f Mon Sep 17 00:00:00 2001
From: Lacanoid <lacanoid@ljudmila.org>
Date: Wed, 12 Oct 2022 16:03:29 +0200
Subject: [PATCH] kmon.s split into smaller parts

---
 boot/autostart64.128.o | Bin 3042 -> 3042 bytes
 boot/autostart64.o     | Bin 3376 -> 3376 bytes
 boot/bootsect.128.o    | Bin 3926 -> 3926 bytes
 run64.d81              | Bin 819200 -> 819200 bytes
 s/issue,s              |  10 ++-
 tools/dos.s            | 187 +++++++++++++++++++++++++++++++++++++++++
 tools/pip.128.o        | Bin 11531 -> 11531 bytes
 tools/ted.cfg          |  43 ++++++++++
 8 files changed, 236 insertions(+), 4 deletions(-)
 create mode 100644 tools/dos.s
 create mode 100644 tools/ted.cfg

diff --git a/boot/autostart64.128.o b/boot/autostart64.128.o
index 61f89a2d9abcc45fa9bd3e7dd1cb192c0462fadb..500b8a37b8df6070e310bd8386997268f153f82d 100644
GIT binary patch
delta 14
WcmaDP{z!a63iG5%vp1$!a{~Y|(FR8V

delta 14
WcmaDP{z!a63iGoyGd8AIa{~Z0ss^$E

diff --git a/boot/autostart64.o b/boot/autostart64.o
index a98c00100ad89885ebe7d3781f686846a5083b3b..74baf505bff93d6ce0c824da6649839df2321682 100644
GIT binary patch
delta 14
WcmdlWwLxk^3iG5%vp1%n<N*LJq6Rns

delta 14
WcmdlWwLxk^3iGoyGd8B5<N*LMdj_Kb

diff --git a/boot/bootsect.128.o b/boot/bootsect.128.o
index 50d86d4a1ee3aadbf2819634e8e4b22e49509bcf..bd39d613b3231617e62fcfdd1e761c777d6e4a9a 100644
GIT binary patch
delta 14
Wcmca6cTH|W3iG5%vp1%{=K}yTEC#dy

delta 14
Wcmca6cTH|W3iGoyGd8Bb=K}yW1qUAh

diff --git a/run64.d81 b/run64.d81
index 53d6351f6fa7012f39c8d865973b9e80add841d2..94c5b3bdd88f9ab1fd7dc2d609b9144feb2d2ff3 100644
GIT binary patch
delta 5688
zcmciFd0bTG8o+VqJ#z*aML`zXIjkZgiMga^u9ORkiKS9zBODnL8Dj>~mMfa#lKb|g
zSyH)WT2{u`Zi{C7Vp^7zrM9@V-)x2Zd%gGmcmKY8`t*f!&J6GSd!OOn>g#*d^Ungu
z0=3UjmMEXmqGFUN%V>2NqSB03arlkb<Z!yt*I|mv;JQmxCWMH}f>2S}5GJZKxJBha
zTTxx0oz!<RO6A5}W1AyfR97yw7nKJcM0JA*QTaw|(9zvE?~wP>j3^ZoC6V2Yb8?};
zh;~Ga>cLYnqArJ6Q9YrPs9q2!s<&R<UgKu*^f4M838JpxdZMVlkR+-fB#Y_~DWa}~
zR8a$feO?7=q6R{`%p7DyOY9)yoFhZjU@m2f8Uk5CHPmP^RIEdk5GIx|!?{kF5#SUx
z5~wl?s8R$}84Xk!15_yns*DAyTnp_)jRS&|071qBL9PRWTn~|=CO}6~6Cp~}B%nqq
zP~!%m#*ILY$v};pAYRlIAjQo<3J;KCDv+WKNKp=?uz?iQbjAI~etEjW7)}l4<vJlM
zfe^PqmZ<5FEvgDSi<+Uwq>ZR*qorx4F)Bi=?#5HB#Zh34lu`9Y6Kjr~XS^jR>x~Z5
zJkQ9~tDnz{S^ZtW>K6d3UkI$e0a*PaVD*djnw~Ijl*vnst!!X$4<kdemKrDYF7D<T
zcCifD#d2U5D}V!C32b2%u!YsY7S;e;SPN`noqq2Z_&!!o+BVs~!6;R69P!s|Dvl$*
zhkG3HMsP~=CVumZO-6|1Z8DDP!@ig69QJ15u<rv7`+nfCx9DMhz*z1QtI?=Yagh?)
zXe^TzI}E=*%$+>NVLlAeLA48Xh}}qtJw|J2++cTjCST%s*0|WT*HFwu2WN|lXITe$
zjAgw9Oy0}DVqO6j^D3~IgTP`A0gHJJn7qTl<h>3|-W$N=y$MX-TfpSK4g98efXRCo
zSnPYiV&4bO?gQZLjsQ#k5Loh2;Ove8XZI0sb{_+icO00!Pk=M~6gaaJz?n4zXZ9Iz
zW}gFRb`m(VFMu=q(r9&N#rNqWx1Kg~<+4-82m0(zbCdBqqfd(Q`w9~{xjrOHAkjD6
zCegP*qO(Avb3mf=K%xskqVIr2-vfz$022KOB>D+R^fQp?7a-9;fkeLoi7o<(euF4!
z{>?~~<ll|cy3-$AqSK#1r@w$se*>LbfKIKDuwFSYWpY4LQ0bp^ASb5EmW!dW5@$NU
z)s<XaqEZM@DHNy_22^qblie1m(+;Q;t_OxX?J<!$Q=BbL5l)9gr-|ed(sTsUL;-1{
zfiy8dnphxBCm>B6kR~2TlK`Yi1kxk{X_A37DL|T3AdLl4(p81#Nq(C1h)$EvCDLR7
zX)=K{SwNa>AWdgrgmQop>H>^VE-*q}fkJt}2z3ME<O6Xo1LAZC;uHXJdH``Q2jcVu
z;`Gv^LY&^1M4UxhM&}A{)2A=crytO#KhWn&pw9rH&s9L5fk2-@K%c=tpCLe>p+KKu
zK%YXO&(%PmYk)q(Au6awfQ~W>iBbea84W}k14JnXqKpNiTnj`Q2Sh0WqKpTkTn9wC
z9*8mlh%yl}<kqpSmD1~vka2Qqk~77T8C0dtRu$ISk(86<ZnM&o$jQ!lu_il1BzLm&
zm`ZG;ukb&MH#yI$WI{bgsANLj%-a#l1B99igen6<l>?z{Ak;J<R0R;q3xui!Lfry{
znhu1j0z%Dzh@h$lN5`O=sby|zFh-(hhpd(LerJ{L6yOq_Y9TJDX0a1TVo=S|FCfb8
zNR&H(D0c!;{sBap3q+|0CS@KlDf59zxeJ(-1;C^%)RV!aG++t=KGG6kF}De@1PHJc
zOetL&k}uuwcD}DGEaMUtmID=502NjO6;?r8DP0w^U3RW^P9jC=YW@8hz7LnuHGH32
zVa7}1+K_=NrM;A{)pyr%w}X_f)8DV>`v@srA2Lx&H#m3bkrLjNk-7)?gS`=`wh0)l
zdx2n^p;J)Z2YRHoAS2ZXjMM|bNIeMDdkCnv6{xojsJ9)cw*#oR6R7tvP;VDd?-8Kh
zZlK;CJucLH6jQ0!s-@muZd31ZpxzU}_&f=O+XsYu3JBK(gbM=U_5<VdG%!BT0ORv4
zFh0)#<MTZ5IeP(!@*)uB01)LRAj-=?lvjW#uL4ta5SXGvprahdL_KbsWb^AzTbFr*
zOO$yNDDxIj=53(NJ3yItfimv_W!?wMd;pX=0+jg>D05WL5oL~{MVZbfQs!fBQ|35O
z<`baIr$Ct#K$&I;4XV#TH#vzk`2uM2CD7y)(Bw4G<P7kU`pVgA=>4DNNA`aX*#CK8
z{}+J2Hs1lG@jX!C2VgXQ1Oog71o#<Jg6bF0TmKc=`bA*tzX4nS9oYIGz}Ei+w*D8e
z^}qEHu=N&9W9!9iJx#4w=B1rGfSv1~*tr4h+zIU51ZKho%tQ#V|4?B6VZi>~!2a6;
z`)>#AKOC5e_P|VZ0A?Zrn2AWBNk@nYswk5`B4mi=M>2E*GQ<HH;(-haK!!wM4w8U5
zNCsl005MX57#0vC4TzBr#K-_*WCAg=^tlrw+icm8W2Q@Hj+rY(b>=>muB3n~L9R3_
z-J+}6>U6Exm?6zQ%?!!OGmq;g-OSd|(9)t`M^^1_Bh9_Jlb3HErO&ZGW~!uJW}eiM
zy7SwJQ~><3>2Kx+^Lp@<Zq(Ckb$3vQ{<8Xo7X?G5Adf#hnZ3+rU930HQ>+hA><XY*
zU!Yh&h>@KIW@a$Ezxk;{577XwQSU0C-aw$<AfVo0pxzLm-cX?4FrZ!`Q15D>-ZenI
z;Xu6+K)sPby-`5DBB0)AJv!7IgBgs{7A>EmvE1fUbS*GT<A8o8z$}dix?Km%()GYB
zO#m`Y1TswmW~mgygX#v*Q#2WAauY-b)f9b|8Xly^RNymJ27IQ<fgCpQH)R^=5MCri
zB_v7HWRw3>bc=aJ*O+d$x>C00?OAd_3Z|G*l2B!St-H+NQMyzEU3@^7nLw9Yfi5+W
zC5r>*Y`M*EE+Wq2T63Tb4wwfh#H9v(VYW&q(=762lIb-qnP&4^GR*-p-3Da39msSC
zkm*h!(?5VrbAe3tK&E*>ruo1}?k-@Q767pp0<ju^0a^qM&|)Cj5+K=9AlcnOvSmQB
z<-i23048W95N;I^ZZ$ALYk+2JfeBg%lv)pz+5nUipwvA;sf|FXO~3@*3rx^vV1n+`
z6GNK&F^e?cYf00{ZPGjdq<IiX^AM0`E0AUzkY+oOW(SaFCy?f0Ak8iy%_BgX-9VZ>
zK$=H^G>-vk_5x`h2huzNq<IoZvkyq~6p*F~ND~Co><7|34WxMnNb@X^<~bnE^I!$l
z3!tMMK%%?^M0pvA@(K{;RUpbiJs(6lWVSRNHd(Br!qwXJvB`fuu*Ty&6dhEbfL`4R
zWOdEJ>OKQj_c^e-lfde}09N-Uu)0&g>P`czI|CftSHQu24Xp7SV2$4bYdj0A@f@(m
z^S~M}=!0U7-?7FY%!r)ug5KSGG&Yt@YP@_{W263$`coU?U5j0+4POWJ&sD)c;$2Q7
zM77Cr&F_*aX0j_aENfKZq>@IyBs|I0DYx^0Zo>*k7ngMV&({F`>Pue^{yjfCVrX$u
z@i_egS&{7O6gIrDsHix9$lwyGPIkp|klT1uj_zQxYcBgKOmThA$!Dc<v7;1f;>Fe&
zvQXocZQu&OdPwh{jj}7%l|a%nsk|yy4q80WNzPcVDGXR)8b3vft?4KWHBqunlPU+(
zcqCr3(p>{N13UfFlM6LGqKTJ-ngltcNfI-|^`bj^bn%!G<BP{-4wXkUSbUb8$>46b
zn3=qt5<8PUB+HphF2)4SEZ3h`&h3&h$yaODRaRA56?VX?^Lhf-9Ilkxe!FIto$q$L
z$9runP*ZDLCBE8#*RH9y>O29vW`<qmtF|irmdBdv<2%nxPfZ}t@>G{w)xLlg@L5xB
zYldANsPt9a<@}0(*InkDF@v9Ktbn(&y277t&9z1Z^m~+fEA45PZyGmjtIk(bRo>Ze
zRn^X}t*NyAdDe8Ewx-Uxbho0$Q)cT&ukn?;eY1Eo4~y5Yn^sd>8Swx2U2K-)&9|%x
zUc1`jms(zr-wJsA0TxrqLV3aT>bbtUHk<ta-ZpRH_EcBcResC%1b8J&tK&6#H=h5w
z`GBrfIEy?!-}L@goqk7O9q-Q8%RIGy+wJGK)YvnrV3+5+!@|0CvqpPrrd#9dJeAdX
xR=OOX>PoTy4;%H>HI=#exMv4dxvNDrcwG(NkOpsPgEy?f>u&J2-R^A{_b;)?=KTNw

delta 5377
zcmXZg2~<>N8^Ceyd*{x;2m*@i%LN8RLR8FMGgQh2SG1H&Wf^4(K?TzK>Jv?Isc;LQ
zTrw<0v$V~a_H0qx%S_9Rw3MvOY`3i7`@f!#)9J_DJ2SlR|9xgUr`p<_TK-vPEK~bU
zWs6ES+YKcu#cUU2fq7WoN;L-<4pAPiTcXmyDJmUYqPjw$s0;`a)eYRDGNFUiW}1aE
z{VH>(5iBZ;OCh4VLq}2B5GtyN{u7JM_U4}E1w$_6m=Q*2QN6htA?j-ABB~EWis}nd
zqWVF!g!eLMN>P8a(TEW>fJ?EW211;uK@cx$FeHc?0*Ruofh18wf&E<z$uck3jF8A&
z^SqHFY8aPNMGXg!UyU%^%w4DROhZK)qDFC%9HYS$H3n#r540Eyv=|4p7!S0V0JNA0
zw3q}PL=^xTCIcC!02yuoGTaDZqNYN)sA<qiR3Q-KCLqRiAjZu=j2S?TnGh{%7SN#x
z=uixFC;>W@0v)_ShuJ`fIXb)Fd`_M(Ge?p_`M6GnTYw6;f=5(2q=}jf>7pvkHWk@b
zR3&x^5M`Tf&GXDLVKQck+01&wmzwX%=_O{Uv@A6}dgXWXLRP*ESov~b<#oWyR{$$t
z39NjTUe8nJbh&x8xr4>$_BK-`?H=<By@Pvs4m-FH*g-w8gEhcOt_7CA4p{zrVEG$>
z<=+o1zd^tE%Vzt=jb@WHiCL&3S^Y?M5zX0d;z^wCW-z5?3xBqLi|LZAE#@(O%3Hb4
zDL)9D@;2a<9|BIf5rQOqyLnO8HkzT$+s%5X)bBQ{^cg<NP0nx+boQ&qKsVTnG}vdh
z2S(+(Lp=P5@uGQ2MMuk#Jc2%HD(2udp2nhH2L|p9U@30`OF0NE<q)ux!@yGB0tW7F
zVBp>X2JT&8;NAlU?tNh3J^%*pL*Ng61T6Llu-K1*V>=2Q+b6)1j{!?Q4jkL3z_EP>
z9NP(C;64Wi?j&$rUjWC|0vy+uz;T@dj_WjVTwejl^)+x@XUukoC#GLNncr$=N{_SV
z$NJb>xyjUh!#Tw;b?5YXac&P_Ea&zew@LIpkmx*+=m#Lt1t8InK%$F4qMv|7KLd$=
z0TTTRB>D|V^gEE~4<OMcAkm*dqQ9V%wEShpNy26GtnTzTm+15l(CJ^GQyb8!9ikhQ
z<4Pt2$fO^|`IQMekcElz(51jgiFP`^)0JFYqEaAGDF~?K1}b#`hB_Fi69Uxf=%5C5
zLNSIq2N<DnhhgY6op=gqIs<7UfHYlzG?74>C?HKVkR}F56APq?1Jc9;X%c`mi9nhp
zAdL;ANrp~xl?u#~>=egQohFq_r11c0(ttGSK$@<=2xR~x)D38p35?KHzzAglg}MVH
zlnun`0mSJE#OVdZ$pPZ@2I5=|#OVXX=}VM2;`Gyzi1RI@6VK=j;5K~*0(}MneFg)4
zh5&u80s0ID`dkb2$p!ih1NsaH`iubj<N<xI1NvMK^ce~C83mpEYBcC5`AC$pK$LMn
zl<`262|$#IK$J;9lmZ~iWFX2EAj%CulpBF4Q-LVcAVua+aITR)mtB+OOrayuNcF3m
z9PKJ7-H6YKcL%JoC47b>M(i05mt@Xx99QvO^%ee8IMeaHiX&7Q!4e2n#M=?77zkAY
zgenC>d4W)~flzaRP-Q?U9}wymAk?iusB$3GTp&~hg!)w_7~y_3U(4K7VT431a&3@?
zYDc;5RKq1Y-3C#9wUC_{v3_-jegRSLM55dUMENfeWib$?7KpM0n3Sc!q}&Zm$}(V5
zmIISgr#H-`tiX5z^v6U3tl~BSRs#X<0f!W>c4bS?dmTq~h5NWfg?gaE8lb{jpu#$E
zOW|5qlk8sam_~}ib^7-W{2nZY>-jyi%!-k?4X&XoF+>VC=(`Qv?I?x!>)$u>d#DsP
zxTZ>>ICklgdVn`&q&5Lx*qecBTY$mZ3Iux)BK>L`=#gqfMru1SQV#<o^$1XJ2T*S(
zP_GH7w+pDZ8>sgvP;U=V?=hg><3PQ=K)rps7WJOc6{$B1lc@I;x2g9uQ12OFeD(w3
zo&~}+1L6EYxaWXy&jaK00x&)=0^{=%Fg`B><MRseIeQg|asY_(8W81mAj%s+lsADW
z2Z1R%1WeIk&{5vTSUql=W$QZ*uP*a0mnicdQ09H0%m+Z34}mft0cDN=Wj+SV90kgJ
z0+cxhlsT?TQ07xzh%zhDrpyU$Q|5D^%t@fk7eJX7pv;%x@~cyzn|y^d`5I_)2552?
zXwnKa`3Cq%opZFCdjIEn$o_u-_J0A`|Bt}8%|&1|egZ1|42;GvK!9I?0KY+kU;Pex
z>z9zN{|RjUFJSAJfvx`yZ2cc#>;D2<Z_`_4>+L!LTYnOh*}7p}*}4L@ZUS3(09&_!
ztvi9CZ~;RR2m}ZM0=R(y9e@DAK!6Y+Ku2IGLV=+O1BN0T7>Z6nl+F<0R}mK9B6Nu2
zAswQD4lzK7SfE23&><cegalv^5`h{?Kn)wHkqp#G0cxZIH9SC#G@wSh#qO!m6>VyK
z=4jiPVWo(jVP#2ehSkMi(#_hYbc-yj-C@;lN|lyAR;pxlw@&CL*;ad?t1$nM(dCZ^
zNJ~HNWc9F)(dT%7D@l@jTBmiSUi>v8<pAF{gRM+|R&SoA8}+f;-5u4Tf9!!F`TjuZ
z)tzr1PhYD=7wgCKDb^n-HUKC#5GXbXB4l@t<?*KvwoV#)imu@r^@alVt_AAl0`-Og
z^@aoWMgaBlfO^*f^{xl%jRfkA0_u$h>Wu;F<pcG`0`<mGErojHb;W=N1*weEMDFq_
zngone0g!JpFiKN^Y&QU-bR#fIQ-Mm;fJ%kHDBT3Xel;ER5Y0f6%!Dw%nx(H2qZo-%
z0(_=QfzOl|s4*M(PMHI`gAeI&3&ctD49++ER_myaQEs(66Lw_nU3EZu&9XX6>|E=d
z&Qifs$x;bqnFnN<4`f*YWT^s=tgNvX$sN_!3fio^%^E7XHP!(Faj8yUSfo;^v{2Uy
zkog&wEuL;xrsQW>`;~`axAQIpy8{UJA0XJBK(M=jVE+YzEe3+s0>PF5!IlES?gl=4
z%YeCB4rHqXvaJ9nX(cd8tAKc`fq3@-@$LoU-3P?02S#ZPFiLBIgzJEW>w!_)0Mxr5
z7^McF*+!t50L>l%nr#A_Z3dcc0Y+&nFiH;sqqL1U9wI%YXNV8t1WY5%c5ajAVIa*T
zK$;yunw>zJCLql&AkA(d&7(k?JwTerfHaQ-Y4!qX_5o?00Ma}Oq<IQR^E8m=86eGm
zAkDKtnr0x4A4u~Ykmh+H%?m)97lAY{0cl<a(!2sme)THoD6b(=UI(JQ0YrHdh;k5!
za!5xY%3&RcD2uGN=C>>(Y?pDux-$Ns^SsV}brSRfTaX2Q2`umwu)x#60>1(l_%*P=
zGr$7R0t;*f7WfTtcISYz`xaQ{cfc~g2bOsrSmqDFGA{tj{E_9Qv&@Tnxh%7hW&UJ^
zWrXzXozt_iv0z$b?-7lS`hN|b*%;$o=`;iQIjtX;`!B~h9j40&$Z#(0mMT_)GbzY3
zCU06nBR>)n?~F=LAJTn9-q`U4-T(hHM8EpVkHNo}cIzr$UgZuOnU|kGK6_Yhfm9?o
zqhu!+IlF@i&c*B|FVT65qfblXVz}gKqQ$FGvRq@zPH+ZaH>~f~jj|`n8B5UCBwp1;
z4%$2+Qd({2OeQQZnMYyb)r8A(O()r@NtA=hJSAGvQk+9M0dLBcXD-+96iu`o)Wk@u
zCQhtW=d13{W5<shHF^9b&v4n7>Wn0CYbtls#PaZVhIl>fAzoTNT#WErY0kd~FAiv(
zI522r<wARIO-Y$uTIsE_ebshJWmUCZU1=}ym3r;!GOs<Q!dF~VHPoFuFet|^_ElG9
zyWQ@|3yORdzKS`vugdn`=3Q`mbs3McZF@4WnCC6x4Hp(w*_9O~Ub{%Ys@l82E-If}
zSy4L3E-9)h_s#B8Ub&EqzAAS`<&{_4#Wno-qT=GBIbM6Aueyv^mQ<FPdwJ+Bttlz0
z_ElDhuf&<d*PR)+%P4gkMw(xFoo%Y=Gs~zebJmr)>dFG^%7W_3+;wFgn#zKs{|7Js
BeG32p

diff --git a/s/issue,s b/s/issue,s
index 4697346..4a07b56 100644
--- a/s/issue,s
+++ b/s/issue,s
@@ -1,7 +1,9 @@
-Q:	How much does it cost to ride the Unibus?
-A:	2 bits.
+You will get what you deserve.
 
 
-Training is everything.  The peach was once a bitter almond; cauliflower is
-nothing but cabbage with a college education.
+The true Southern watermelon is a boon apart, and not to be mentioned with
+commoner things.  It is chief of the world's luxuries, king by the grace of God
+over all the fruits of the earth.  When one has tasted it, he knows what the
+angels eat.  It was not a Southern watermelon that Eve took; we know it because
+she repented.
 		-- Mark Twain, "Pudd'nhead Wilson's Calendar"
diff --git a/tools/dos.s b/tools/dos.s
new file mode 100644
index 0000000..6d1fea9
--- /dev/null
+++ b/tools/dos.s
@@ -0,0 +1,187 @@
+; -----------------------------------------------------------------------------
+; load, save, or verify [LSV]
+LD:    LDY #1              ; default to reading from tape, device #1
+        STY FA
+        STY SA              ; default to secondary address #1
+        DEY
+        STY FNLEN           ; start with an empty filename
+        STY STATUS           ; clear status
+        LDA #>STAGE         ; set filename pointer to staging buffer
+        STA FNADR+1
+        LDA #<STAGE
+        STA FNADR
+L1:     JSR GETCHR          ; get a character
+        BEQ LSHORT          ; no filename given, try load or verify from tape
+        CMP #$20            ; skip leading spaces
+        BEQ L1
+        CMP #$22            ; error if filename doesn't start with a quote
+        BNE LERROR
+        LDX CHRPNT          ; load current char pointer into index reg
+L3:     LDA BUF,X        ; load current char from buffer to accumulator
+        BEQ LSHORT          ; no filename given, try load or verify from tape
+        INX                 ; next char
+        CMP #$22            ; is it a quote?
+        BEQ L8              ; if so, we've reached the end of the filename
+        STA (FNADR),Y       ; if not, save character in filename buffer
+        INC FNLEN           ; increment filename length
+        INY 
+        CPY #ESTAGE-STAGE   ; check whether buffer is full
+        BCC L3              ; if not, get another character
+LERROR: JMP ERROR           ; if so, handle error
+L8:     STX CHRPNT          ; set character pointer to the current index
+        JSR GETCHR          ; eat separator between filename and device #
+        BEQ LSHORT          ; no separator, try to load or verify from tape
+        JSR GETPAR          ; get device number
+        BCS LSHORT          ; no device # given, try load or verify from tape
+        LDA TMP0            ; set device number for kernal routines
+        STA FA
+        JSR GETPAR          ; get start address for load or save in TMP0
+        BCS LSHORT          ; no start address, try to load or verify
+        JSR COPY12          ; transfer start address to TMP2
+        JSR GETPAR          ; get end address for save in TMP0
+        BCS LDADDR          ; no end address, try to load to given start addr
+        JSR CRLF            ; new line
+        LDX TMP0            ; put low byte of end address in X
+        LDY TMP0+1          ; put high byte of end address in Y
+        LDA SAVY            ; confirm that we're doing a save
+        CMP #'s'
+        BNE LERROR          ; if not, error due to too many params
+        LDA #0
+        STA SA            ; set secondary address to 0
+        LDA #TMP2           ; put addr of zero-page pointer to data in A
+        JSR SAVE            ; call kernal save routine
+LSVXIT: JMP STRT            ; back to mainloop
+LSHORT: LDA SAVY            ; check which command we received
+        CMP #'v'
+        BEQ LOADIT          ; we're doing a verify so don't set A to 0
+        CMP #'l'
+        BNE LERROR          ; error due to not enough params for save
+        LDA #0              ; 0 in A signals load, anything else is verify
+LOADIT: JSR LOAD            ; call kernal load routine
+        LDA STATUS           ; get i/o status
+        AND #$10            ; check bit 5 for checksum error
+        BEQ LSVXIT          ; if no error go back to mainloop
+        LDA SAVY            ; ?? not sure what these two lines are for...
+        BEQ LERROR          ; ?? SAVY will never be 0, so why check?
+        LDY #MSG6-MSGBAS    ; display "ERROR" if checksum didn't match
+        JSR SNDMSG
+        JMP STRT            ; back to mainloop
+LDADDR: LDX TMP2            ; load address low byte in X
+        LDY TMP2+1          ; load address high byte in Y
+        LDA #0              ; 0 in A signals load
+        STA SA              ; secondary addr 0 means load to addr in X and Y
+        BEQ LSHORT          ; execute load
+
+; -----------------------------------------------------------------------------
+; disk status/command [@]
+DSTAT:  
+        JSR GETPAR
+        BNE CHGDEV          ; if device address was given, use it
+        LDX FA              ; otherwise, default to 8
+        .BYTE $2C           ; absolute BIT opcode consumes next word (LDX TMP0)
+CHGDEV: LDX TMP0            ; load device address from parameter
+        CPX #4              ; make sure device address is in range 4-31
+        BCC IOERR
+        CPX #32
+        BCS IOERR
+        STX FA
+        STX TMP0
+        LDA #0              ; clear status
+        STA STATUS
+        STA FNLEN           ; empty filename
+        JSR GETCHR          ; get next character
+        BEQ INSTAT1         ; null, display status
+        DEC CHRPNT          ; back up 1 char
+        CMP #'$'            ; $, display directory
+        BEQ DIRECT
+        LDA TMP0            ; command specified device to listen
+        JSR LISTEN
+        LDA #$6F            ; secondary address 15 (only low nybble used)
+        JSR SECOND
+
+; send command to device
+DCOMD:  LDX CHRPNT          ; get next character from buffer
+        INC CHRPNT
+        LDA BUF,X
+        BEQ INSTAT          ; break out of loop if it's null
+        JSR CIOUT           ; otherwise output it to the serial bus
+        BCC DCOMD           ; unconditional loop:CIOUT clears carry before RTS
+
+; get device status
+INSTAT: JSR UNLSN           ; command device to unlisten
+INSTAT1:JSR CRLF            ; new line
+        LDA TMP0            ; load device address
+        JSR TALK            ; command device to talk
+        LDA #$6F            ; secondary address 15 (only low nybble used)
+        JSR TKSA
+RDSTAT: JSR ACPTR           ; read byte from serial bus
+        JSR CHROUT          ; print it
+        CMP #$0D            ; if the byte is CR, exit loop
+        BEQ DEXIT
+        LDA STATUS           ; check status
+        AND #$BF            ; ignore EOI bit
+        BEQ RDSTAT          ; if no errors, read next byte
+DEXIT:  JSR UNTLK           ; command device to stop talking
+        JMP STRT            ; back to mainloop
+IOERR:  JMP ERROR           ; handle error
+
+; get directory
+DIRECT: LDA TMP0            ; load device address
+        JSR LISTEN          ; command device to listen
+        LDA #$F0            ; secondary address 0 (only low nybble used)
+        JSR SECOND
+        LDX CHRPNT          ; get index of next character
+DIR2:   LDA BUF,X           ; get next character from buffer
+        BEQ DIR3            ; break if it's null
+        JSR CIOUT           ; send character to device
+        INX                 ; increment characer index
+        BNE DIR2            ; loop if it hasn't wrapped to zero
+DIR3:   JSR UNLSN           ; command device to unlisten
+        JSR CRLF            ; new line
+        LDA TMP0            ; load device address
+        PHA                 ; save on stack
+        JSR TALK            ; command device to talk
+        LDA #$60            ; secondary address 0 (only low nybble used)
+        JSR TKSA
+        LDY #3              ; read 3 16-bit values from device
+DIRLIN: STY STORE           ; ignore the first 2; 3rd is file size
+DLINK:  JSR ACPTR           ; read low byte from device
+        STA TMP0            ; store it
+        LDA STATUS           ; check status
+        BNE DREXIT          ; exit if error or eof occurred
+        JSR ACPTR           ; read high byte from device
+        STA TMP0+1          ; store it
+        LDA STATUS           ; check status
+        BNE DREXIT          ; exit if error or eof cocurred
+        DEC STORE           ; decrement byte count
+        BNE DLINK           ; loop if bytes remain
+        JSR CVTDEC          ; convert last 16-bit value to decimal
+        LDA #0              ; clear digit count
+        LDX #6              ; max 6 digits
+        LDY #3              ; 3 bits per digit
+        JSR NMPRNT          ; output number
+        LDA #' '            ; output space
+        JSR CHROUT
+DNAME:  JSR ACPTR           ; get a filename character from the device
+        BEQ DMORE           ; if it's null, break out of loop
+        LDX STATUS           ; check for errors or eof
+        BNE DREXIT          ; if found exit early
+        JSR CHROUT          ; output character
+        CLC
+        BCC DNAME           ; unconditional branch to read next char
+DMORE:  JSR CRLF
+        JSR STOP            ; check for stop key
+        BEQ DREXIT          ; exit early if pressed
+        JSR GETIN           ; pause if a key was pressed
+        BEQ NOPAWS
+PAWS:   JSR GETIN           ; wait until another key is pressed
+        BEQ PAWS            
+NOPAWS: LDY #2
+        BNE DIRLIN          ; unconditional branch to read next file
+DREXIT: JSR UNTLK           ; command device to untalk
+        PLA                 ; restore accumulator
+        JSR LISTEN          ; command device to listen
+        LDA #$E0            ; secondary address 0 (only low nybble is used)
+        JSR SECOND
+        JSR UNLSN           ; command device to unlisten
+        JMP STRT            ; back to mainloop
diff --git a/tools/pip.128.o b/tools/pip.128.o
index bd18ceafac8ce3232629d4d3713fb3bcbd06f6eb..7f6f849b35129457462bcddeb9be27a13cb56b3a 100644
GIT binary patch
delta 14
VcmeB<>W-R_!aQlx?2YM5bO0~525A5Q

delta 14
VcmeB<>W-R_!u)K_jE(6_bO17s2Gjrm

diff --git a/tools/ted.cfg b/tools/ted.cfg
new file mode 100644
index 0000000..b7199e0
--- /dev/null
+++ b/tools/ted.cfg
@@ -0,0 +1,43 @@
+FEATURES {
+    STARTADDRESS: default = $1001;
+}
+SYMBOLS {
+    __LOADADDR__:  type = import;
+    __EXEHDR__:    type = import;
+    __STACKSIZE__: type = weak, value = $0800; # 2k stack
+    __HIMEM__:     type = weak, value = $FD00;
+}
+MEMORY {
+    ZP:       file = "", define = yes, start = $0002,           size = $001A;
+    LOADADDR: file = %O,               start = %S - 2,          size = $0002;
+    HEADER:   file = %O, define = yes, start = %S,              size = $000D;
+    MAIN:     file = %O, define = yes, start = __HEADER_LAST__, size = __HIMEM__ - __MAIN_START__ - __STACKSIZE__;
+}
+SEGMENTS {
+    ZEROPAGE: load = ZP,       type = zp;
+    LOADADDR: load = LOADADDR, type = ro;
+    EXEHDR:   load = HEADER,   type = ro;
+    STARTUP:  load = MAIN,     type = ro;
+    LOWCODE:  load = MAIN,     type = ro,  optional = yes;
+    CODE:     load = MAIN,     type = ro;
+    ONCE:     load = MAIN,     type = ro,  optional = yes;
+    RODATA:   load = MAIN,     type = ro;
+    DATA:     load = MAIN,     type = rw;
+    INIT:     load = MAIN,     type = bss;
+    BSS:      load = MAIN,     type = bss, define   = yes;
+}
+FEATURES {
+    CONDES: type    = constructor,
+            label   = __CONSTRUCTOR_TABLE__,
+            count   = __CONSTRUCTOR_COUNT__,
+            segment = ONCE;
+    CONDES: type    = destructor,
+            label   = __DESTRUCTOR_TABLE__,
+            count   = __DESTRUCTOR_COUNT__,
+            segment = RODATA;
+    CONDES: type    = interruptor,
+            label   = __INTERRUPTOR_TABLE__,
+            count   = __INTERRUPTOR_COUNT__,
+            segment = RODATA,
+            import  = __CALLIRQ__;
+}