From 0ca506566b31758da4197150df55b67344c47dc4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Mon, 20 Feb 2017 18:16:23 +0100 Subject: [PATCH] Kernel version 0.9 : Migrating CP/MV commands, and shorter A2OSX.STARTUP file for debug --- A2OSX.BOOT.po | Bin 143360 -> 143360 bytes A2OSX.SRC.po | Bin 819200 -> 819200 bytes A2osX.STARTUP.txt | 10 +- BIN/CP.S.txt | 5 +- BIN/MV.S.txt | 4 +- BIN/X.CPMV.S.txt | 246 ++++++++++++++++++++++++---------------------- 6 files changed, 140 insertions(+), 125 deletions(-) diff --git a/A2OSX.BOOT.po b/A2OSX.BOOT.po index fdea980258859c13bf1f85da94a5fd24a06368ca..519f697202d4f7f70b9092f82ac3e1a831978b8c 100644 GIT binary patch delta 1672 zcmaKrZA@EL7{~8ZXjfn`2AeBT%(<_;q;$A9$`{gtn`3DZVH!yIa9A~NGtp&+=#nKg zzQh;T{vJWO^)`S?dncz9MqXT3%>2pq> z=l`73bI$J{T(t*R?Z%r{_35dpq2n zZZ>N@*4*ssa(P@&x%x`QaNrb(ky8Pl##aLUG=3dunR(H>28;8)KKSPF@VK>}V;=>j z5QqgLkq;>+lmR86oL4wbyMVal$PFb8*~3>Rm6aPxHgIoJiBBrpMOt~+_l|eQo3>=! z1QOnKQ$|@%c&EnYJL7V;;@iyM@hTK^AngQ|>fd|t!WCH$jtRk=gi8pS;%mMMZy$PH z4C$B%G;y0H(0(yAj+r3)rI{@wwnU@$5nY0ojH#K%B73;efweiBF)Gpp*>ma2OfiuX zLg)IJkm*P5lF>%QNNP=LY9gLQd!~dONwlZ;WNiNPyuXF_kMhVb8Yjmhpn+KtIc$zoLbk0Ew>@WFOB?mUuPV<=V>^?NX8|CN^p0(QZ8btfbQLDM2 z9d(!^htVP*uR*bD6f9!XS`>5UuEadGd9o!bEPcwtl61`%medpmo0`(Wj*|J(f7MI3 zfBbD0EdM|>1p7XTL0MT3y_4J$G zXcHvWUt>@wyd*mCNqybaob_NW=+d~+QPC8K0FSmx>f!{rY)NBR{HhZ9Gu5Jw#Gy)E zy9jP*iCp+%evgars7huxt$FAc>St5nv{cEFXK$S;6i`r(7`L3Zj-Gy5sZ&>?fQNs% zT#g2T<8*6dp6|V4rD(|QN}uwoGNfG2^SzMcJE^QJFus#YJo$fo>+&6aXTD>3zVQa& z=ik3E|Vu7^+QB)xR+8 zw{AqxUu|-Sx!a>XPg5yo203~xhH?(h zd7^HMCk7tpi8r=*VrVB%Tz%w;&P|>$wtM24yeAsAd!k{(6QR5(>gpR*-!ybb4X{~{ w`@4>xo|}UQ5WNW&b!-}5Q$M&4L$l=;Cqx(E3H9@7IHcn1KxoPh(Vt-8U!RV3w*UYD delta 1847 zcmai!UrZE79LM)}aK{3o7fbax5od?p1u4RbMo-e}-dUT&0BuE#e;!=r1z*$>A8OLd zHPMuqK)5^81);iby@hQ#x(A6M#nbcwIMUb+CJk+3Vq((T2kbTJgVq>2yZkxZV7d=8 zv%i_&Z+`Qe?`MLK=-?w-|JV+{4WGB)bim2sqE%{5W+wHseR!(TomW&--|+5%L#Ux) zZ$(XoIoh?u<0-E%_m*!hKb#k_HSLeoH8GJhO-CZhrk$DlYU}q6&o}x0g7-&!hhcKt z&dJQpl=<=K3R;ir@O@U~&T*Hy5ZA>~lyVkPiS}7838{wrvs_Au&2mZ$u}OPGSa)oa zeK^UcvZjq^+K*mwe45pQAsn2D`fdtn5bH(3?_?^DQ}j?-HXSZ=iLnAS;6loKB!KB4 zvvKVCMCM3)4t-jz@0N?nYDT$YZlH@$010VY1h?k`t5?V+aqQ$}CXTK72{z1jnN4g1 z8gMVfL{}L!$DnUmX=^(aRweWT%V{k-%jl~$%0(v4)M_`dF43A!P2HExT_Po`_kTv{>w5B;UOXH?~e;1f1B|f$s|BPo44GWy`mB^LWV)B;;b3R$rqxX7P(t4ML5L}4T894c&bCv;Mc5GDsCEov!FN0aubuz@T)rUFa4 zpb9%kH=@G!oI}f1kWe3>*2IwD?hgxEWk@hfs(8)h*9S}$xI_5sQ&fL*2wy%$_iI!L ziibCt&PuCU+|Gxi=h z!k3gbN;mr8xa1szDyeD)1PJpK-60WfNwz{oKxa1iAe zcWR=HiDAYxpj)`Jd*S5YTh`UGJzi!>noQ|~OQ=|E9I@E=5ItUjjgo}U$=|YBtlLQDIg&Xeooxx0?)J)r0BGuE^g2T3}aSRoa=g$em|p?&enJF3>?s zMNv!r)ln#69Is%p3|VFIGGxD`A@lM73)$=|(OwIgH+PKGWsxQ6Zxsr2##nLj6||@$ zF#7s{+5I|jFk-mZ)3XGRq<;$^NU1(>ngAVFb#RQ>Z@~+QIBj-y6l^1B#vo+=ol(bO zUF&HhN6X6&qPdq-##gZ}9EeFcAd)xdDsJz_y*;?M7x#XNk1Eb*tGjWFpkT zz6W>rV0!9ahLI|rHXhF^lx)A#g9Dq_Wb55BZfo98K5O`-&G~EWI!-w>hj;Ee?!PVL kq@HqkPhZ2q?7VySRJJCUUmNL|fEG{Q8X=AIEyR761SM diff --git a/A2OSX.SRC.po b/A2OSX.SRC.po index c21685fc45203d55b4d683f9d8851f5b91d2553a..0701d174ed7a51743f92815367d17cfacafe3d35 100644 GIT binary patch delta 3811 zcmZ`+3s_s_8U9WV2M-D9;3PQ-H`fBTw3bssg|@n(kc1XXArfedbC-ZY=+cm$1Xt7= zqEM95Dxw^tY|~xpyli{iT-imRb(d$;ZgcA{?&cmZbvNg>y8G4b`_KQMLlP(t=O=vU z``_>Oe&7FRVxn;Ze<0i-q3?|ZwcPciT9vlvM*0NncWp*89M91a%{a(#nn_D|YVve}0>Z6CJ7s8lnRW6+p8k!Uiaf;3A6*~p&b#C2`zJntwxfm=Lx z&6mC)uPweCGA+Tr(60VgkmlIued%k1!KCU1_dVK&3wW8E*N(3fDhuz$edYIQ_BZ)5 zZb5r~olt#+#{6vp;eO(8hB*>aLcOiMN>J(T4+g;T0CPvjZ6uMFJ*YKQ3!d&p;udDK z8Jr)2%mGZeFQoMJbt&x~odIw?1WJ>ZCG`jPg6kuoH0KCAdO-LnnwLMOofddk`^Sy+ zV17=bTzZ7LHP90o98(h!kUo*0Alsw3DIQHLnEJ;^ppR>_MZCvS{)85*5z4qvYGhu`EXxG&A04LZ4}wYfJea_SkwI!Iq$ z5!2}vF@0q@rmv#mvaeA;S&D<|NGyqriGc0vCa&!p6oq*9O(Zos?|IhPwq7rdzAvC+ zqdbS8rDu>fo&Nq-gEjKEwC*a4EA?%BY5NY#z$93o$EY=u1o68p!tVj|#NW{~qZ4?! zKxbD3^Zn&uen6mq$P(ZM$B&pYjXoki83GVg$)QD&~ApeL8 zwx5}K5Ppt&?iX|Pe53JkUF{d9TIoyq(Z7sakj8;v3_CG2Hh>$jxva06R5-_|@ERH@ z|0PKZ;ZAl?H z==&p4s{Th)z34oncKM$!=-{83gMXn8Uh-F?nmRu)>?t~v{E4K|7$E%(E2TYhW0BqB z`8%0Fn~MLjJb{FNqLb3U^2d<`lT>?CZIZ3pqAYbKJj(NOR_@$Z4(X1bJf-nqz}h zu%dm*#suax6^ce5S%V5Ur%x*uGoCCYVluZt@DLZvn7xj4UqWpg8)|H7PJ^o)rJ??iueGx?y=OON zwV0}4_A9CVjaAw92`(jpc^W(C~d9goDowuz&6 z1w2cG>Rtj$nSLcJdc4xcei;gBDtsry~j6DRS%fK+n(Y*p9xEjPY z1fmBQF~sQyu+`bi8E0o7ZM5>eoOZm3cV8{;qk@|KM(5!;$L^e_jgPj?;akz4pKSA$ zd@YyJUa|9zo_Dc^zK#u)cW1$ptg?ZUgZrL*T%xEC6#2aj_rUuYZkXa04RG}CBo0!6 ze7#{PdmvRr@}W(ag&~sU8yE%6DJu^X#<;pivN9VCB~@QI3E~0f#QT}eXqHVASUN}w zmowyJbTr#XnKeAn<+yIgbtvCXd>q7+SMh}@l^IJ=WA3D3%(y>I#fQTnj&Ygza2#wm zGA847<^zbS->B%()x8^Rhw-f%)-N#Q7`Oc<4!;=a2Tm(EZ_d>Z^x%E?76H}Dj%W?< z*^W2ENiGvkM8P)2 zA;3aBig6sJ;R@4e*LnxxYdm@w#5>X6Hu7PHrQ;Y)hcrvl;qMOY4RrO+=ojGQOydOA zsJKfjY3IuWcT-PM`e z`b;n7_cMc;dGC>$Q@i*ZUbA%+z~WlTQ3L0eG<9>qoUOJ1$PWr$)YjA&R2H9e8-l9q zrkm>v@DcDS#OES>M0|>tn(M8zi!IU?7-r4Srn}St!#Mv)e=tdj*Ek;Ntamg5D}#2Z ol9#9DGu9>fjP3O?r}Y8T@dugXi%U;FZSCgfODrEe*;d^0e*zkJ6aWAK delta 3816 zcmZ`+32<9i6}?~bw`IvrqU~GW7ukuk_(!s1#}26*S&|bqvZY9Jh|83s*h=jp%Zen2 zqyg+7oTelpAvNSx5MaWRVK0GBTy~ee36zE%3N57th7us53_FGU{(DkndGPp;<@?V& z_nv$2yYFdku5%85=Y@IAW7-SaiK-*u4$GmD;WP2^BZ_^$+coU=`oZ)7WaHyer9J71 zW}@pi9f69YkljBusmOhOAifc@u=-6DLf3>NfgqUPT)e_C%UAS*RUwK^uxvSoma#N) zfcO@qFwS#|iNVQuCYA!z@nRC&gG9Nhttvf%aN9!*#ve&rE8Ys({@_S>*Qg6jC;8`B zD|ZKjnUoW%PN5|{8g{$66rxFYw0 zco7jb?orom;zPHI$}d4y9`p@^`NJ4XI;9Lm)3IPQGa<_$ zegrA>9|gIWjK#-5_c6$(GHDP$j^v=CSt{vs3yP<@@$-2S!xz~S z8pf9(OCz;?Sruv%mvDjc39P8!GwRBfSo#VH)N8D>U&WV(uW@zrp#M55B2=L68$9}N z^5&+MImw!pXBtf3S`p}zw*$ROsjqQyPB4F)gISZ&W~ls5J;sW)x381ef#E4!8#}1h z?Yp?P`e_ttRvW@_J+D;!9=@`DpVf)?j5`nlg`fKi8VO-MRfLz|LHCs%7FYYVbKj_%nQ1MTU zoR2N>U+Bd2Z*IuXF7ZETmR?zy3tBDzT|ol^aW#w5h#=&7bQ(e3(K@Z5Zr8RFp{T8n zt6e|gNoR6%0ZgJ$G}~>ZjCxhsZE8tJZ5oSQj<&*i>P{X3Q7>Tp29D0hFIBKLvz5hb zq8X4@p^5wA(Y8!l|xX!(|znEQ@KGEVYt4v!IR&orPnq z3|k`!SyI`rt!k`d2CFT%m^Ue%()HB>d7?>EtEmwdcI>e<)iSJ9SAqEVZ-<FjK47+UG>8yOlJ1$`TS41^R1RICM0SPn;Ap$M#A2foC3?C@E6Agth?Y$x)Q`Wnr8 zSeUy}r`Z6+Cre(b>>{MArx{SPfkQZ*Ck|=6G<>^5!k&2Pl9fwQx79He*(L~(1UMr z{LnLdD^|R+SCE}V-Rdr|H1sWB;0=X9+=j5~R|$A7ljdhMmf7u`zYlbGpv!m?D*CBu z3`x=Fom8-TJDW~qCKEF;FzqPLL8VK`#->w>y|ow5(E%YFO~=9DMjy`e$vA59Fv+49 zed`AWJSvm%!=T%V{v`Tg7f*?grKJBZfgG(b+rD>q&Xf00ERmr{pViOf3CqE-JmDMm zc=y7ZA?#y34%?H#GzA%kQ2@PG^?@H5}}O%6k~d-a0r4#@Et+3U9gh3fXj~ z@Rn6a^-!wVxU{oM6nnB{j~Jz zmF)GrDsftsDOwfv8kPwA0>c}fARVA*#A4+R?aN|rC{D8i)h0>erlH1r5M#qe!MVR@ z#1{cEg-pgY4={hR&J>4en89^4_gx?z63E5pG#1+%Xb^`5xr@bigm=UPi>dp z&CIqsoShEna6vFAhYqVPds6o9IY#YU=JE0un>-XtDe4QQJrr24K+8Y@SoZror*MJN zwxn~&OQOT+a6q%W5D_{Y*iAVRQs!{Vh=XPi2h7qvBKusY*?V=lidg3@q!>tzk44j& zV+>V7ouD%$Y9B0wxkK()DutU`#UaMIRKjrforSp2Od`V~nxz<#Vb<;{#O%wYqT~2o zj&nJeN*QXikD?;CQ>D;U_0C69(L{P`GJ{{s3bF!d%Xj+HKt=!m02r-M!~g&Q diff --git a/A2osX.STARTUP.txt b/A2osX.STARTUP.txt index db892795..8e455001 100644 --- a/A2osX.STARTUP.txt +++ b/A2osX.STARTUP.txt @@ -12,15 +12,15 @@ INSDRV CONSOLE.DRV STARTPROC GETTY CON ${A2OSX}SBIN/LOGIN # Serial Login #INSDRV SSC.DRV 9600,N,8,1,X -INSDRV SSC.I.DRV 9600,N,8,1,X -STARTPROC GETTY COM2 ${A2OSX}SBIN/LOGIN +#INSDRV SSC.I.DRV 9600,N,8,1,X +#STARTPROC GETTY COM2 ${A2OSX}SBIN/LOGIN #INSDRV PIC.DRV # Network Section -INSDRV UTHERNET.DRV 000E3A123456 -INSDRV UTHERNET2.DRV 0008DC123456 +#INSDRV UTHERNET.DRV 000E3A123456 +#INSDRV UTHERNET2.DRV 0008DC123456 #INSDRV UTHER2.AI.DRV 0008DC123456 #INSDRV LANCEGS.DRV -STARTPROC TCPIP +#STARTPROC TCPIP #STARTPROC DHCPCLNT #STARTPROC HTTPD #TELNETD diff --git a/BIN/CP.S.txt b/BIN/CP.S.txt index d1b492c7..90b918cd 100644 --- a/BIN/CP.S.txt +++ b/BIN/CP.S.txt @@ -44,8 +44,9 @@ oDIRENTs .BS X.MAX.RECURSE*2 hSrcBasePath .BS 1 hDstBasePath .BS 1 hFilter .BS 1 -bCANCEL .BS 1 -bSTOP .BS 1 +hSrcFile .BS 1 +hDstFile .BS 1 +bPause .BS 1 bContinue .BS 1 bRecurse .BS 1 bNoConfirm .BS 1 diff --git a/BIN/MV.S.txt b/BIN/MV.S.txt index 5d42a0d2..2331d806 100644 --- a/BIN/MV.S.txt +++ b/BIN/MV.S.txt @@ -32,6 +32,7 @@ MSG.ERR >CSTR "[%h]\n" *-------------------------------------- STAT .BS S.STAT ArgCount .BS 1 +ArgIndex .BS 1 *-------------------------------------- .DUMMY .OR 0 @@ -43,8 +44,7 @@ oDIRENTs .BS X.MAX.RECURSE*2 hSrcBasePath .BS 1 hDstBasePath .BS 1 hFilter .BS 1 -bCANCEL .BS 1 -bSTOP .BS 1 +bPause .BS 1 bContinue .BS 1 bRecurse .BS 1 bNoConfirm .BS 1 diff --git a/BIN/X.CPMV.S.txt b/BIN/X.CPMV.S.txt index cb83b96e..60a07a54 100644 --- a/BIN/X.CPMV.S.txt +++ b/BIN/X.CPMV.S.txt @@ -118,15 +118,22 @@ CS.INIT >SYSCALL GetArgC clc rts *-------------------------------------- -CS.RUN ldy #bCANCEL - lda (pData),y - bmi .99 +CS.RUN >SYSCALL GetC + bcs .1 no char - ldy #bSTOP - lda (pData),y - bmi .8 + cmp #$03 Ctrl-C + beq .99 Abort.... + + cmp #$13 Ctrl-S + bne .1 - jsr GetNextEntry + ldy #bPause + lda (pData),y + eor #$ff + sta (pData),y + bne .8 + +.1 jsr GetNextEntry bcs .9 ldy #hFilter @@ -146,11 +153,13 @@ CS.RUN ldy #bCANCEL ldy #S.STAT.P.TYPE lda (ZPPtr2),y cmp #$0F Directory ? - bne .6 + beq .6 + + jmp CS.RUN.FILE - jmp CS.RUN.DIR .5 jmp CS.RUN.DEV -.6 jmp CS.RUN.FILE + +.6 jmp CS.RUN.DIR .9 jsr LeaveSubDir bcs .99 @@ -183,12 +192,12 @@ CS.RUN.DEV >PUSHW ZPPtr1 lda (pData),y bpl .8 - jsr CS.RUN.PRINT.FILE + jsr CS.RUN.PrintFile bcs .9 lda #0 clc - jsr CS.RUN.PRINT.RC + jsr CS.RUN.PrintErr >LDYA ZPPtr1 jmp EnterSubDirYA @@ -205,45 +214,51 @@ CS.RUN.DIR ldy #bRecurse cmp #'.' beq .8 - jsr CS.RUN.PRINT.DIR + jsr CS.RUN.PrintDir bcs .9 - jsr CS.RUN.COPY.DIR - jsr CS.RUN.PRINT.RC + jsr CS.RUN.CopyDir bcs .9 >LDYA ZPPtr1 jmp EnterSubDirYA - + .8 clc -.9 rts + rts + +.9 jsr CS.RUN.PrintErr + rts *-------------------------------------- -CS.RUN.FILE jsr CS.RUN.PRINT.FILE +CS.RUN.FILE jsr CS.RUN.PrintFile bcs .9 - jsr CS.RUN.COPY.FILE - jsr CS.RUN.PRINT.RC + jsr CS.RUN.CopyFile bcs .9 .DO X.DELETE.SOURCE=1 - jsr CS.RUN.DELETE.FILE - jsr CS.RUN.PRINT.RC + jsr CS.RUN.DelFile bcs .9 .FIN -.9 rts -*-------------------------------------- -CS.RUN.PRINT.DIR - jsr CS.RUN.GET.SRC.DST - >LDYA L.MSG.DIR - bra CS.RUN.PRINT -CS.RUN.PRINT.FILE - jsr CS.RUN.GET.SRC.DST - >LDYA L.MSG.FILE - -CS.RUN.PRINT >SYSCALL CPrintFYA +.9 jsr CS.RUN.PrintErr rts - -CS.RUN.GET.SRC.DST +*-------------------------------------- +CS.RUN.PrintDir ldy #hDstBasePath + lda (pData),y + >SYSCALL GetMemPtrA + >PUSHYA + + >PUSHW ZPPtr1 + + ldy #hSrcBasePath + lda (pData),y + >SYSCALL GetMemPtrA + >PUSHYA + + >LDYA L.MSG.DIR + >SYSCALL CPrintFYA + rts +*-------------------------------------- +CS.RUN.PrintFile ldy #hDstBasePath lda (pData),y >SYSCALL GetMemPtrA @@ -255,72 +270,106 @@ CS.RUN.GET.SRC.DST lda (pData),y >SYSCALL GetMemPtrA >PUSHYA + + >LDYA L.MSG.FILE + >SYSCALL CPrintFYA rts *-------------------------------------- -CS.RUN.COPY.DIR ldy #hDstBasePath - lda (pData),y - >SYSCALL GetMemPtrA - >PUSHYA - >PUSHWI UsrBuf256 - >SYSCALL PStrCpy +CS.RUN.CopyDir ldy #hDstBasePath + jsr CS.RUN.GetFilePath - >PUSHW ZPPtr1 - >PUSHWI UsrBuf256 - >SYSCALL PStrCat >LDYAI UsrBuf256 >SYSCALL MKDirYA rts *-------------------------------------- -CS.RUN.COPY.FILE - jsr CS.RUN.MAKE.SRC +CS.RUN.CopyFile ldy #S.STAT.P.AUXTYPE + >PUSHB (ZPPtr2),y + iny + >PUSHB (ZPPtr2),y + ldy #S.STAT.P.TYPE + >PUSHB (ZPPtr2),y + >PUSHBI SYS.FOpen.R + ldy #hSrcBasePath + jsr CS.RUN.GetFilePath + + >PUSHWI UsrBuf256 + + >SYSCALL FOpen + bcs .9 + + ldy #hSrcFile + sta (pData),y + + ldy #S.STAT.P.AUXTYPE + >PUSHB (ZPPtr2),y + iny + >PUSHB (ZPPtr2),y + ldy #S.STAT.P.TYPE + >PUSHB (ZPPtr2),y + >PUSHBI SYS.FOpen.W+SYS.FOpen.X + ldy #hDstBasePath + jsr CS.RUN.GetFilePath + + >PUSHWI UsrBuf256 + + >SYSCALL FOpen + bcs .9 + + ldy #hDstFile + sta (pData),y + + + + + + + + + + ldy #hDstFile + sta (pData),y + >SYSCALL FCloseA + + + ldy #hSrcFile + sta (pData),y + >SYSCALL FCloseA + clc - rts +.9 rts *-------------------------------------- .DO X.DELETE.SOURCE=1 *-------------------------------------- -CS.RUN.DELETE.DIR - jsr CS.RUN.GET.BASE.PATH - bra CS.RUN.DELETE +CS.RUN.DelDir ldy #hSrcBasePath + jsr CS.RUN.GetBasePath + >SYSCALL RemoveYA + rts *-------------------------------------- -CS.RUN.DELETE.FILE - jsr CS.RUN.GET.BASE.PATH - >PUSHW ZPPtr1 - >PUSHWI UsrBuf256 - >SYSCALL PStrCat - -CS.RUN.DELETE >LDYAI UsrBuf256 -* >SYSCALL RemoveYA - clc +CS.RUN.DelFile ldy #hSrcBasePath + jsr CS.RUN.GetFilePath + >SYSCALL RemoveYA rts *-------------------------------------- .FIN *-------------------------------------- -CS.RUN.GET.BASE.PATH - ldy #hSrcBasePath - lda (pData),y - >SYSCALL GetMemPtrA - >PUSHYA - >PUSHWI UsrBuf256 - >SYSCALL PStrCpy - rts -*-------------------------------------- -CS.RUN.MAKE.SRC ldy #hSrcBasePath - .HS 2C bit abs -CS.RUN.MAKE.DST ldy #hDstBasePath - lda (pData),y - >SYSCALL GetMemPtrA - >PUSHYA - >PUSHWI UsrBuf256 - >SYSCALL PStrCpy +CS.RUN.GetFilePath + jsr CS.RUN.GetBasePath >PUSHW ZPPtr1 >PUSHWI UsrBuf256 >SYSCALL PStrCat - >LDYAI UsrBuf256 rts *-------------------------------------- -CS.RUN.PRINT.RC pha +CS.RUN.GetBasePath + lda (pData),y + >SYSCALL GetMemPtrA + >PUSHYA + >PUSHWI UsrBuf256 + >SYSCALL PStrCpy + rts +*-------------------------------------- +CS.RUN.PrintErr pha php bcs .1 >LDYA L.MSG.OK @@ -344,42 +393,7 @@ CS.RUN.PRINT.RC pha plx rts *-------------------------------------- -CS.DOEVENT ldy #S.EVT.hDEV is Event from active IN device? - lda (pEvent),y - ldy #S.PS.hStdIn - cmp (pPs),y - bne .9 - - lda (pEvent) - and #S.EVT.F.KEY is it a KEY event? - beq .9 - - ldy #S.EVT.DATAHI is it an O or SAPPLE key ? - lda (pEvent),y - bne .9 - - ldy #S.EVT.DATALO - lda (pEvent),y - cmp #$03 Ctrl-C - bne .1 - - lda #$FF - ldy #bCANCEL - sta (pData),y - bra .8 - -.1 cmp #$13 Ctrl-S - bne .8 - - ldy #bSTOP - lda (pData),y - eor #$FF - sta (pData),y - -.8 clc - rts - -.9 sec +CS.DOEVENT sec rts *-------------------------------------- CS.QUIT jsr LeaveSubDir @@ -387,10 +401,10 @@ CS.QUIT jsr LeaveSubDir ldy #hFilter lda (pData),y - beq .3 + beq .8 >SYSCALL FreeMemA -.3 clc +.8 clc rts *-------------------------------------- MAN