A2osX/BIN/X.CPMVRM.S.txt

798 lines
14 KiB
Plaintext
Raw Normal View History

NEW
2017-12-22 21:24:30 +00:00
PREFIX /A2OSX.BUILD
AUTO 4,1
.LIST OFF
*--------------------------------------
X.COPY.BUF.SIZE .EQ 4096
*--------------------------------------
ZPPtr1 .EQ ZPBIN
ZPPtr2 .EQ ZPBIN+2
ZPFileName .EQ ZPBIN+4
ZPFileStat .EQ ZPBIN+6
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA 0
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
2018-08-11 10:57:57 +00:00
.DA #64 SS
.DA #8 ZP
.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
L.MSG.USAGE .DA MSG.USAGE
L.MSG.DIR .DA MSG.DIR
L.MSG.FILE .DA MSG.FILE
2017-10-04 15:12:03 +00:00
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
L.MSG.OVERWRITE .DA MSG.OVERWRITE
2017-10-04 15:12:03 +00:00
.FIN
2017-10-04 15:12:03 +00:00
L.MSG.OK .DA MSG.OK
L.MSG.ERR .DA MSG.ERR
L.MSG.DONE .DA MSG.DONE
L.STAT .DA STAT
.DA 0
*--------------------------------------
CS.INIT
.1 >INC.G ArgCount
2018-10-16 15:48:03 +00:00
>SYSCALL ArgV
bcs .7
>STYA ZPPtr1
lda (ZPPtr1)
cmp #'-'
bne .4
2018-08-11 10:57:57 +00:00
ldy #1
lda (ZPPtr1),y
ldx OptionList
.2 cmp OptionList,x
beq .3
dex
bne .2
2018-08-23 15:16:20 +00:00
.99 >PUSHBI 0
>LDYA L.MSG.USAGE
2018-06-21 15:12:10 +00:00
>SYSCALL printf
2018-10-21 20:54:07 +00:00
lda #E.SYN
sec
rts
.3 ldy OptionVars-1,x
lda #$80
sta (pData),y
bra .1
2018-08-11 10:57:57 +00:00
.4 >LDA.G index
.DO X.COPY.TO.DEST=1
bne .5 Already have a Src dir...
.ELSE
bne .99
.FIN
>LDYA ZPPtr1
jsr InitSrcDirYA
bcc .1 success, scan for any other args
.9 rts
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
.5 >LDA.G hDstBasePath
bne .99 we already have a second arg....error!
>LDYA ZPPtr1
jsr InitDstDirYA
bcc .1 success, scan for any other args
rts
2017-10-04 15:12:03 +00:00
.FIN
2017-10-04 15:12:03 +00:00
.7 >LDA.G index processed all args
beq .99 , no src ? ERROR
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
>LDA.G hDstBasePath
bne .8 we also have a Dst folder
ldy #S.PS.hPREFIX no dst folder, use actual prefix
lda (pPs),y
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
jsr InitDstDirYA
bcs .99
.FIN
.8 >LDYAI 256
2018-07-20 11:51:08 +00:00
>SYSCALL getmem
bcs .9
txa
2017-10-04 15:12:03 +00:00
>STA.G hSrcFullPath
sta (pData),y
.DO X.COPY.TO.DEST=1
>LDYAI 256
2018-07-20 11:51:08 +00:00
>SYSCALL getmem
bcs .9
txa
2017-10-04 15:12:03 +00:00
>STA.G hDstFullPath
.FIN
clc
rts
*--------------------------------------
CS.RUN >SYSCALL GetChar
bcs .11 no char
cmp #$03 Ctrl-C
bne .10
sec
rts Abort....
.10 cmp #$13 Ctrl-S
bne .11
ldy #bPause
lda (pData),y
eor #$ff
sta (pData),y
.11 ldy #bPause
lda (pData),y
bpl .1
.8 clc
rts
*--------------------------------------
.1 .DO X.COPY.TO.DEST=1
ldy #bCopy
lda (pData),y
beq .2
jsr CS.RUN.Copy
ldy #bCopy Copy completed ?
lda (pData),y
bne .8 no.....exit
clc
ldy #CopyRC
lda (pData),y
.DO X.DELETE.SOURCE=0
beq .20 no copy error
sec
jsr CS.RUN.CheckErr we have an error....
bcs .9
jmp CS.RUN.NEXT
.20 jsr CS.RUN.CheckErr Success!!
jsr CS.RUN.IncCount
jmp CS.RUN.NEXT
.ELSE
beq .2
sec
jsr CS.RUN.CheckErr we have an error....
bcc .21
rts
2018-08-11 10:57:57 +00:00
.21 >STZ.G hToDelete Cancel delete if any
jmp CS.RUN.NEXT
.FIN
.FIN
.2 .DO X.DELETE.SOURCE=1
ldy #hToDelete
lda (pData),y
beq .3
lda #0
sta (pData),y
ldy #hSrcFullPath
jsr CS.RUN.GetPathY
2018-07-20 11:51:08 +00:00
>SYSCALL remove
bcs .22
jsr CS.RUN.CheckErr Success!!!
jsr CS.RUN.IncCount
jmp CS.RUN.NEXT
.22 jsr CS.RUN.CheckErr
bcs .9
jmp CS.RUN.NEXT
.FIN
*--------------------------------------
.3 jsr GetEntry
bcs CS.RUN.LEAVE
2018-08-11 10:57:57 +00:00
>LDA.G hFilter
beq .4 No filter....
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
>PUSHYA
2018-09-05 11:31:49 +00:00
>LDYA ZPFileName
>SYSCALL StrMatch
bcs CS.RUN.NEXT no match, skip....
.4 ldy #S.STAT.P.DRIVE
lda (ZPFileStat),y ProDOS Device ?
bne .6
ldy #S.STAT.P.TYPE
lda (ZPFileStat),y
cmp #$0F Directory ?
bne .5
2017-10-04 15:12:03 +00:00
>LDA.G bRecurse
bpl CS.RUN.NEXT
2018-11-05 16:28:40 +00:00
lda (ZPFileName)
cmp #'.'
beq CS.RUN.NEXT Skip "." & ".."
jsr CS.RUN.BuildFilePath
jmp CS.RUN.DIR
.5 jsr CS.RUN.BuildFilePath
jmp CS.RUN.FILE
.6 lda #MLI.E.UNSUPST
sec
.9 rts
*--------------------------------------
CS.RUN.CR.NEXT jsr CS.RUN.CR
CS.RUN.NEXT jsr GetNextEntry
bcs CS.RUN.LEAVE
rts
*--------------------------------------
CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
bcs .99 base, we are done, exit
jsr BasePath..
.DO X.DELETE.SOURCE=1
.DO X.COPY.TO.DEST=0
jsr GetEntry
bcs *
jsr CS.RUN.BuildFilePath
ldy #hSrcFullPath
jsr CS.RUN.GetPathY
>STYA ZPPtr1
>PUSHYA
jsr CS.RUN.DIR.MSG
bcs CS.RUN.LEAVE.RTS
>LDYA ZPPtr1
2018-07-20 11:51:08 +00:00
>SYSCALL remove
jsr CS.RUN.CheckErr
bcs .99
.FIN
.FIN
jmp CS.RUN.NEXT
.99 ldy #bQuiet
lda (pData),y
bmi .91
ldy #Count+1
>PUSHB (pData),y
dey
>PUSHB (pData),y
2018-08-23 15:16:20 +00:00
>PUSHBI 2
>LDYA L.MSG.DONE
2018-06-21 15:12:10 +00:00
>SYSCALL printf
.91 ldy #RC
lda (pData),y get global RC in case of bContinue
sec
CS.RUN.LEAVE.RTS
rts
*--------------------------------------
CS.RUN.DIR jsr CS.RUN.DIR.MSG
bcs CS.RUN.LEAVE.RTS
.DO X.COPY.TO.DEST=1
>PUSHW L.STAT
ldy #hDstFullPath
jsr CS.RUN.GetPathY
>SYSCALL Stat
bcs .3 File Not exists...go create
ldy #bNoConfirm
lda (pData),y
bmi .21 no prompt, nothing to create, enter subdir
jsr CS.RUN.OVERWRITE.MSG
bcs CS.RUN.DIR.RTS
.1 >SLEEP
>SYSCALL GetChar
bcs .1
cmp #3
beq .99 abort
cmp #'N'
bne .2
jmp CS.RUN.CR.NEXT no overwrite, nothing to do, no recurse
.2 cmp #'Y'
beq .21 no create, but recurse
cmp #'A'
bne .1
ldy #bNoConfirm
lda #$ff
sta (pData),y
.21 clc
lda #0
bra .4
.3 ldy #hDstFullPath
jsr CS.RUN.GetPathY
2018-07-20 11:51:08 +00:00
>SYSCALL mkdir
.4 jsr CS.RUN.CheckErr
bcs CS.RUN.DIR.RTS
.FIN
.7 >LDYA ZPFileName
jmp EnterSubDirYA
.99 ldy #RC
lda (pData),y get global RC in case of bContinue
sec
CS.RUN.DIR.RTS rts
*--------------------------------------
CS.RUN.FILE jsr CS.RUN.FILE.MSG
bcs CS.RUN.DIR.RTS
.DO X.COPY.TO.DEST=1
>PUSHW L.STAT
ldy #hDstFullPath
jsr CS.RUN.GetPathY
>SYSCALL Stat
bcs .2 File Not exists...go create
ldy #bNoConfirm
lda (pData),y
bmi .2 no prompt, ovverwrite
jsr CS.RUN.OVERWRITE.MSG
bcs .9
.1 >SLEEP
>SYSCALL GetChar
bcs .1
cmp #3
beq .99 abort
cmp #'N'
bne .11
jmp CS.RUN.CR.NEXT no overwrite exit
.90 rts
.11 cmp #'Y'
beq .12 copy
cmp #'A'
bne .1
ldy #bNoConfirm
lda #$ff
sta (pData),y
.12 jsr GetEntry get back current entry corrupted by SLEEP
.2 .DO X.DELETE.SOURCE=1 mv file, check if srcbase=dstbase
ldy #hSrcBasePath
jsr CS.RUN.GetPathY
>PUSHYA
ldy #hDstBasePath
jsr CS.RUN.GetPathY
>SYSCALL StrMatch
bcs .3 not same dir, go copy/delete
jsr CS.RUN.Rename
jsr CS.RUN.CheckErr
bcs .9
jmp CS.RUN.NEXT
.FIN
.3 jsr CS.RUN.CopyStart
bcc .4
jsr CS.RUN.CheckErr
jmp CS.RUN.NEXT
.FIN
.4 .DO X.DELETE.SOURCE=1
ldy #hSrcFullPath
lda (pData),y
ldy #hToDelete
sta (pData),y
.FIN
clc
.9 rts
.99 ldy #RC
lda (pData),y get global RC in case of bContinue
sec
rts
*--------------------------------------
CS.RUN.DIR.MSG sec
.HS 90 bcc opcode
CS.RUN.FILE.MSG clc
2018-08-11 10:57:57 +00:00
>LDA.G bQuiet
bmi .8
php
.DO X.COPY.TO.DEST=1
ldy #hDstFullPath
jsr CS.RUN.GetPathY
>PUSHYA
2017-10-04 15:12:03 +00:00
.FIN
ldy #hSrcFullPath
jsr CS.RUN.GetPathY
2018-08-23 20:38:32 +00:00
>PUSHYA
2018-08-23 15:16:20 +00:00
.DO X.COPY.TO.DEST=1
>PUSHBI 4
.ELSE
>PUSHBI 2
.FIN
plp
bcc .1
>LDYA L.MSG.DIR
bcs .2
.1 >LDYA L.MSG.FILE
2018-06-21 15:12:10 +00:00
.2 >SYSCALL printf
rts
.8 clc
rts
*--------------------------------------
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
CS.RUN.OVERWRITE.MSG
2018-08-11 10:57:57 +00:00
>LDA.G bQuiet
bmi .1
jsr CS.RUN.CR
.1 ldy #hDstFullPath
jsr CS.RUN.GetPathY
>PUSHYA
2018-08-23 15:16:20 +00:00
>PUSHBI 2
>LDYA L.MSG.OVERWRITE
2018-06-21 15:12:10 +00:00
>SYSCALL printf
rts
CS.RUN.OVERWRITE.KEY
rts
2017-10-04 15:12:03 +00:00
.FIN
*--------------------------------------
CS.RUN.CR lda #13
2018-07-18 15:30:42 +00:00
>SYSCALL PutChar
bcs .9
lda #10
2018-07-18 15:30:42 +00:00
>SYSCALL PutChar
.9 rts
*--------------------------------------
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
.DO X.DELETE.SOURCE=1
2017-10-04 15:12:03 +00:00
CS.RUN.Rename ldy #hDstFullPath
jsr CS.RUN.GetPathY
>PUSHYA
ldy #hSrcFullPath
jsr CS.RUN.GetPathY
>SYSCALL Rename
rts
2017-10-04 15:12:03 +00:00
.FIN
2017-10-04 15:12:03 +00:00
.FIN
*--------------------------------------
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
CS.RUN.CopyStart
ldy #hSrcFullPath
2018-10-02 15:52:30 +00:00
lda #O.RDONLY
jsr CS.RUN.Open
bcs .99
2018-08-11 10:57:57 +00:00
>STA.G hSrcFile
ldy #hDstFullPath
2018-10-02 15:52:30 +00:00
lda #O.WRONLY+O.CREATE
jsr CS.RUN.Open
bcs .9
ldy #hDstFile
sta (pData),y
ldy #bCopy
lda #$ff
sta (pData),y
inc
ldy #CopyRC Reset RC
sta (pData),y
clc
rts
.9 pha
2018-08-11 10:57:57 +00:00
>LDA.G hSrcFile
2018-07-20 11:51:08 +00:00
>SYSCALL fclose
pla
ldy #CopyRC
sta (pData),y
sec
.99 rts
*--------------------------------------
CS.RUN.Open phy Save Filename
pha Save open mode
ldy #S.STAT.P.AUXTYPE+1
>PUSHB (ZPFileStat),y
dey
>PUSHB (ZPFileStat),y
ldy #S.STAT.P.TYPE
>PUSHB (ZPFileStat),y
pla
>PUSHA
ply
jsr CS.RUN.GetPathY
>SYSCALL FOpen
rts
*--------------------------------------
2018-09-05 11:31:49 +00:00
CS.RUN.Copy >STZ.G hCopyBuf
>LDYAI X.COPY.BUF.SIZE
2018-07-20 11:51:08 +00:00
>SYSCALL getmem
bcs .9
>STYA ZPPtr1
2018-09-05 11:31:49 +00:00
txa
>STA.G hCopyBuf
>PUSHWI X.COPY.BUF.SIZE Bytes To Read
2018-07-25 15:26:14 +00:00
>PUSHW ZPPtr1 Dst Ptr
2018-07-24 16:00:24 +00:00
>LDA.G hSrcFile
>SYSCALL FRead
bcc .1
cmp #MLI.E.EOF
2017-02-22 07:31:16 +00:00
bne .9
lda #0
bra .9
2018-09-05 11:31:49 +00:00
.1 >PUSHYA Bytes To Write
2018-07-25 15:26:14 +00:00
>PUSHW ZPPtr1 Src Ptr
2018-07-24 16:00:24 +00:00
>LDA.G hDstFile
>SYSCALL FWrite
bcs .9
2018-09-05 11:31:49 +00:00
>LDA.G hCopyBuf
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem
2017-02-22 07:31:16 +00:00
ldy #bQuiet
lda (pData),y
bmi .8
lda #'.'
2018-07-18 15:30:42 +00:00
>SYSCALL PutChar
rts
.8 clc
rts
.9 ldy #CopyRC
sta (pData),y
2018-09-05 11:31:49 +00:00
>LDA.G hCopyBuf
beq CS.RUN.CopyEnd
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem
*--------------------------------------
2018-08-11 10:57:57 +00:00
CS.RUN.CopyEnd >LDA.G hSrcFile
2018-07-20 11:51:08 +00:00
>SYSCALL fclose
2018-09-05 11:31:49 +00:00
>LDA.G hDstFile
lda (pData),y
2018-07-20 11:51:08 +00:00
>SYSCALL fclose
ldy #bCopy
lda #$0
sta (pData),y
clc
2017-10-04 15:12:03 +00:00
rts
.FIN
2017-10-04 15:12:03 +00:00
*--------------------------------------
CS.RUN.CheckErr bcs .1
ldy #bQuiet
lda (pData),y
bmi .8
>LDYA L.MSG.OK
2018-08-23 15:16:20 +00:00
>SYSCALL puts
2018-09-05 11:31:49 +00:00
.8 rts
.1 ldy #RC
sta (pData),y
pha
ldy #bContinue
lda (pData),y
bpl .2
pla
>PUSHA
2018-08-23 15:16:20 +00:00
>PUSHBI 1
>LDYA L.MSG.ERR
2018-06-21 15:12:10 +00:00
>SYSCALL printf
rts
.2 jsr CS.RUN.CR
pla
sec
rts
*--------------------------------------
CS.RUN.BuildFilePath
ldy #hSrcBasePath
jsr CS.RUN.GetPathY
>PUSHYA
ldy #hSrcFullPath
jsr CS.RUN.GetPathY
>STYA ZPPtr1
>SYSCALL StrCpy
>PUSHW ZPFileName
2018-07-16 05:52:52 +00:00
>LDYA ZPPtr1
>SYSCALL StrCat
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
ldy #hDstBasePath
jsr CS.RUN.GetPathY
>PUSHYA
ldy #hDstFullPath
jsr CS.RUN.GetPathY
>STYA ZPPtr1
>SYSCALL StrCpy
ldy #hDstFileName
lda (pData),y
beq .1
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
>PUSHYA
bra .2
.1 >PUSHW ZPFileName
2018-07-16 05:52:52 +00:00
.2 >LDYA ZPPtr1
>SYSCALL StrCat
2017-10-04 15:12:03 +00:00
.FIN
2017-10-04 15:12:03 +00:00
rts
*--------------------------------------
CS.RUN.GetPathY lda (pData),y
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
rts
*--------------------------------------
CS.RUN.IncCount ldy #Count
lda (pData),y
inc
sta (pData),y
bne .9
iny
lda (pData),y
inc
sta (pData),y
.9 rts
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT jsr LeaveSubDir
bcc CS.QUIT
.DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
2018-08-11 10:57:57 +00:00
>LDA.G bCopy
bpl .1
2018-08-11 10:57:57 +00:00
>LDA.G hSrcFile
2018-07-20 11:51:08 +00:00
>SYSCALL fclose
2018-08-11 10:57:57 +00:00
>LDA.G hDstFile
2018-07-20 11:51:08 +00:00
>SYSCALL fclose
.1 ldy #hDstFullPath
jsr CS.QUIT.FREE
ldy #hDstFilename
jsr CS.QUIT.FREE
.FIN
ldy #hSrcFullPath
jsr CS.QUIT.FREE
2018-08-11 10:57:57 +00:00
ldy #hFilter
jsr CS.QUIT.FREE
clc
rts
*--------------------------------------
CS.QUIT.FREE lda (pData),y
beq .9
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem
.9 rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/BIN/X.CPMVRM.S
2018-08-11 10:57:57 +00:00
LOAD /A2OSX.SRC/BIN/CP.S
ASM