mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 05:32:20 +00:00
Kernel version 0.9 : CP,RM,MV, Code rewrite in progress....#3
This commit is contained in:
Rémy GIBERT
parent
188e0c6393
commit
915226f209
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,7 +1,7 @@
|
||||
<NotepadPlus>
|
||||
<UserLang name="S-C MASM 65C02" ext="" udlVersion="2.1">
|
||||
<Settings>
|
||||
<Global caseIgnored="no" allowFoldOfComments="no" foldCompact="no" forcePureLC="1" decimalSeparator="0" />
|
||||
<Global caseIgnored="no" allowFoldOfComments="no" foldCompact="no" forcePureLC="1" decimalSeparator="1" />
|
||||
<Prefix Keywords1="no" Keywords2="no" Keywords3="yes" Keywords4="yes" Keywords5="no" Keywords6="no" Keywords7="no" Keywords8="yes" />
|
||||
</Settings>
|
||||
<KeywordLists>
|
||||
@ -24,29 +24,29 @@
|
||||
<Keywords name="Folders in comment, open"></Keywords>
|
||||
<Keywords name="Folders in comment, middle"></Keywords>
|
||||
<Keywords name="Folders in comment, close"></Keywords>
|
||||
<Keywords name="Keywords1">.BS
.DA
.AS
.AT
.EQ
.MA
.EM
.OR
.TF
.LIST
.HS
.IN
.INB
.OP
.TA
.DO
.ELSE
.EM
.FIN
.PH
.EP
.DUMMY
.ED</Keywords>
|
||||
<Keywords name="Keywords1">.BS
.DA
.AS
.AT
.EQ
.MA
.EM
.OR
.TF
.LIST
.HS
.IN
.INB
.OP
.TA
.EM
.PH
.EP
.DUMMY
.ED
.DO
.ELSE
.FIN</Keywords>
|
||||
<Keywords name="Keywords2">adc
and
asl
bit
brk
clc
cld
cli
clv
cmp
cpx
cpy
dec
dex
dey
eor
inc
inx
iny
lda
ldx
ldy
lsr
nop
ora
rmb
rol
ror
rti
rts
sbc
sec
sed
sei
smb
sta
stp
stx
sty
stz
tax
tay
trb
tsb
tsx
txa
txs
tya
wai</Keywords>
|
||||
<Keywords name="Keywords3">></Keywords>
|
||||
<Keywords name="Keywords3">$
%
/
#
&</Keywords>
|
||||
<Keywords name="Keywords4">.1
.2
.3
.4
.5
.6
.7
.8
.9
</Keywords>
|
||||
<Keywords name="Keywords5">AUTO
MAN
LOAD
SAVE
ASM
CREATE
INC
LOMEM
PREFIX
PR#
NEW
BLOAD
BSAVE
TEXT
DELETE
</Keywords>
|
||||
<Keywords name="Keywords6">pha
php
phx
phy
pla
plp
plx
ply</Keywords>
|
||||
<Keywords name="Keywords7">bbr
bbs
bcc
bcs
beq
bmi
bne
bpl
bra
jmp
jsr
bvc
bvs</Keywords>
|
||||
<Keywords name="Keywords8">$
%
/
#
&
</Keywords>
|
||||
<Keywords name="Keywords8">></Keywords>
|
||||
<Keywords name="Delimiters"></Keywords>
|
||||
</KeywordLists>
|
||||
<Styles>
|
||||
<WordsStyle name="DEFAULT" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
<WordsStyle name="COMMENTS" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
<WordsStyle name="LINE COMMENTS" fgColor="008040" bgColor="FFFFFF" fontName="" fontStyle="2" nesting="0" />
|
||||
<WordsStyle name="NUMBERS" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS1" fgColor="800080" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
|
||||
<WordsStyle name="NUMBERS" fgColor="00B32D" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS1" fgColor="FF8000" bgColor="FFFFFF" fontName="" fontStyle="3" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS2" fgColor="0000FF" bgColor="FFFFFF" fontName="" fontStyle="3" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS3" fgColor="A51505" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS3" fgColor="00B32D" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS4" fgColor="FF0000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS5" fgColor="FF0000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS6" fgColor="008000" bgColor="FFFFFF" fontName="" fontStyle="3" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS7" fgColor="800040" bgColor="FFFFFF" fontName="" fontStyle="3" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS8" fgColor="008000" bgColor="FFFFFF" fontName="" fontStyle="3" nesting="0" />
|
||||
<WordsStyle name="KEYWORDS8" fgColor="CC1F15" bgColor="FFFFFF" fontName="" fontStyle="3" nesting="0" />
|
||||
<WordsStyle name="OPERATORS" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
<WordsStyle name="FOLDER IN CODE1" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
<WordsStyle name="FOLDER IN CODE2" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
|
||||
|
||||
@ -26,7 +26,7 @@ OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#b
|
||||
MSG.USAGE >CSTR "Usage : CP [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
|
||||
MSG.DIR >CSTR "CP Dir :%S to %S..."
|
||||
MSG.FILE >CSTR "CP File:%S to %S..."
|
||||
MSG.OVERWRITE >CSTR "\r\nOverwrite [Yes,No,All]?"
|
||||
MSG.OVERWRITE >CSTR "\r\nOverwrite %S [Yes,No,All]?"
|
||||
MSG.OK >PSTR "[OK]\r\n"
|
||||
MSG.ERR >PSTR "[%h]\r\n"
|
||||
MSG.DONE >PSTR "%D File(s) Copied.\r\n"
|
||||
|
||||
@ -26,7 +26,7 @@ OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#b
|
||||
MSG.USAGE >CSTR "Usage : MV [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
|
||||
MSG.DIR >CSTR "MV Dir :%S to %S..."
|
||||
MSG.FILE >CSTR "MV File:%S to %S..."
|
||||
MSG.OVERWRITE >CSTR "\r\nOverwrite [Yes,No,All]?"
|
||||
MSG.OVERWRITE >CSTR "\r\nOverwrite %S [Yes,No,All]?"
|
||||
MSG.OK >PSTR "[OK]\r\n"
|
||||
MSG.ERR >PSTR "[%h]\r\n"
|
||||
MSG.DONE >PSTR "%D File(s) Moved.\r\n"
|
||||
|
||||
@ -248,11 +248,11 @@ CS.RUN >SYSCALL GetC
|
||||
sta (pData),y
|
||||
|
||||
ldy #hSrcFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>SYSCALL RemoveYA
|
||||
bcs .22
|
||||
jsr CS.RUN.CheckErr Success!!!
|
||||
jsr CS.RUN.IncCount
|
||||
jmp CS.RUN.NEXT
|
||||
|
||||
@ -323,13 +323,12 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
|
||||
jsr CS.RUN.BuildFilePath
|
||||
|
||||
ldy #hSrcFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>STYA ZPPtr1
|
||||
>PUSHYA
|
||||
|
||||
>LDYA L.MSG.DIR
|
||||
>SYSCALL CPrintFYA
|
||||
jsr CS.RUN.DIR.MSG
|
||||
bcs CS.RUN.LEAVE.RTS
|
||||
|
||||
>LDYA ZPPtr1
|
||||
@ -358,20 +357,16 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
|
||||
CS.RUN.LEAVE.RTS
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.DIR ldy #bQuiet
|
||||
lda (pData),y
|
||||
bmi .10
|
||||
|
||||
jsr CS.RUN.DIR.MSG
|
||||
CS.RUN.DIR jsr CS.RUN.DIR.MSG
|
||||
bcs CS.RUN.LEAVE.RTS
|
||||
|
||||
.10 .DO X.COPY.TO.DEST=1
|
||||
.DO X.COPY.TO.DEST=1
|
||||
|
||||
>PUSHW L.STAT
|
||||
|
||||
ldy #hDstFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
|
||||
>SYSCALL Stat
|
||||
@ -381,15 +376,7 @@ CS.RUN.DIR ldy #bQuiet
|
||||
lda (pData),y
|
||||
bmi .21 no prompt, nothing to create, enter subdir
|
||||
|
||||
ldy #bQuiet
|
||||
lda (pData),y
|
||||
bpl .15
|
||||
|
||||
jsr CS.RUN.DIR.MSG
|
||||
bcs CS.RUN.DIR.RTS
|
||||
|
||||
.15 >LDYA L.MSG.OVERWRITE
|
||||
>SYSCALL CPrintFYA
|
||||
jsr CS.RUN.OVERWRITE.MSG
|
||||
bcs CS.RUN.DIR.RTS
|
||||
|
||||
.1 >SYSCALL Sleep
|
||||
@ -418,8 +405,7 @@ CS.RUN.DIR ldy #bQuiet
|
||||
bra .4
|
||||
|
||||
.3 ldy #hDstFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>SYSCALL MKDirYA
|
||||
|
||||
@ -435,20 +421,16 @@ CS.RUN.DIR ldy #bQuiet
|
||||
sec
|
||||
CS.RUN.DIR.RTS rts
|
||||
*--------------------------------------
|
||||
CS.RUN.FILE ldy #bQuiet
|
||||
lda (pData),y
|
||||
bmi .14
|
||||
|
||||
jsr CS.RUN.FILE.MSG
|
||||
CS.RUN.FILE jsr CS.RUN.FILE.MSG
|
||||
bcs CS.RUN.DIR.RTS
|
||||
|
||||
.14 .DO X.COPY.TO.DEST=1
|
||||
.DO X.COPY.TO.DEST=1
|
||||
|
||||
>PUSHW L.STAT
|
||||
|
||||
ldy #hDstFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
|
||||
>SYSCALL Stat
|
||||
@ -458,15 +440,10 @@ CS.RUN.FILE ldy #bQuiet
|
||||
lda (pData),y
|
||||
bmi .2 no prompt, ovverwrite
|
||||
|
||||
ldy #bQuiet
|
||||
lda (pData),y
|
||||
bpl .15
|
||||
|
||||
jsr CS.RUN.FILE.MSG
|
||||
bcs .90
|
||||
|
||||
.15 >LDYA L.MSG.OVERWRITE
|
||||
>SYSCALL CPrintFYA
|
||||
jsr CS.RUN.OVERWRITE.MSG
|
||||
bcs .9
|
||||
|
||||
.1 >SYSCALL Sleep
|
||||
@ -495,12 +472,12 @@ CS.RUN.FILE ldy #bQuiet
|
||||
|
||||
.2 .DO X.DELETE.SOURCE=1 mv file, check if srcbase=dstbase
|
||||
ldy #hSrcBasePath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
ldy #hDstBasePath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
>SYSCALL PStrMatch
|
||||
bcs .3 not same dir, go copy/delete
|
||||
@ -533,50 +510,59 @@ CS.RUN.FILE ldy #bQuiet
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.DIR.MSG .DO X.COPY.TO.DEST=1
|
||||
CS.RUN.DIR.MSG sec
|
||||
.HS 90 bcc opcode
|
||||
CS.RUN.FILE.MSG clc
|
||||
|
||||
ldy #bQuiet
|
||||
lda (pData),y
|
||||
bmi .8
|
||||
php
|
||||
|
||||
.DO X.COPY.TO.DEST=1
|
||||
|
||||
ldy #hSrcFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
.FIN
|
||||
|
||||
ldy #hSrcFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
|
||||
plp
|
||||
bcc .1
|
||||
>LDYA L.MSG.DIR
|
||||
>SYSCALL CPrintFYA
|
||||
bcs .2
|
||||
.1 >LDYA L.MSG.FILE
|
||||
.2 >SYSCALL CPrintFYA
|
||||
rts
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.FILE.MSG .DO X.COPY.TO.DEST=1
|
||||
|
||||
.DO X.COPY.TO.DEST=1
|
||||
CS.RUN.OVERWRITE.MSG
|
||||
ldy #hDstFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
>PUSHYA
|
||||
.FIN
|
||||
|
||||
ldy #hSrcFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
>PUSHYA
|
||||
|
||||
>LDYA L.MSG.FILE
|
||||
>LDYA L.MSG.OVERWRITE
|
||||
>SYSCALL CPrintFYA
|
||||
rts
|
||||
.FIN
|
||||
*--------------------------------------
|
||||
.DO X.COPY.TO.DEST=1
|
||||
.DO X.DELETE.SOURCE=1
|
||||
CS.RUN.Rename ldy #hDstFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
|
||||
ldy #hSrcFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
|
||||
>SYSCALL Rename
|
||||
@ -639,8 +625,7 @@ CS.RUN.Open phy Save Filename
|
||||
>PUSHA
|
||||
|
||||
ply
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
|
||||
>PUSHYA
|
||||
>SYSCALL FOpen
|
||||
@ -749,13 +734,11 @@ CS.RUN.CheckErr bcs .1
|
||||
*--------------------------------------
|
||||
CS.RUN.BuildFilePath
|
||||
ldy #hSrcBasePath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
>PUSHYA
|
||||
|
||||
ldy #hSrcFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
>STYA ZPPtr1
|
||||
|
||||
>PUSHYA
|
||||
@ -767,13 +750,11 @@ CS.RUN.BuildFilePath
|
||||
|
||||
.DO X.COPY.TO.DEST=1
|
||||
ldy #hDstBasePath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
>PUSHYA
|
||||
|
||||
ldy #hDstFullPath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
jsr CS.RUN.GetPathY
|
||||
>STYA ZPPtr1
|
||||
|
||||
>PUSHYA
|
||||
@ -794,6 +775,10 @@ CS.RUN.BuildFilePath
|
||||
.FIN
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.GetPathY lda (pData),y
|
||||
>SYSCALL GetMemPtrA
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.IncCount ldy #Count
|
||||
lda (pData),y
|
||||
inc
|
||||
|
||||
Loading…
Reference in New Issue
Block a user