Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-27 16:29:06 +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 CS.RUN.PRINT.CDEV
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
CS.INIT CS.INIT clc
clc
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN CS.RUN
@ -181,7 +180,7 @@ CS.RUN.LOOP stz bPass2
bit bPass2 bit bPass2
bmi .9 bmi .9
jsr MyResetSrcDir jsr ResetSrcDir
bcs .99 bcs .99
dec bPass2 dec bPass2
@ -204,7 +203,7 @@ CS.RUN.LOOP stz bPass2
.98 .98
jsr CS.RUN.PrintTotSumm jsr CS.RUN.PrintTotSumm
jsr CS.RUN.NewLine.1 jsr CS.RUN.NewLine
lda #0 lda #0
sec sec
@ -265,13 +264,12 @@ CS.RUN.PRINT.REG
>PUSHBI 2 >PUSHBI 2
>SYSCALL PrintF >SYSCALL PrintF
bcs .9 bcs .9
jmp CS.RUN.NewLine.1 jmp CS.RUN.NewLine
.8 clc .8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.PRINT.DIR CS.RUN.PRINT.DIR bit bPass2
bit bPass2
bmi .8 bmi .8
lda (ZPFileName) lda (ZPFileName)
@ -284,12 +282,10 @@ CS.RUN.PRINT.DIR
.8 clc .8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.PRINT.CDEV CS.RUN.PRINT.CDEV clc
clc
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.PRINT.BDEV CS.RUN.PRINT.BDEV bit bPass2
bit bPass2
bmi .8 bmi .8
>PUSHW L.MSG.BDEVEXT >PUSHW L.MSG.BDEVEXT
@ -312,7 +308,7 @@ CS.RUN.PRINT.BDEV
>SYSCALL PrintF >SYSCALL PrintF
bcs .9 bcs .9
jsr CS.RUN.NewLine.1 jsr CS.RUN.NewLine
bcs .9 bcs .9
>LDYA ZPFileName >LDYA ZPFileName
@ -340,8 +336,7 @@ CS.RUN.PrintTotSumm >PUSHW L.MSG.TOTSUMM
>SYSCALL PrintF >SYSCALL PrintF
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.PrintCwd CS.RUN.PrintCwd >PUSHW L.MSG.CWD
>PUSHW L.MSG.CWD
ldy #hSrcBasePath ldy #hSrcBasePath
lda (pData),y lda (pData),y
>SYSCALL GetMemPtr >SYSCALL GetMemPtr
@ -350,41 +345,16 @@ CS.RUN.PrintCwd
>SYSCALL PrintF >SYSCALL PrintF
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.NewLine CS.RUN.NewLine lda #C.CR
CS.RUN.NewLine.1
lda #C.CR
>SYSCALL PutChar >SYSCALL PutChar
* bit bCRLF
* bpl CS.RUN.NewLine.8
lda #C.LF lda #C.LF
>SYSCALL PutChar >SYSCALL PutChar
CS.RUN.NewLine.8
clc clc
rts 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 CS.DOEVENT sec
rts rts
*-------------------------------------- *--------------------------------------
CS.QUIT CS.QUIT
jsr LeaveSubDir jsr LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
@ -403,6 +373,7 @@ CS.QUIT
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/shared/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------