From 9fbb48d1433ee38caa4ea03c163da62dd115d825 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Fri, 18 Mar 2016 17:34:30 +0100 Subject: [PATCH] RM:Bug fix in CS.QUIT --- BIN/RM.S.txt | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/BIN/RM.S.txt b/BIN/RM.S.txt index 204f86e0..6abb6186 100644 --- a/BIN/RM.S.txt +++ b/BIN/RM.S.txt @@ -32,18 +32,13 @@ CS.START cld .DA CS.RUN .DA CS.DOEVENT .DA CS.QUIT +L.MSG.USAGE .DA MSG.USAGE L.MSG.OK .DA MSG.OK L.MSG.ERR .DA MSG.ERR L.FullPath .DA FullPath .DA 0 *-------------------------------------- -CS.INIT lda #0 - ldy #DS.END-DS.START-1 -.11 sta (pData),y - dey - bpl .11 - - ldy #S.PS.hARGS +CS.INIT ldy #S.PS.hARGS lda (pPs),y beq .98 @@ -80,7 +75,9 @@ CS.INIT lda #0 clc rts -.98 lda #SYSMGR.ERRSYN +.98 >LDYA L.MSG.USAGE + >SYSCALL SYS.PSTRoutYA + lda #SYSMGR.ERRSYN .99 sec rts *-------------------------------------- @@ -207,22 +204,23 @@ CS.DOEVENT ldy #S.EVT.hDEV is Event from active IN device? *-------------------------------------- CS.QUIT ldy #hS.LISTDIR lda (pData),y + beq .1 >SYSCALL SYS.ListDirCloseA - ldy #hDIRPATH +.1 ldy #hDIRPATH lda (pData),y - beq .3 + beq .2 >SYSCALL SYS.FreeMemA -.3 clc +.2 clc rts *-------------------------------------- CS.END +MSG.USAGE >PSTRING "Usage : RM [file/Dir, *,? wildcards allowed]\n" MSG.OK >PSTRING " [Ok]\n" MSG.ERR >PSTRING " [%h]\n" FullPath .BS 64 - *-------------------------------------- .DUMMY .OR 0