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

51
BIN/DU.S.TXT
View File

@ -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,41 +345,16 @@ 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.QUIT
jsr LeaveSubDir
bcc CS.QUIT
@ -403,6 +373,7 @@ CS.QUIT
.8 clc
rts
*--------------------------------------
.INB usr/src/shared/x.fileenum.s
*--------------------------------------