A2osX/BIN/CHTYP.S.txt

432 lines
7.2 KiB
Plaintext
Raw Normal View History

NEW
2019-05-02 09:52:32 +00:00
AUTO 3,1
.LIST OFF
.OP 65C02
.OR $2000
2020-03-10 16:42:07 +00:00
.TF bin/chtyp
*--------------------------------------
2020-05-21 12:55:49 +00:00
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.i
.INB inc/mli.e.i
*--------------------------------------
2019-04-30 16:08:47 +00:00
X.ENTER.SUBDIR .EQ 0
X.COPY.TO.DEST .EQ 0
X.DELETE.SOURCE .EQ 0
*--------------------------------------
* Zero Page Segment, up to 32 bytes
*--------------------------------------
.DUMMY
.OR ZPBIN
ZS.START
ZPPtr1 .BS 2
ZPPtr2 .BS 2
ZPFileName .BS 2
ZPFileStat .BS 2
ZPFullPath .BS 2
ArgIndex .BS 1
HexFileType .BS 1
hSrcFullPath .BS 1
bPause .BS 1
bContinue .BS 1
bRecurse .BS 1
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA #0 S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data SegmentSize
.DA #16 Stack Size
.DA #ZS.END-ZS.START Zero Page Size
.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
2022-11-02 06:54:30 +00:00
.DA CS.DOEVENT
.DA CS.QUIT
*--------------------------------------
L.MSG.USAGE .DA MSG.USAGE
L.MSG.FILE .DA MSG.FILE
L.MSG.OK .DA MSG.OK
L.MSG.ERR .DA MSG.ERR
2022-11-02 06:54:30 +00:00
L.PRODOS.FT.TXT .DA PRODOS.FT.TXT
.DA 0
*--------------------------------------
2020-05-21 12:55:49 +00:00
CS.INIT clc
rts
*--------------------------------------
CS.RUN inc ArgIndex
lda ArgIndex
2018-10-16 15:48:03 +00:00
>SYSCALL ArgV
2017-10-04 15:12:03 +00:00
bcs .7
>STYA ZPPtr1
lda (ZPPtr1)
cmp #'-'
bne .4
2022-11-02 06:54:30 +00:00
ldy #1
lda (ZPPtr1),y
ldx #OptionVars-OptionList-1
.2 cmp OptionList,x
beq .3
dex
bne .2
2022-11-02 06:54:30 +00:00
.99 >LDYA L.MSG.USAGE
>SYSCALL PutS
2018-10-21 20:54:07 +00:00
lda #E.SYN
sec
rts
.3 ldy OptionVars,x
lda #$80
sta $0,y
2020-05-21 12:55:49 +00:00
bra CS.RUN
*--------------------------------------
.4 lda HexFileType
bne .5
2022-11-02 06:54:30 +00:00
jsr GetHexFileType
bcs .99
2020-05-21 12:55:49 +00:00
bra CS.RUN
.5 >LDA.G hSrcBasePath
bne .99
>LDYA ZPPtr1
jsr InitSrcDirYA
bcs .99
2020-05-21 12:55:49 +00:00
bra CS.RUN
*--------------------------------------
.7 >LDA.G hSrcBasePath
beq .99 no src ? ERROR
lda HexFileType
beq .99 we also have a TYPE
2022-11-02 06:54:30 +00:00
2017-10-04 15:12:03 +00:00
>LDYAI 256
2020-02-28 07:21:46 +00:00
>SYSCALL GetMem
2017-10-04 15:12:03 +00:00
bcs .99
>STYA ZPFullPath
stx hSrcFullPath
*--------------------------------------
2020-05-21 12:55:49 +00:00
CS.RUN.LOOP ldy #S.PS.hStdIn
2019-03-19 16:52:08 +00:00
lda (pPS),y
2020-08-17 20:47:31 +00:00
>SYSCALL FEOF
2019-03-19 16:52:08 +00:00
bcs .99
2020-05-21 12:55:49 +00:00
2019-03-19 16:52:08 +00:00
tay
2020-05-21 12:55:49 +00:00
bne .1
2019-03-19 16:52:08 +00:00
>SYSCALL GetChar
bcs .99
2020-05-21 12:55:49 +00:00
cmp #$03 Ctrl-C
2020-05-21 12:55:49 +00:00
beq .99 Abort....
cmp #$13 Ctrl-S
2020-05-21 12:55:49 +00:00
bne .1
lda bPause
eor #$ff
sta bPause
2020-05-21 12:55:49 +00:00
bne CS.RUN.LOOP
.1 bit bPause
bmi CS.RUN.LOOP Pause...
2020-05-21 12:55:49 +00:00
*--------------------------------------
jsr GetEntry
2020-05-21 12:55:49 +00:00
bcs CS.RUN.LEAVE
2019-04-30 16:08:47 +00:00
jsr FilterMatch
2020-05-21 12:55:49 +00:00
bcs CS.RUN.NEXT no match, skip....
ldy #S.STAT.MODE+1
lda (ZPFileStat),y
2020-05-21 12:55:49 +00:00
and #$70
bne .5 REG file ?
2020-05-21 12:55:49 +00:00
jsr CS.RUN.FILE
bcc CS.RUN.NEXT
rts
2020-05-21 12:55:49 +00:00
.5 cmp /S.STAT.MODE.DIR DIR ?
bne .6
jsr CS.RUN.DIR
bcc CS.RUN.NEXT
rts
2020-05-21 12:55:49 +00:00
.6 lda #MLI.E.UNSUPST
sec
.99 rts
*--------------------------------------
2020-05-21 12:55:49 +00:00
CS.RUN.NEXT jsr GetNextEntry
bcc CS.RUN.LOOP
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
CS.RUN.LEAVE jsr LeaveSubDir
bcs .90
jsr BasePath..
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
jmp CS.RUN.NEXT
.90 lda #0
sec
.99 rts
*--------------------------------------
CS.RUN.DIR bit bRecurse
2020-05-21 12:55:49 +00:00
bpl .8
lda (ZPFileName)
cmp #'.'
bne .1
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
ldy #1
lda (ZPFileName),y
beq .8
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
cmp #'.'
bne .1
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
iny
lda (ZPFileName),y
beq .8
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
.1 jsr CS.RUN.GetFilePath
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
>LDYA ZPFileName
jmp EnterSubDirYA
.8 clc
2019-10-03 06:25:27 +00:00
rts
*--------------------------------------
2020-05-21 12:55:49 +00:00
CS.RUN.FILE jsr FilterMatch
bcs .8 no match, skip....
2022-11-02 06:54:30 +00:00
2020-05-21 12:55:49 +00:00
jsr CS.RUN.GetFilePath
2022-11-02 06:54:30 +00:00
2020-01-31 20:26:51 +00:00
>PUSHW L.MSG.FILE
2017-10-04 15:12:03 +00:00
>PUSHW ZPFullPath
2018-08-23 15:16:20 +00:00
>PUSHBI 2
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
bcs .9
2022-11-02 06:54:30 +00:00
2020-03-10 16:42:07 +00:00
>PUSHW ZPFullPath
>PUSHB HexFileType
>SYSCALL ChTyp
jsr CS.RUN.CheckErr
2020-05-21 12:55:49 +00:00
.8 clc
.9 rts
*--------------------------------------
CS.RUN.CheckErr bcs .1
>LDYA L.MSG.OK
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
rts
2020-05-21 12:55:49 +00:00
.1 pha
2020-01-31 20:26:51 +00:00
>PUSHW L.MSG.ERR
pla
pha
>PUSHA
2018-08-23 15:16:20 +00:00
>PUSHBI 1
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
lda bContinue
2018-11-28 11:39:33 +00:00
eor #$80
asl
pla
2018-11-28 11:39:33 +00:00
rts
*--------------------------------------
CS.RUN.GetFilePath
2021-05-04 17:31:21 +00:00
>PUSHW ZPFullPath
2017-10-04 15:12:03 +00:00
>LDA.G hSrcBasePath
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
>PUSHYA
2017-10-04 15:12:03 +00:00
>SYSCALL StrCpy
2021-05-04 17:31:21 +00:00
>PUSHW ZPFullPath
>PUSHW ZPFileName
2017-10-04 15:12:03 +00:00
>SYSCALL StrCat
rts
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT jsr LeaveSubDir
bcc CS.QUIT
2017-10-04 15:12:03 +00:00
>LDA.G hFilter
beq .1
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem
.1 lda hSrcFullPath
2017-10-04 15:12:03 +00:00
beq .8
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem
2017-10-04 15:12:03 +00:00
.8 clc
rts
*--------------------------------------
2017-10-04 15:12:03 +00:00
GetHexFileType ldy #$ff
.10 iny
lda (ZPPtr1),y
bne .10
2019-03-19 16:52:08 +00:00
2017-10-04 15:12:03 +00:00
cpy #3
bne .9
2017-10-04 15:12:03 +00:00
lda (ZPPtr1)
cmp #'0'
bne .1
2019-03-19 16:52:08 +00:00
ldy #1
lda (ZPPtr1),y
2019-03-19 16:52:08 +00:00
jsr IsDigit16
bcs .9
asl
asl
asl
asl
sta HexFileType
2022-11-02 06:54:30 +00:00
iny
lda (ZPPtr1),y
2019-03-19 16:52:08 +00:00
jsr IsDigit16
bcs .9
tsb HexFileType
* clc
rts
.1 ldx #0
>LDYA L.PRODOS.FT.TXT
>STYA ZPPtr2
2017-10-04 15:12:03 +00:00
.2 ldy #2
.21 lda (ZPPtr1),y
cmp #'a'
2017-10-04 15:12:03 +00:00
bcc .4
cmp #'z'+1
2017-10-04 15:12:03 +00:00
bcs .4
eor #$20
2017-10-04 15:12:03 +00:00
.4 cmp (ZPPtr2),y
bne .5
dey
2017-10-04 15:12:03 +00:00
bpl .21
lda PRODOS.FT.HEX,x
sta HexFileType
clc
rts
2017-10-04 15:12:03 +00:00
.5 clc
lda ZPPtr2
adc #3
sta ZPPtr2
bcc .6
2022-11-02 06:54:30 +00:00
inc ZPPtr2+1
.6 inx
cpx #PRODOS.FT.TXT-PRODOS.FT.HEX
bne .2
2019-03-19 16:52:08 +00:00
.9 sec
rts
*---------------------------------------
IsDigit16 cmp #'0'
bcc .9
2019-03-19 16:52:08 +00:00
cmp #'9'+1
bcc .8
2019-03-19 16:52:08 +00:00
cmp #'A'
bcc .9
2019-03-19 16:52:08 +00:00
cmp #'F'+1
bcc .1
2019-03-19 16:52:08 +00:00
cmp #'a'
bcc .9
2019-03-19 16:52:08 +00:00
cmp #'f'+1
bcs .9
eor #$20
2019-10-03 06:25:27 +00:00
.1
2019-03-19 16:52:08 +00:00
* clc
sbc #'A'-11 cc so A->10 (11-CC)
clc
2019-10-03 06:25:27 +00:00
.8 and #$0F
2019-03-19 16:52:08 +00:00
rts
.9 sec
rts
*--------------------------------------
2020-08-25 14:54:30 +00:00
.INB usr/src/shared/x.fileenum.s
*--------------------------------------
CS.END
*--------------------------------------
OptionList .AS "CRcr"
OptionVars .DA #bContinue,#bRecurse,#bContinue,#bRecurse
*--------------------------------------
2022-11-02 06:54:30 +00:00
MSG.USAGE .CS "Usage : CHTYP type [File *,? wildcards allowed]\r\n"
.CS " type : 0xx (Hexadecimal byte),SYS,TXT...\r\n"
.CS " -C : Continue on error\r\n"
.CZ " -R : Recurse subdirectories\r\n"
MSG.OK .CZ "[OK]"
MSG.ERR .CZ "[%h]\r\n"
MSG.FILE .CZ "CHTYP File:%S..."
*--------------------------------------
PRODOS.FT.HEX .HS 0406FAFCFDCBCCCFFF
PRODOS.FT.TXT .AS "TXT"
.AS "BIN"
2018-08-24 10:20:23 +00:00
.AS "ASM"
.AS "BAS"
.AS "VAR"
.AS "PIX"
.AS "FON"
2022-11-02 06:54:30 +00:00
.AS "PAK"
.AS "SYS"
*--------------------------------------
.DUMMY
.OR 0
DS.START .INB usr/src/shared/x.fileenum.g
2020-08-17 20:47:31 +00:00
DS.END .ED
*--------------------------------------
MAN
2020-05-21 12:55:49 +00:00
SAVE usr/src/bin/chtyp.s
ASM