mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-23 21:30:48 +00:00
Kernel version 0.8 : LS, displaying <NO-DATE> when no ProDOS date/time available
This commit is contained in:
parent
382faf0ff3
commit
76d34875d7
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
19
BIN/LS.S.txt
19
BIN/LS.S.txt
@ -318,6 +318,18 @@ CS.RUN.FILE ldy #bLong
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN.PUSHEXTRA
|
||||
ldy TIME.NODATE Set NODATE as default
|
||||
|
||||
.10 lda TIME.NODATE,y
|
||||
sta TIME.Mod,y
|
||||
sta TIME.Create,y
|
||||
dey
|
||||
bpl .10
|
||||
|
||||
ldy #S.STAT.MTIME+S.TIME.MONTH
|
||||
lda (ZPPtr2),y
|
||||
beq .1 Month=0.....invalid date/time
|
||||
|
||||
>PUSHW L.TIME.Mod
|
||||
>PUSHW L.TIME.Format
|
||||
lda ZPPtr2
|
||||
@ -329,6 +341,10 @@ CS.RUN.PUSHEXTRA
|
||||
>PUSHYA
|
||||
>SYSCALL PStrFTime
|
||||
|
||||
.1 ldy #S.STAT.CTIME+S.TIME.MONTH
|
||||
lda (ZPPtr2),y
|
||||
beq .2 Month=0.....invalid date/time
|
||||
|
||||
>PUSHW L.TIME.Create
|
||||
>PUSHW L.TIME.Format
|
||||
lda ZPPtr2
|
||||
@ -340,7 +356,7 @@ CS.RUN.PUSHEXTRA
|
||||
>PUSHYA
|
||||
>SYSCALL PStrFTime
|
||||
|
||||
>PUSHW L.TIME.Mod ModTime
|
||||
.2 >PUSHW L.TIME.Mod ModTime
|
||||
>PUSHW L.TIME.Create Create Time
|
||||
rts
|
||||
*--------------------------------------
|
||||
@ -481,6 +497,7 @@ PRODOS.FT.TXT >PSTR "TXT"
|
||||
>PSTR "ATK"
|
||||
>PSTR "SYS"
|
||||
PRODOS.FT.DFLT >PSTR "$ "
|
||||
TIME.NODATE >PSTR " <NO-DATE> "
|
||||
TIME.Format >PSTR "%d-%b-%y %H:%M"
|
||||
TIME.Create .BS 20
|
||||
TIME.Mod .BS 20
|
||||
|
Loading…
Reference in New Issue
Block a user