NEW AUTO 3,1 .LIST OFF .OP 65C02 .OR $2000 .TF bin/chtyp *-------------------------------------- .INB inc/macros.i .INB inc/a2osx.i .INB inc/mli.i .INB inc/mli.e.i *-------------------------------------- X.ENTER.SUBDIR .EQ 0 X.COPY.TO.DEST .EQ 0 X.DELETE.SOURCE .EQ 0 *-------------------------------------- ZPPtr1 .EQ ZPBIN ZPPtr2 .EQ ZPBIN+2 ZPFileName .EQ ZPBIN+4 ZPFileStat .EQ ZPBIN+6 ZPFullPath .EQ ZPBIN+8 *-------------------------------------- * 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 .DA #16 SS .DA #10 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.FILE .DA MSG.FILE L.MSG.OK .DA MSG.OK L.MSG.ERR .DA MSG.ERR L.PRODOS.FT.TXT .DA PRODOS.FT.TXT .DA 0 *-------------------------------------- CS.INIT clc rts *-------------------------------------- CS.RUN >INC.G ArgCount >SYSCALL ArgV bcs .7 >STYA ZPPtr1 lda (ZPPtr1) cmp #'-' bne .4 ldy #1 lda (ZPPtr1),y ldx #OptionVars-OptionList-1 .2 cmp OptionList,x beq .3 dex bne .2 .99 >PUSHW L.MSG.USAGE >PUSHBI 0 >SYSCALL PrintF lda #E.SYN sec rts .3 ldy OptionVars,x lda #$80 sta (pData),y bra CS.RUN *-------------------------------------- .4 >LDA.G HexFileType bne .5 jsr GetHexFileType bcs .99 bra CS.RUN .5 >LDA.G hSrcBasePath bne .99 >LDYA ZPPtr1 jsr InitSrcDirYA bcs .99 bra CS.RUN *-------------------------------------- .7 >LDA.G hSrcBasePath beq .99 no src ? ERROR >LDA.G HexFileType beq .99 we also have a TYPE >LDYAI 256 >SYSCALL GetMem bcs .99 >STYA ZPFullPath txa >STA.G hSrcFullPath *-------------------------------------- CS.RUN.LOOP ldy #S.PS.hStdIn lda (pPS),y >SYSCALL FEOF bcs .99 tay bne .1 >SYSCALL GetChar bcs .99 cmp #$03 Ctrl-C beq .99 Abort.... cmp #$13 Ctrl-S bne .1 >LDA.G bPause eor #$ff sta (pData),y bne CS.RUN.LOOP .1 >LDA.G bPause bne CS.RUN.LOOP Pause... *-------------------------------------- jsr GetEntry bcs CS.RUN.LEAVE jsr FilterMatch bcs CS.RUN.NEXT no match, skip.... ldy #S.STAT.MODE+1 lda (ZPFileStat),y and #$70 bne .5 REG file ? jsr CS.RUN.FILE bcc CS.RUN.NEXT rts .5 cmp /S.STAT.MODE.DIR DIR ? bne .6 jsr CS.RUN.DIR bcc CS.RUN.NEXT rts .6 lda #MLI.E.UNSUPST sec .99 rts *-------------------------------------- CS.RUN.NEXT jsr GetNextEntry bcc CS.RUN.LOOP CS.RUN.LEAVE jsr LeaveSubDir bcs .90 jsr BasePath.. jmp CS.RUN.NEXT .90 lda #0 sec .99 rts *-------------------------------------- CS.RUN.DIR >LDA.G bRecurse bpl .8 lda (ZPFileName) cmp #'.' bne .1 ldy #1 lda (ZPFileName),y beq .8 cmp #'.' bne .1 iny lda (ZPFileName),y beq .8 .1 jsr CS.RUN.GetFilePath >LDYA ZPFileName jmp EnterSubDirYA .8 clc rts *-------------------------------------- CS.RUN.FILE jsr FilterMatch bcs .8 no match, skip.... jsr CS.RUN.GetFilePath >PUSHW L.MSG.FILE >PUSHW ZPFullPath >PUSHBI 2 >SYSCALL PrintF bcs .9 >PUSHW ZPFullPath ldy #HexFileType >PUSHB (pData),y >SYSCALL ChTyp jsr CS.RUN.CheckErr .8 clc .9 rts *-------------------------------------- CS.RUN.CheckErr bcs .1 >LDYA L.MSG.OK >SYSCALL PutS rts .1 pha >PUSHW L.MSG.ERR pla pha >PUSHA >PUSHBI 1 >SYSCALL PrintF >LDA.G bContinue eor #$80 asl pla rts *-------------------------------------- CS.RUN.GetFilePath >LDA.G hSrcBasePath >SYSCALL GetMemPtr >PUSHYA >LDYA ZPFullPath >SYSCALL StrCpy >PUSHW ZPFileName >LDYA ZPFullPath >SYSCALL StrCat rts *-------------------------------------- CS.DOEVENT sec rts *-------------------------------------- CS.QUIT jsr LeaveSubDir bcc CS.QUIT >LDA.G hFilter beq .1 >SYSCALL FreeMem .1 >LDA.G hSrcFullPath beq .8 >SYSCALL FreeMem .8 clc rts *-------------------------------------- GetHexFileType ldy #$ff .10 iny lda (ZPPtr1),y bne .10 cpy #3 bne .9 lda (ZPPtr1) cmp #'0' bne .1 ldy #1 lda (ZPPtr1),y jsr IsDigit16 bcs .9 asl asl asl asl >STA.G HexFileType ldy #2 lda (ZPPtr1),y jsr IsDigit16 bcs .9 >ORA.G HexFileType sta (pData),y clc rts .1 ldx #0 >LDYA L.PRODOS.FT.TXT >STYA ZPPtr2 .2 ldy #2 .21 lda (ZPPtr1),y cmp #'a' bcc .4 cmp #'z'+1 bcs .4 eor #$20 .4 cmp (ZPPtr2),y bne .5 dey bpl .21 lda PRODOS.FT.ID,x >STA.G HexFileType clc rts .5 clc lda ZPPtr2 adc #3 sta ZPPtr2 lda ZPPtr2+1 adc #0 sta ZPPtr2+1 inx cpx #PRODOS.FT.COUNT bne .2 .9 sec rts *--------------------------------------- IsDigit16 cmp #'0' bcc .9 cmp #'9'+1 bcc .8 cmp #'A' bcc .9 cmp #'F'+1 bcc .1 cmp #'a' bcc .9 cmp #'f'+1 bcs .9 eor #$20 .1 * clc sbc #'A'-11 cc so A->10 (11-CC) clc .8 and #$0F rts .9 sec rts *-------------------------------------- .INB usr/src/bin/x.fileenum.s *-------------------------------------- CS.END *-------------------------------------- OptionList .AS "CRcr" OptionVars .DA #bContinue,#bRecurse,#bContinue,#bRecurse *-------------------------------------- MSG.USAGE .AS "Usage : CHTYP type [File *,? wildcards allowed]\r\n" .AS " type : 0xx (Hexadecimal byte),SYS,TXT...\r\n" .AS " -C : Continue on error\r\n" .AZ " -R : Recurse subdirectories\r\n" MSG.OK .AZ "[OK]" MSG.ERR .AZ "[%h]\r\n" MSG.FILE .AZ "CHTYP File:%S..." *-------------------------------------- PRODOS.FT.COUNT .EQ 6 PRODOS.FT.ID .HS 0406FAFCFDFF PRODOS.FT.TXT .AS "TXT" .AS "BIN" .AS "ASM" .AS "BAS" .AS "VAR" .AS "SYS" *-------------------------------------- .DUMMY .OR 0 DS.START ArgCount .BS 1 hSrcFullPath .BS 1 bPause .BS 1 bContinue .BS 1 bRecurse .BS 1 HexFileType .BS 1 .INB usr/src/bin/x.fileenum.g DS.END .ED *-------------------------------------- MAN SAVE usr/src/bin/chtyp.s ASM