Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-22 16:31:07 +00:00
Code Issues Projects Releases Wiki Activity
4bbfa0899d
A2osX/BIN/DU.S.txt

464 lines
16 KiB
Plaintext
Raw Normal View History

Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
NEW
AUTO 3,1
.LIST OFF
.OP 65C02
.OR $2000
.TF bin/du
*--------------------------------------
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/kernel.i
.INB inc/mli.i
.INB inc/mli.e.i
*--------------------------------------
X.ENTER.SUBDIR .EQ 1
X.COPY.TO.DEST .EQ 0
X.DELETE.SOURCE .EQ 0
*--------------------------------------
.DUMMY
.OR ZPBIN
ZS.START
ZPPtr1 .BS 2
ZPPtr2 .BS 2
ZPFileName .BS 2
ZPFileStat .BS 2
ZPPW .BS 2
hLineBuf .BS 1
ZPLineBuf .BS 2
bPass2 .BS 1
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
bDirLevel .BS 1
DU: Added CS.RUN.ISATTY and fixed EOL handling
2021-07-04 23:12:41 +00:00
bIsTTY .BS 1
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
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 #64 Stack Size
.DA #ZS.END-ZS.START Zero Page Size
.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
.DA CS.DOEVENT
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.DA CS.QUIT
L.MSG.USAGE .DA MSG.USAGE
L.MSG.REG1 .DA MSG.REG1
L.MSG.REG2 .DA MSG.REG2
L.MSG.DIRSUMM .DA MSG.DIRSUMM
L.MSG.BDEV .DA MSG.BDEV
L.MSG.BDEVEXT .DA MSG.BDEVEXT
L.MSG.CWD .DA MSG.CWD
J.CS.RUN.PRINT .DA CS.RUN.PRINT.REG
.DA CS.RUN.PRINT.DIR
.DA CS.RUN.PRINT.CDEV
.DA CS.RUN.PRINT.BDEV
.DA CS.RUN.PRINT.CDEV
.DA CS.RUN.PRINT.CDEV
.DA CS.RUN.PRINT.CDEV
.DA CS.RUN.PRINT.CDEV
.DA 0
*--------------------------------------
CS.INIT clc
rts
*--------------------------------------
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
CS.RUN
DU: Fix to previous commit
2021-07-04 23:45:06 +00:00
stz bIsTTY
DU: Added CS.RUN.ISATTY and fixed EOL handling
2021-07-04 23:12:41 +00:00
jsr CS.RUN.ISATTY
DU: Fix to previous commit
2021-07-04 23:45:06 +00:00
.1 stz bDirLevel
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
>INC.G ArgCount
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>SYSCALL ArgV
bcs .6
>STYA ZPPtr1
lda (ZPPtr1)
cmp #'-'
bne .4
ldy #1
lda (ZPPtr1),y
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
ldx #OptionVars-OptionList-1
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.2 cmp OptionList,x
beq .3
dex
bpl .2
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>PUSHW L.MSG.USAGE
>PUSHBI 0
>SYSCALL PrintF
lda #E.SYN
sec
rts
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.3 ldy OptionVars,x
lda #$80
sta (pData),y
bra .1
.4 >LDYA ZPPtr1
jsr InitSrcDirYA
bcc .1 scan for any other args
.9 rts
.6 >LDA.G index do we have a Source dir ?
bne .8
ldy #S.PS.hCWD
lda (pPS),y
>SYSCALL GetMemPtr
jsr InitSrcDirYA
bcs .9
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.8 >PUSHEA.G TIME.SysTime
>SYSCALL Time
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>LDYAI S.PW
>SYSCALL GetMem
bcs .9
>STYA ZPPW
txa
>STA.G hPW
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>LDYAI 256
>SYSCALL GetMem
bcs .9
>STYA ZPLineBuf
stx hLineBuf
*--------------------------------------
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
CS.RUN.LOOP
stz bPass2
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.1 ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL FEOF
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
bcc .2
rts I/O error
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
.2 tay
bne .3 no char
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>SYSCALL GetChar
cmp #$03 Ctrl-C
beq .99 Abort....
cmp #$13 Ctrl-S
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
bne .3
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>LDA.G bPause
eor #$ff
sta (pData),y
bne .1
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
.3 >LDA.G bPause
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
bne .1
jsr GetEntry First entry
bcs .9
jsr FilterMatch Filter filename
bcs .8 no match, skip....
lda (ZPFileName)
cmp #'.'
beq .8
.4 ldy #S.STAT.MODE+1
lda (ZPFileStat),y
and #$70
lsr
lsr
lsr
tax
jsr CS.RUN.PRINT.JMP
bcs .99
.8 jsr GetNextEntry Next entry
bcc .1 If there is one, go again
bit bPass2
bmi .9
jsr ResetSrcDir
bcs .99
dec bPass2
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
bra .1
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.9 >LDA.G bSummary
bne .91
jsr CS.RUN.PrintDirSumm
jsr CS.RUN.PrintCwd
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
jsr CS.RUN.NewLine
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
.91 dec bDirLevel
jsr LeaveSubDir "cd .."
bcs .97 This means we are done
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
jsr BasePath.. Prune pathname
jsr GetNextEntry Get next entry
jmp CS.RUN.LOOP Go again
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
.97 >LDA.G bSummary
beq .98
inc bDirLevel
jsr CS.RUN.PrintDirSumm
jsr CS.RUN.PrintCwd
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
jsr CS.RUN.NewLine
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
.98 lda #0
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
sec
.99 rts
*--------------------------------------
CS.RUN.PRINT.JMP
jmp (J.CS.RUN.PRINT,x)
*--------------------------------------
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
CS.RUN.PRINT.REG bit bPass2
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
bmi .1
clc
rts
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
.1 ldx bDirLevel X is loop ctr bDirLevel..0
.2 >LEA.G BlkCounters
>STYA ZPPtr1
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
ldy #S.STAT.BLOCKS+3 Read 32-bit number of blocks
lda (ZPFileStat),y
pha And push to stack
dey
lda (ZPFileStat),y
pha
dey
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
lda (ZPFileStat),y
pha
dey
lda (ZPFileStat),y
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
pha
txa Get loop counter
asl x2
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
asl x2 again
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
tay
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
pla Do 32-bit add
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
clc
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
adc (ZPPtr1),y LSB
sta (ZPPtr1),y
pla
iny
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
adc (ZPPtr1),y
sta (ZPPtr1),y
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
pla
iny
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
adc (ZPPtr1),y
sta (ZPPtr1),y
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
pla
iny
adc (ZPPtr1),y MSB
sta (ZPPtr1),y
dex Decrement loop counter
cpx #$ff Stop if -1
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
bne .2
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>LDA.G bAllFiles
beq .8
>PUSHW L.MSG.REG1
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
ldy #S.STAT.BLOCKS+3
ldx #4
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
.3 lda (ZPFileStat),y
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>PUSHA
dey
dex
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
bne .3 (4)
>PUSHBI 4
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>SYSCALL PrintF
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
bcs .9
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
jsr CS.RUN.PrintCwd
>PUSHW L.MSG.REG2
>PUSHW ZPFileName (2)
>PUSHBI 2
>SYSCALL PrintF
bcs .9
jmp CS.RUN.NewLine
.8 clc
.9 rts
*--------------------------------------
CS.RUN.PRINT.DIR bit bPass2
bmi .8
lda (ZPFileName)
cmp #'.'
beq .8
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
inc bDirLevel
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>LDYA ZPFileName
jmp EnterSubDirYA
.8 clc
.9 rts
*--------------------------------------
CS.RUN.PRINT.CDEV clc
rts
*--------------------------------------
CS.RUN.PRINT.BDEV bit bPass2
bmi .8
>PUSHW L.MSG.BDEVEXT
>PUSHW ZPFileName
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
ldy #S.STAT.P.SLOT
>PUSHB (ZPFileStat),y
iny DRIVE
>PUSHB (ZPFileStat),y
ldy #S.STAT.BLOCKS+1
>PUSHB (ZPFileStat),y
dey
>PUSHB (ZPFileStat),y
ldy #S.STAT.P.DEVBLOCKS+1
>PUSHB (ZPFileStat),y
dey
>PUSHB (ZPFileStat),y
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>PUSHBI 8
>SYSCALL PrintF
bcs .9
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
jsr CS.RUN.NewLine
bcs .9
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
inc bDirLevel
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>LDYA ZPFileName
jsr EnterSubDirYA
bcs .9
.8 clc
.9 rts
*--------------------------------------
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
CS.RUN.PrintDirSumm >LEA.G BlkCounters
>STYA ZPPtr1
lda bDirLevel
asl
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
asl
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
clc
adc ZPPtr1
sta ZPPtr1
lda #$00
adc ZPPtr1+1
sta ZPPtr1+1
>PUSHW L.MSG.DIRSUMM
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
ldy #$03
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
lda (ZPPtr1),y
>PUSHA
dey
lda (ZPPtr1),y
>PUSHA
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
dey
lda (ZPPtr1),y
>PUSHA
dey
lda (ZPPtr1),y
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
>PUSHA
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
>PUSHBI 4
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>SYSCALL PrintF
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
ldy #$03
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
lda #$00
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
sta (ZPPtr1),y
dey
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
sta (ZPPtr1),y
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
dey
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
sta (ZPPtr1),y
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
dey
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
sta (ZPPtr1),y
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
rts
*--------------------------------------
CS.RUN.PrintCwd >PUSHW L.MSG.CWD
ldy #hSrcBasePath
lda (pData),y
>SYSCALL GetMemPtr
>PUSHYA
>PUSHBI 2
>SYSCALL PrintF
rts
*--------------------------------------
CS.RUN.NewLine lda #C.CR
>SYSCALL PutChar
DU: Added CS.RUN.ISATTY and fixed EOL handling
2021-07-04 23:12:41 +00:00
lda bIsTTY
beq .9
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
lda #C.LF
>SYSCALL PutChar
DU: Added CS.RUN.ISATTY and fixed EOL handling
2021-07-04 23:12:41 +00:00
.9 rts
*--------------------------------------
CS.RUN.ISATTY ldy #S.PS.hStdOut
lda (pPS),y
tax
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
lda hFDs-1,x
DU: Added CS.RUN.ISATTY and fixed EOL handling
2021-07-04 23:12:41 +00:00
>SYSCALL GetMemPtr
>STYA ZPPtr1
lda (ZPPtr1)
beq .9
inc bIsTTY
.9 rts
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
DU: Now includes size of subdirs in parent size
2021-06-15 02:07:12 +00:00
CS.QUIT jsr LeaveSubDir
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
bcc CS.QUIT
>LDA.G hFilter
beq .3
>SYSCALL FreeMem
.3 >LDA.G hPW
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
beq .4
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
>SYSCALL FreeMem
.4 lda hLineBuf
beq .8
>SYSCALL FreeMem
KERNEL 0.94-2:Fixes for TELNETD/BBSD
2021-07-26 13:45:29 +00:00
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.8 clc
rts
*--------------------------------------
.INB usr/src/shared/x.fileenum.s
*--------------------------------------
CS.END
*--------------------------------------
OptionList .AS "SAsa"
OptionVars .DA #bSummary,#bAllFiles,#bSummary,#bAllFiles
*--------------------------------------
MSG.USAGE .AS "Usage : DU [-A] [-S] [filespec]\r\n"
.AS " -A : Show all files (not only directories)\r\n"
.AZ " -S : Show only summary\r\n"
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
MSG.REG1 .AZ "%5u "
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
MSG.REG2 .AZ "%s"
MSG.CWD .AZ "%s"
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
MSG.DIRSUMM .AZ "%5u "
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
MSG.BDEVEXT .AZ "/%15s s%dd%d Blocks Used:%5D Total:%5D"
MSG.BDEV .AZ "\e[32m%s/\e[0m"
*--------------------------------------
.DUMMY
.OR 0
DS.START
ArgCount .BS 1
TIME.SysTime .BS S.TIME
bPause .BS 1
bSummary .BS 1
bAllFiles .BS 1
hPW .BS 1
DU: Supports 32-bit number of blocks (for CIFS)
2021-06-15 21:44:06 +00:00
BlkCounters .BS 64 Array of 32 bit integers, size 16
Modified ProDOS.FX IRQ handler
2021-06-11 17:25:09 +00:00
.INB usr/src/shared/x.fileenum.g
DS.END .ED
*--------------------------------------
MAN
SAVE usr/src/bin/du.s
ASM
Reference in New Issue Copy Permalink