mirror of https://github.com/A2osX/A2osX.git
Kernel 0.94
This commit is contained in:
Rémy GIBERT
parent
2cf444d90b
commit
a650cb83da
Binary file not shown.
|
|
@ -207,13 +207,14 @@ FS.STAT.YA >PUSHYA
|
|||
|
||||
jsr FS.Stat.203
|
||||
|
||||
.9 >RET 4
|
||||
.9 >POP 4
|
||||
FS.STAT.YA.RTS rts
|
||||
*--------------------------------------
|
||||
FS.Stat bit CORE.FSID
|
||||
bmi FS.Stat.FX
|
||||
|
||||
FS.Stat.203 >MLICALL MLIGETFILEINFO
|
||||
bcs FS.Stat.RTS
|
||||
bcs FS.STAT.YA.RTS
|
||||
|
||||
jsr FS.ClrStat
|
||||
|
||||
|
|
@ -243,7 +244,6 @@ FS.Stat.203 >MLICALL MLIGETFILEINFO
|
|||
>LDYAI K.MLI.PARAMS+S.FI.MDATE
|
||||
ldx #K.S.STAT+S.STAT.MTIME
|
||||
jmp FS.PTime2StatYAX
|
||||
FS.Stat.RTS rts
|
||||
*--------------------------------------
|
||||
FS.Stat.FX >MLICALL MLIGETFILEINFOEX
|
||||
bcc .1
|
||||
|
|
@ -329,6 +329,9 @@ FS.PTime2StatYAX
|
|||
txa
|
||||
>PUSHA
|
||||
>SYSCALL2 PTime2Time
|
||||
|
||||
clc ignore bad date error
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
FS.GFI.Src .DA #S.FI.T,#S.FI.AUXTYPE,#S.FI.AUXTYPE+1
|
||||
|
|
|
|||
|
|
@ -168,6 +168,7 @@ TIMEX.MON >PSTR "???"
|
|||
>PSTR "December"
|
||||
*--------------------------------------
|
||||
TIMEX.PTime2Time.BAD
|
||||
lda #E.OOB
|
||||
sec
|
||||
rts
|
||||
TIMEX.PTime2Time
|
||||
|
|
@ -192,18 +193,28 @@ TIMEX.PTime2Time
|
|||
ldy #0
|
||||
jsr SHARED.TXTPTR.GetY Get Month/day
|
||||
|
||||
pha save Day
|
||||
ror
|
||||
tax save Day
|
||||
ror C is high bit of month
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
beq TIMEX.PTime2Time.BAD
|
||||
|
||||
cmp #13
|
||||
bcs TIMEX.PTime2Time.BAD
|
||||
|
||||
ldy #S.Time.MONTH
|
||||
jsr SHARED.FORPNT.PutY set month
|
||||
sta K.ComputeWDAY.1+1
|
||||
|
||||
pla get back day
|
||||
txa get back day
|
||||
beq TIMEX.PTime2Time.BAD
|
||||
|
||||
and #$1F
|
||||
cmp #32
|
||||
bcs TIMEX.PTime2Time.BAD
|
||||
|
||||
iny
|
||||
jsr SHARED.FORPNT.PutY set day
|
||||
|
||||
|
|
@ -211,6 +222,9 @@ TIMEX.PTime2Time
|
|||
sta ARG32.Sign For later...
|
||||
|
||||
lda ARG32+3 get back year
|
||||
cmp #100
|
||||
bcs TIMEX.PTime2Time.BAD
|
||||
|
||||
cmp #69 if before 70 CC,if > 70, CS
|
||||
lda #0
|
||||
rol get back C in bit 0
|
||||
|
|
@ -239,7 +253,7 @@ TIMEX.PTime2Time
|
|||
K.ComputeWDAY lda #DAY0-1 Thursday : 4 (-1 for mod 7)
|
||||
pha
|
||||
|
||||
lda #CENT0
|
||||
lda #CENT0 Starts at 1970
|
||||
sta ARG32
|
||||
lda #YEAR0
|
||||
sta ARG32+1
|
||||
|
|
@ -249,6 +263,7 @@ K.ComputeWDAY lda #DAY0-1 Thursday : 4 (-1 for mod 7)
|
|||
|
||||
cpy ARG32+2
|
||||
bne .2
|
||||
|
||||
cmp ARG32+3
|
||||
beq K.ComputeWDAY.1
|
||||
|
||||
|
|
@ -307,9 +322,9 @@ K.ComputeWDAY.1 ldx #$ff SELF MODIFIED : month
|
|||
|
||||
.80 inc adjust range 1..7
|
||||
ldy #S.Time.WDAY
|
||||
jsr SHARED.FORPNT.PutY
|
||||
clc
|
||||
rts
|
||||
|
||||
* clc
|
||||
jmp SHARED.FORPNT.PutY
|
||||
*--------------------------------------
|
||||
TIMEX.MDAY .DA #3,#0,#3,#2,#3,#2,#3,#3,#2,#3,#2,#3
|
||||
*--------------------------------------
|
||||
|
|
@ -339,12 +354,15 @@ TIMEX.CTime2Time
|
|||
eor #$ff
|
||||
tax
|
||||
pla
|
||||
|
||||
.2 tay
|
||||
sec
|
||||
sbc #7
|
||||
bcs .2
|
||||
|
||||
inx
|
||||
bne .2
|
||||
|
||||
tya
|
||||
ldy #S.Time.WDAY
|
||||
sta (ZPPtr2),y
|
||||
|
|
@ -365,6 +383,7 @@ K.CTime2Time.Year
|
|||
lda ARG32+1
|
||||
sbc /365
|
||||
bcc .2
|
||||
|
||||
sta ARG32+1
|
||||
pla
|
||||
sta ARG32
|
||||
|
|
@ -376,6 +395,7 @@ K.CTime2Time.Year
|
|||
stz ZPPtr3
|
||||
inc ZPPtr3+1
|
||||
bne .1
|
||||
|
||||
.2 pla
|
||||
|
||||
lda ZPPtr3+1
|
||||
|
|
@ -428,6 +448,7 @@ TIMEX.IsLeap cmp #0 Year = 00 ?
|
|||
|
||||
and #$3 Century mod 4 = 0 ?
|
||||
beq .9 leap year (2000)
|
||||
|
||||
.8 clc not leap (1900)
|
||||
rts
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue