Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-01 22:41:29 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.8 : LS, displaying <NO-DATE> when no ProDOS date/time available

Browse Source
This commit is contained in:
Rémy GIBERT 2016-11-14 15:59:09 +01:00
parent 382faf0ff3
commit 76d34875d7
3 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A2OSX.BOOT.po
View File

Binary file not shown.

BIN
A2OSX.SRC.po
View File

Binary file not shown.

19
BIN/LS.S.txt
View File

@ -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