Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-19 12:31:56 +00:00
Code Issues Projects Releases Wiki Activity

RM:Bug fix in CS.QUIT

Browse Source
This commit is contained in:
Rémy GIBERT 2016-03-18 17:34:30 +01:00
parent 7b4619df80
commit 9fbb48d143
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
BIN/RM.S.txt
View File

@ -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