Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-25 20:33:13 +00:00
Code Issues Projects Releases Wiki Activity

DU.S: Code cleanup. Fix usage text.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-06-11 00:07:45 -04:00
parent 91906ca42b
commit 0c510140da
1 changed files with 41 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

111
BIN/DU.S.TXT
View File

@ -12,25 +12,25 @@
.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
X.ENTER.SUBDIR .EQ 1
X.COPY.TO.DEST .EQ 0
X.DELETE.SOURCE .EQ 0
*--------------------------------------
.DUMMY
.OR ZPBIN
.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
ZPPtr1 .BS 2
ZPPtr2 .BS 2
ZPFileName .BS 2
ZPFileStat .BS 2
ZPPW .BS 2
hLineBuf .BS 1
ZPLineBuf .BS 2
bPass2 .BS 1
ZS.END
.ED
.ED
*--------------------------------------
* File Header (16 Bytes)
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
@ -68,8 +68,7 @@ J.CS.RUN.PRINT .DA CS.RUN.PRINT.REG
.DA CS.RUN.PRINT.CDEV
.DA 0
*--------------------------------------
CS.INIT
clc
CS.INIT clc
rts
*--------------------------------------
CS.RUN
@ -181,7 +180,7 @@ CS.RUN.LOOP stz bPass2
bit bPass2
bmi .9
jsr MyResetSrcDir
jsr ResetSrcDir
bcs .99
dec bPass2
@ -204,7 +203,7 @@ CS.RUN.LOOP stz bPass2
.98
jsr CS.RUN.PrintTotSumm
jsr CS.RUN.NewLine.1
jsr CS.RUN.NewLine
lda #0
sec
@ -265,13 +264,12 @@ CS.RUN.PRINT.REG
>PUSHBI 2
>SYSCALL PrintF
bcs .9
jmp CS.RUN.NewLine.1
jmp CS.RUN.NewLine
.8 clc
.9 rts
*--------------------------------------
CS.RUN.PRINT.DIR
bit bPass2
CS.RUN.PRINT.DIR bit bPass2
bmi .8
lda (ZPFileName)
@ -284,12 +282,10 @@ CS.RUN.PRINT.DIR
.8 clc
.9 rts
*--------------------------------------
CS.RUN.PRINT.CDEV
clc
CS.RUN.PRINT.CDEV clc
rts
*--------------------------------------
CS.RUN.PRINT.BDEV
bit bPass2
CS.RUN.PRINT.BDEV bit bPass2
bmi .8
>PUSHW L.MSG.BDEVEXT
@ -312,7 +308,7 @@ CS.RUN.PRINT.BDEV
>SYSCALL PrintF
bcs .9
jsr CS.RUN.NewLine.1
jsr CS.RUN.NewLine
bcs .9
>LDYA ZPFileName
@ -340,8 +336,7 @@ CS.RUN.PrintTotSumm >PUSHW L.MSG.TOTSUMM
>SYSCALL PrintF
rts
*--------------------------------------
CS.RUN.PrintCwd
>PUSHW L.MSG.CWD
CS.RUN.PrintCwd >PUSHW L.MSG.CWD
ldy #hSrcBasePath
lda (pData),y
>SYSCALL GetMemPtr
@ -350,59 +345,35 @@ CS.RUN.PrintCwd
>SYSCALL PrintF
rts
*--------------------------------------
CS.RUN.NewLine
CS.RUN.NewLine.1
lda #C.CR
CS.RUN.NewLine lda #C.CR
>SYSCALL PutChar
* bit bCRLF
* bpl CS.RUN.NewLine.8
lda #C.LF
>SYSCALL PutChar
CS.RUN.NewLine.8
clc
rts
*--------------------------------------
MyResetSrcDir jsr GethDIR Not in Kernel I am building against
>SYSCALL CloseDir
>LDA.G hSrcBasePath
>SYSCALL GetMemPtr
>SYSCALL OpenDir
bcs .9
pha
>LDA.G index
clc
adc #hDIRs-1
tay
pla
sta (pData),y
* clc
.9 rts
*----------------------------------------------
CS.DOEVENT sec
rts
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT
jsr LeaveSubDir
bcc CS.QUIT
>LDA.G hFilter
beq .3
>SYSCALL FreeMem
.3 >LDA.G hPW
beq .4
jsr LeaveSubDir
bcc CS.QUIT
>LDA.G hFilter
beq .3
>SYSCALL FreeMem
.3 >LDA.G hPW
beq .4
>SYSCALL FreeMem
>SYSCALL FreeMem
.4 lda hLineBuf
beq .8
.4 lda hLineBuf
beq .8
>SYSCALL FreeMem
>SYSCALL FreeMem
.8 clc
rts
.8 clc
rts
*--------------------------------------
.INB usr/src/shared/x.fileenum.s
*--------------------------------------