A2osX/SYS/KERNEL.S.TIME.txt

381 lines
7.0 KiB
Plaintext
Raw Normal View History

PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
.LIST OFF
*--------------------------------------
2016-08-31 15:38:48 +00:00
* https://www.cise.ufl.edu/~cop4600/cgi-bin/lxr/http/source.cgi/lib/ansi/gmtime.c
*--------------------------------------
2016-08-31 15:38:48 +00:00
SECSDAY .EQ 86400 60*60*24
CENTURY0 .EQ 19
YEAR0 .EQ 70
DAY0 .EQ 4 day 0 was a thursday
*--------------------------------------
2016-09-21 15:20:37 +00:00
* K.TimeYA get System Time
* In :
* Y,A = PTR to S.TIME
* Out :
* S.TIME filled with System date/time
*--------------------------------------
2016-09-21 15:20:37 +00:00
K.TimeYA >STYA ZPQuickPtr2
>MLICALL MLIGETTIME
>LDYAI DATELO
>STYA ZPQuickPtr1
2016-09-21 15:20:37 +00:00
bra K.PTime2Time.1
*--------------------------------------
* In :
* PULLW = Src PDATE/TIME (DWORD)
* PULLW = Dst PTR To S.TIME
*--------------------------------------
K.PTime2Time jsr PullPtr1Ptr2
2016-09-21 15:20:37 +00:00
K.PTime2Time.1 ldy #1
lda (ZPQuickPtr1),y Get Year
lsr C is high bit of month
2016-09-21 15:20:37 +00:00
ldy #S.Time.YEAR
sta (ZPQuickPtr2),y set year
2016-09-21 15:20:37 +00:00
sta K.CTime.Year for conputing Century/WDAY later
lda (ZPQuickPtr1) Get Month/day
pha save Day
ror
lsr
lsr
lsr
lsr
2016-09-21 15:20:37 +00:00
ldy #S.Time.MONTH
sta (ZPQuickPtr2),y set month
pla get back day
and #$1F
iny
sta (ZPQuickPtr2),y set day
2016-09-21 15:20:37 +00:00
lda K.CTime.Year get back year
cmp #69 if before 70 CC,if > 70, CS
lda #0
rol get back C in bit 0
eor #1 toggle C
adc #19 set date before 1970 -> 20xx
sta (ZPQuickPtr2) set Century
2016-09-21 15:20:37 +00:00
sta K.CTime.Century for conputing WDAY later
ldy #2
lda (ZPQuickPtr1),y Get Min
tax
iny
lda (ZPQuickPtr1),y Get Hour
2016-09-21 15:20:37 +00:00
ldy #S.Time.HOUR
sta (ZPQuickPtr2),y set hour
iny
txa
sta (ZPQuickPtr2),y set min
iny
lda #0
sta (ZPQuickPtr2),y set seconds (ProDOS does not provide it)
* 1/1/1970 was Thursday...if not leap, add one, if leap add 2
2016-09-21 15:20:37 +00:00
K.ComputeWDAY lda #3 Thursday : 4 (-1 for mod 7)
pha
lda #19
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD
lda #70
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD+1
2016-09-21 15:20:37 +00:00
.1 ldy K.CTime.DWORD
lda K.CTime.DWORD+1
2016-09-21 15:20:37 +00:00
cpy K.CTime.Century
bne .2
2016-09-21 15:20:37 +00:00
cmp K.CTime.Year
beq .4
.2 jsr TIME.IsLeapYearYA CC = Leap
lda #0
rol
eor #1
lsr
pla
adc #1
cmp #7
bcc .3
sbc #7 MOD 7
.3 pha
2016-09-21 15:20:37 +00:00
inc K.CTime.DWORD+1
lda K.CTime.DWORD+1
cmp #100
bne .1
lda #0
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD+1
inc K.CTime.DWORD
bra .1
2016-09-21 15:20:37 +00:00
.4 ldy #S.Time.MONTH
lda (ZPQuickPtr2),y get month
tax
2016-09-21 15:20:37 +00:00
.5 lda K.StrFTime.MDAY-1,x get day count in this month
bne .6 february ?
2016-09-21 15:20:37 +00:00
ldy K.CTime.Century
lda K.CTime.Year
jsr TIME.IsLeapYearYA CC = Leap
lda #0
rol
eor #1
lsr
.6 pla
2016-09-21 15:20:37 +00:00
adc K.StrFTime.MDAY-1,x
cmp #7
bcc .7
sbc #7
.7 pha
dex
bne .5
pla
2016-09-21 15:20:37 +00:00
ldy #S.Time.DAY
adc (ZPQuickPtr2),y get month (1..31)
dec adjust range 0.31 for MOD 7
.8 cmp #7 MOD 7
bcc .80
sbc #7
bra .8
.80 inc adjust range 1..7
2016-09-21 15:20:37 +00:00
ldy #S.Time.WDAY
sta (ZPQuickPtr2),y
clc
rts
*--------------------------------------
2016-09-21 15:20:37 +00:00
* K.CTime2Time
* In :
* PULLW = Src CTIME DWORD
* PULLW = Dst PTR To S.TIME
*--------------------------------------
K.CTime2Time jsr PullPtr1Ptr2
2016-08-31 15:38:48 +00:00
ldy #3
.1 lda (ZPQuickPtr1),y
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD,y
2016-08-31 15:38:48 +00:00
dey
bpl .1
2016-09-21 15:20:37 +00:00
stz K.CTime.DivDay
stz K.CTime.DivDay+1
2016-08-31 15:38:48 +00:00
2016-09-21 15:20:37 +00:00
.2 lda K.CTime.DWORD
sta K.CTime.ModDay
2016-08-31 15:38:48 +00:00
sec
sbc #SECSDAY
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.DWORD+1
sta K.CTime.ModDay+1
2016-08-31 15:38:48 +00:00
sbc /SECSDAY
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.DWORD+2
sta K.CTime.ModDay+2
2016-08-31 15:38:48 +00:00
sbc #0
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.DWORD+3
2016-08-31 15:38:48 +00:00
sbc #0
bcc .3 end of DIV/MOD ?
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD+3
2016-08-31 15:38:48 +00:00
pla
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD+2
2016-08-31 15:38:48 +00:00
pla
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD+1
2016-08-31 15:38:48 +00:00
pla
2016-09-21 15:20:37 +00:00
sta K.CTime.DWORD
2016-08-31 15:38:48 +00:00
2016-09-21 15:20:37 +00:00
inc K.CTime.DivDay
2016-08-31 15:38:48 +00:00
bne .2
2016-09-21 15:20:37 +00:00
inc K.CTime.DivDay+1
2016-08-31 15:38:48 +00:00
bne .2
.3 pla
pla
pla
2016-09-21 15:20:37 +00:00
stz K.CTime.Div60
stz K.CTime.Div60+1
2016-08-31 15:38:48 +00:00
2016-09-21 15:20:37 +00:00
.4 lda K.CTime.ModDay
sta K.CTime.Mod
2016-08-31 15:38:48 +00:00
sec
sbc #60
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.ModDay+1
2016-08-31 15:38:48 +00:00
sbc #0
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.ModDay+2
2016-08-31 15:38:48 +00:00
sbc #0
bcc .5
2016-09-21 15:20:37 +00:00
sta K.CTime.ModDay+2
2016-08-31 15:38:48 +00:00
pla
2016-09-21 15:20:37 +00:00
sta K.CTime.ModDay+1
2016-08-31 15:38:48 +00:00
pla
2016-09-21 15:20:37 +00:00
sta K.CTime.ModDay
2016-08-31 15:38:48 +00:00
2016-09-21 15:20:37 +00:00
inc K.CTime.Div60
2016-08-31 15:38:48 +00:00
bne .4
2016-09-21 15:20:37 +00:00
inc K.CTime.Div60+1
2016-08-31 15:38:48 +00:00
bne .4
.5 pla
pla
2016-09-21 15:20:37 +00:00
lda K.CTime.Mod
ldy #S.Time.SECOND
2016-08-31 15:38:48 +00:00
sta (ZPQuickPtr2),y
2016-09-21 15:20:37 +00:00
stz K.CTime.Div3600
2016-08-31 15:38:48 +00:00
2016-09-21 15:20:37 +00:00
.6 lda K.CTime.Div60
sta K.CTime.Mod
2016-08-31 15:38:48 +00:00
sec
sbc #60
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.Div60+1
2016-08-31 15:38:48 +00:00
sbc #0
pha
bcc .7
2016-09-21 15:20:37 +00:00
sta K.CTime.Div60+1
2016-08-31 15:38:48 +00:00
pla
2016-09-21 15:20:37 +00:00
sta K.CTime.Div60
2016-08-31 15:38:48 +00:00
2016-09-21 15:20:37 +00:00
inc K.CTime.Div3600
2016-08-31 15:38:48 +00:00
bne .6
.7 pla
2016-09-21 15:20:37 +00:00
lda K.CTime.Mod
dey ldy #S.Time.MINUTE
2016-08-31 15:38:48 +00:00
sta (ZPQuickPtr2),y
2016-09-21 15:20:37 +00:00
lda K.CTime.Div3600
dey ldy #S.Time.HOUR
2016-08-31 15:38:48 +00:00
sta (ZPQuickPtr2),y
2016-09-21 15:20:37 +00:00
lda K.CTime.DivDay WDAY computation : (DivDay + DAY0) mod 7
clc
2016-08-31 15:38:48 +00:00
adc #DAY0
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.DivDay+1
2016-08-31 15:38:48 +00:00
adc /DAY0
eor #$ff
tax
pla
2016-09-21 15:20:37 +00:00
.8 sta K.CTime.Mod
2016-08-31 15:38:48 +00:00
sec
sbc #7
bcs .8
inx
bne .8
2016-09-21 15:20:37 +00:00
lda K.CTime.Mod
ldy #S.Time.WDAY
2016-08-31 15:38:48 +00:00
sta (ZPQuickPtr2),y
lda #CENTURY0
2016-09-21 15:20:37 +00:00
sta K.CTime.Century
2016-08-31 15:38:48 +00:00
lda #YEAR0
2016-09-21 15:20:37 +00:00
sta K.CTime.Year
2016-09-02 06:09:44 +00:00
2016-09-21 15:20:37 +00:00
K.CTime2Time.Year
.1 ldy K.CTime.Century
lda K.CTime.Year
jsr TIME.IsLeapYearYA if Leap year CC
2016-09-21 15:20:37 +00:00
lda K.CTime.DivDay
2016-09-01 05:42:28 +00:00
sbc #365
pha
2016-09-21 15:20:37 +00:00
lda K.CTime.DivDay+1
2016-09-01 05:42:28 +00:00
sbc /365
2016-09-02 06:09:44 +00:00
bcc .2
2016-08-31 15:38:48 +00:00
2016-09-21 15:20:37 +00:00
sta K.CTime.DivDay+1
2016-09-01 05:42:28 +00:00
pla
2016-09-21 15:20:37 +00:00
sta K.CTime.DivDay
2016-09-01 05:42:28 +00:00
2016-09-21 15:20:37 +00:00
inc K.CTime.Year
lda K.CTime.Year
2016-09-01 05:42:28 +00:00
cmp #100
2016-09-02 06:09:44 +00:00
bne .1
2016-09-21 15:20:37 +00:00
stz K.CTime.Year
inc K.CTime.Century
2016-09-02 06:09:44 +00:00
bne .1
2016-09-01 05:42:28 +00:00
2016-09-02 06:09:44 +00:00
.2 pla
2016-09-21 15:20:37 +00:00
lda K.CTime.Century
* ldy #S.Time.CENTURY
2016-09-01 05:42:28 +00:00
sta (ZPQuickPtr2)
2016-09-21 15:20:37 +00:00
ldy #S.Time.YEAR
lda K.CTime.Year
2016-09-01 05:42:28 +00:00
sta (ZPQuickPtr2),y
2016-09-02 06:09:44 +00:00
clc
rts
2016-09-01 05:42:28 +00:00
*--------------------------------------
* In :
* Y = Century
* A = Year (0..99)
2016-09-01 05:42:28 +00:00
* if (year mod 400 = 0)
* or
* if not (year mod 100 = 0) and (year mod 4 = 0)
* Out :
* CC = Leap
* CS = Not Leap
2016-08-31 15:38:48 +00:00
*--------------------------------------
TIME.IsLeapYearYA
cmp #0 Year = 00 ?
2016-09-01 05:42:28 +00:00
bne .1 no
tya year = 00, get century in a
and #$3 mod 4 = 0 ?
beq .9 leap year
.8 sec not leap
rts
2016-08-31 15:38:48 +00:00
2016-09-01 05:42:28 +00:00
.1 and #$3 mod 4 = 0 ?
bne .8
.9 clc Leap
2016-08-31 15:38:48 +00:00
rts
*--------------------------------------
K.StrFTime.MDAY .DA #3,#0,#3,#2,#3,#2,#3,#3,#2,#3,#2,#3
2016-09-21 15:20:37 +00:00
K.CTime.DWORD .BS 4
K.CTime.DivDay .BS 2
K.CTime.ModDay .BS 3
K.CTime.Div60 .BS 2
K.CTime.Div3600 .BS 1
K.CTime.Mod .BS 1
K.CTime.Century .BS 1
K.CTime.Year .BS 1
MAN
2016-09-21 15:20:37 +00:00
SAVE SYS/KERNEL.S.Time
LOAD SYS/KERNEL.S
ASM