2017-12-22 21:24:30 +00:00
|
|
|
|
NEW
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2017-12-22 21:24:30 +00:00
|
|
|
|
AUTO 4,1
|
2016-08-30 20:26:19 +00:00
|
|
|
|
*--------------------------------------
|
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-30 20:26:19 +00:00
|
|
|
|
*--------------------------------------
|
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
|
2017-09-22 15:25:21 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # Time.YA
|
|
|
|
|
* Get System Time in Buffer
|
|
|
|
|
* ## In :
|
|
|
|
|
* Y,A = PTR to S.TIME
|
|
|
|
|
* ## Out :
|
|
|
|
|
* S.TIME filled with System date/time
|
|
|
|
|
*\--------------------------------------
|
2017-08-24 12:46:48 +00:00
|
|
|
|
K.Time.YA >STYA ZPPtr2
|
2016-09-05 16:00:11 +00:00
|
|
|
|
>MLICALL MLIGETTIME
|
|
|
|
|
>LDYAI DATELO
|
2017-01-12 17:43:45 +00:00
|
|
|
|
>STYA ZPPtr1
|
2017-09-22 15:25:21 +00:00
|
|
|
|
bra TIME.PTime2TimeP1P2
|
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # PTime2Time
|
|
|
|
|
* Convert ProDOS Time To S.TIME
|
|
|
|
|
* ## In :
|
|
|
|
|
* PUSHW = Dst PTR To S.TIME
|
|
|
|
|
* PUSHW = Src PTR to ProDOS DATE/TIME (DWORD)
|
|
|
|
|
*\--------------------------------------
|
2018-04-29 19:10:13 +00:00
|
|
|
|
K.PTime2Time jsr MEM.PullP1P2
|
2017-09-22 15:25:21 +00:00
|
|
|
|
TIME.PTime2TimeP1P2
|
2017-08-25 06:37:21 +00:00
|
|
|
|
ldy #1
|
2017-11-06 16:25:40 +00:00
|
|
|
|
lda (ZPPtr1),y Get Year
|
2016-09-05 16:00:11 +00:00
|
|
|
|
lsr C is high bit of month
|
2016-09-21 15:20:37 +00:00
|
|
|
|
ldy #S.Time.YEAR
|
2017-11-06 16:25:40 +00:00
|
|
|
|
sta (ZPPtr2),y set year
|
2016-09-21 15:20:37 +00:00
|
|
|
|
sta K.CTime.Year for conputing Century/WDAY later
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2017-11-06 16:25:40 +00:00
|
|
|
|
lda (ZPPtr1) Get Month/day
|
2016-09-05 16:00:11 +00:00
|
|
|
|
pha save Day
|
|
|
|
|
ror
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
2016-09-21 15:20:37 +00:00
|
|
|
|
ldy #S.Time.MONTH
|
2017-11-06 16:25:40 +00:00
|
|
|
|
sta (ZPPtr2),y set month
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
|
|
|
|
pla get back day
|
|
|
|
|
and #$1F
|
|
|
|
|
iny
|
2017-11-06 16:25:40 +00:00
|
|
|
|
sta (ZPPtr2),y set day
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
lda K.CTime.Year get back year
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-09-12 19:46:54 +00:00
|
|
|
|
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
|
2017-11-06 16:25:40 +00:00
|
|
|
|
sta (ZPPtr2) set Century
|
2016-09-21 15:20:37 +00:00
|
|
|
|
sta K.CTime.Century for conputing WDAY later
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-09-12 19:46:54 +00:00
|
|
|
|
ldy #2
|
2017-11-06 16:25:40 +00:00
|
|
|
|
lda (ZPPtr1),y Get Min
|
2016-09-05 16:00:11 +00:00
|
|
|
|
tax
|
2016-09-12 19:46:54 +00:00
|
|
|
|
iny
|
2017-11-06 16:25:40 +00:00
|
|
|
|
lda (ZPPtr1),y Get Hour
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
ldy #S.Time.HOUR
|
2017-11-06 16:25:40 +00:00
|
|
|
|
sta (ZPPtr2),y set hour
|
2016-09-05 16:00:11 +00:00
|
|
|
|
iny
|
|
|
|
|
txa
|
2017-11-06 16:25:40 +00:00
|
|
|
|
sta (ZPPtr2),y set min
|
2016-09-05 16:00:11 +00:00
|
|
|
|
iny
|
|
|
|
|
lda #0
|
2017-11-06 16:25:40 +00:00
|
|
|
|
sta (ZPPtr2),y set seconds (ProDOS does not provide it)
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-09-12 19:46:54 +00:00
|
|
|
|
* 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)
|
2016-09-12 19:46:54 +00:00
|
|
|
|
pha
|
|
|
|
|
lda #19
|
2016-09-21 15:20:37 +00:00
|
|
|
|
sta K.CTime.DWORD
|
2016-09-12 19:46:54 +00:00
|
|
|
|
lda #70
|
2016-09-21 15:20:37 +00:00
|
|
|
|
sta K.CTime.DWORD+1
|
2016-09-12 19:46:54 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
.1 ldy K.CTime.DWORD
|
|
|
|
|
lda K.CTime.DWORD+1
|
2016-09-12 19:46:54 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
cpy K.CTime.Century
|
2016-09-12 19:46:54 +00:00
|
|
|
|
bne .2
|
2016-09-21 15:20:37 +00:00
|
|
|
|
cmp K.CTime.Year
|
2016-09-12 19:46:54 +00:00
|
|
|
|
beq .4
|
|
|
|
|
|
2017-11-06 16:25:40 +00:00
|
|
|
|
.2 jsr TIME.IsLeapYearYA CS = Leap
|
2016-09-12 19:46:54 +00:00
|
|
|
|
|
|
|
|
|
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
|
2016-09-12 19:46:54 +00:00
|
|
|
|
cmp #100
|
|
|
|
|
bne .1
|
|
|
|
|
lda #0
|
2016-09-21 15:20:37 +00:00
|
|
|
|
sta K.CTime.DWORD+1
|
|
|
|
|
inc K.CTime.DWORD
|
2016-09-12 19:46:54 +00:00
|
|
|
|
bra .1
|
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
.4 ldy #S.Time.MONTH
|
2017-11-06 16:25:40 +00:00
|
|
|
|
lda (ZPPtr2),y get month
|
2016-09-12 19:46:54 +00:00
|
|
|
|
tax
|
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
.5 lda K.StrFTime.MDAY-1,x get day count in this month
|
2017-11-06 16:25:40 +00:00
|
|
|
|
bne .6 february ?
|
2016-09-12 19:46:54 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
ldy K.CTime.Century
|
|
|
|
|
lda K.CTime.Year
|
2017-11-06 16:25:40 +00:00
|
|
|
|
jsr TIME.IsLeapYearYA CS = Leap
|
2016-09-12 19:46:54 +00:00
|
|
|
|
|
|
|
|
|
.6 pla
|
2016-09-21 15:20:37 +00:00
|
|
|
|
adc K.StrFTime.MDAY-1,x
|
2016-09-12 19:46:54 +00:00
|
|
|
|
cmp #7
|
|
|
|
|
bcc .7
|
|
|
|
|
sbc #7
|
|
|
|
|
|
|
|
|
|
.7 pha
|
|
|
|
|
dex
|
|
|
|
|
bne .5
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
ldy #S.Time.DAY
|
2017-11-06 16:25:40 +00:00
|
|
|
|
adc (ZPPtr2),y get day in month (1..31)
|
|
|
|
|
dec adjust range 0.30 for MOD 7
|
2016-09-12 19:46:54 +00:00
|
|
|
|
|
|
|
|
|
.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
|
2017-01-12 17:43:45 +00:00
|
|
|
|
sta (ZPPtr2),y
|
2016-09-12 19:46:54 +00:00
|
|
|
|
|
2016-09-05 16:00:11 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2017-09-22 15:25:21 +00:00
|
|
|
|
*/--------------------------------------
|
2017-10-09 15:30:48 +00:00
|
|
|
|
* # CTime2Time
|
2017-09-22 15:25:21 +00:00
|
|
|
|
* Convert CTIME to S.TIME
|
|
|
|
|
* ## In :
|
|
|
|
|
* PUSHW = Dst PTR To S.TIME
|
|
|
|
|
* PUSHW = Src CTIME DWORD
|
|
|
|
|
*\--------------------------------------
|
2018-04-29 19:10:13 +00:00
|
|
|
|
K.CTime2Time jsr MEM.PullP1P2
|
2016-08-31 15:38:48 +00:00
|
|
|
|
|
|
|
|
|
ldy #3
|
|
|
|
|
|
2017-01-12 17:43:45 +00:00
|
|
|
|
.1 lda (ZPPtr1),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
|
2017-07-01 13:44:40 +00:00
|
|
|
|
|
|
|
|
|
ldx #2
|
|
|
|
|
|
|
|
|
|
.21 pla
|
|
|
|
|
sta K.CTime.DWORD,x
|
|
|
|
|
dex
|
|
|
|
|
bpl .21
|
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
|
2017-01-12 17:43:45 +00:00
|
|
|
|
sta (ZPPtr2),y
|
2016-08-31 15:38:48 +00:00
|
|
|
|
|
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
|
2017-01-12 17:43:45 +00:00
|
|
|
|
sta (ZPPtr2),y
|
2016-08-31 15:38:48 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
lda K.CTime.Div3600
|
|
|
|
|
dey ldy #S.Time.HOUR
|
2017-01-12 17:43:45 +00:00
|
|
|
|
sta (ZPPtr2),y
|
2016-08-31 15:38:48 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
lda K.CTime.DivDay WDAY computation : (DivDay + DAY0) mod 7
|
2016-08-30 20:26:19 +00:00
|
|
|
|
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
|
2017-01-12 17:43:45 +00:00
|
|
|
|
sta (ZPPtr2),y
|
2016-08-31 15:38:48 +00:00
|
|
|
|
|
|
|
|
|
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
|
2017-11-06 16:25:40 +00:00
|
|
|
|
jsr TIME.IsLeapYearYA if Leap year CS
|
|
|
|
|
|
|
|
|
|
lda #0 Toggle Carry
|
|
|
|
|
rol
|
|
|
|
|
eor #1
|
|
|
|
|
lsr
|
|
|
|
|
|
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
|
2017-01-12 17:43:45 +00:00
|
|
|
|
sta (ZPPtr2)
|
2016-09-21 15:20:37 +00:00
|
|
|
|
ldy #S.Time.YEAR
|
|
|
|
|
lda K.CTime.Year
|
2017-01-12 17:43:45 +00:00
|
|
|
|
sta (ZPPtr2),y
|
2016-09-01 05:42:28 +00:00
|
|
|
|
|
2016-09-02 06:09:44 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2016-09-01 05:42:28 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-12 19:46:54 +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)
|
2016-09-12 19:46:54 +00:00
|
|
|
|
* Out :
|
2017-11-06 16:25:40 +00:00
|
|
|
|
* CS = Leap
|
|
|
|
|
* CC = Not Leap
|
2016-08-31 15:38:48 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-28 15:34:15 +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
|
|
|
|
|
|
2017-11-06 16:25:40 +00:00
|
|
|
|
.8 clc not leap
|
2016-09-01 05:42:28 +00:00
|
|
|
|
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
|
|
|
|
|
|
2017-11-06 16:25:40 +00:00
|
|
|
|
.9 sec Leap
|
2016-08-31 15:38:48 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-09-28 15:34:15 +00:00
|
|
|
|
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
|
2017-08-24 06:47:31 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # StrFTime
|
|
|
|
|
* Convert S.TIME struct to CSTR
|
2018-06-14 15:31:36 +00:00
|
|
|
|
* **In:**
|
2017-08-24 06:47:31 +00:00
|
|
|
|
* PUSHW = Dst PTR To CSTR Buf
|
|
|
|
|
* PUSHW = Src PTR To Format String
|
|
|
|
|
* %a : Abbreviated weekday name : Thu
|
|
|
|
|
* %A : Full weekday name : Thursday
|
|
|
|
|
* %b : Abbreviated month name : Aug
|
|
|
|
|
* %B : Full month name : August
|
|
|
|
|
* %d : Day of the month, zero-padded (01-31)
|
|
|
|
|
* %H : Hour in 24h format (00-23) 14
|
|
|
|
|
* %I : Hour in 12h format (01-12) 02
|
|
|
|
|
* %m : Month as a decimal number (01-12) 08
|
|
|
|
|
* %M : Minute (00-59) 55
|
|
|
|
|
* %p : AM or PM designation PM
|
|
|
|
|
* %S : Second (00-61) 02
|
|
|
|
|
* %w : Weekday as a decimal number with Sunday as 0 (0-6)
|
|
|
|
|
* %y : Year, last two digits (00-99)
|
|
|
|
|
* %Y : Year four digits 2001
|
|
|
|
|
* PUSHW = Src PTR To S.Time
|
2018-06-14 15:31:36 +00:00
|
|
|
|
* **Out:**
|
2017-08-24 06:47:31 +00:00
|
|
|
|
* none. always succeed.
|
|
|
|
|
*\--------------------------------------
|
2018-04-29 19:10:13 +00:00
|
|
|
|
K.StrFTime jsr MEM.PullP1P2P3
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPPtr2),y
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
|
|
|
|
cmp #'%'
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
jsr K.StrFTime.addChar
|
|
|
|
|
bra .1
|
|
|
|
|
|
|
|
|
|
.2 ldx #K.StrFTime.JMPL-K.StrFTime.Tbl-1
|
|
|
|
|
|
|
|
|
|
lda (ZPPtr2),y
|
|
|
|
|
beq .8
|
|
|
|
|
iny
|
|
|
|
|
|
|
|
|
|
.3 cmp K.StrFTime.Tbl,x
|
|
|
|
|
beq .4
|
|
|
|
|
dex
|
|
|
|
|
bpl .3
|
|
|
|
|
bra .1
|
|
|
|
|
|
|
|
|
|
.4 lda K.StrFTime.JMPL,x
|
|
|
|
|
sta .5+1
|
|
|
|
|
lda K.StrFTime.JMPH,x
|
|
|
|
|
sta .5+2
|
|
|
|
|
phy
|
|
|
|
|
.5 jsr $ffff
|
|
|
|
|
ply
|
|
|
|
|
bra .1
|
|
|
|
|
|
|
|
|
|
.8 lda #0 Terminate C string
|
|
|
|
|
sta (ZPPtr3)
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.TBL .AS "aAbBdHImMpSwyY"
|
|
|
|
|
K.StrFTime.JMPL .DA #K.StrFTime.A
|
|
|
|
|
.DA #K.StrFTime.AA
|
|
|
|
|
.DA #K.StrFTime.B
|
|
|
|
|
.DA #K.StrFTime.BB
|
|
|
|
|
.DA #K.StrFTime.D
|
|
|
|
|
.DA #K.StrFTime.HH
|
|
|
|
|
.DA #K.StrFTime.II
|
|
|
|
|
.DA #K.StrFTime.M
|
|
|
|
|
.DA #K.StrFTime.MM
|
|
|
|
|
.DA #K.StrFTime.P
|
|
|
|
|
.DA #K.StrFTime.SS
|
|
|
|
|
.DA #K.StrFTime.W
|
|
|
|
|
.DA #K.StrFTime.Y
|
|
|
|
|
.DA #K.StrFTime.YY
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.JMPH .DA /K.StrFTime.A
|
|
|
|
|
.DA /K.StrFTime.AA
|
|
|
|
|
.DA /K.StrFTime.B
|
|
|
|
|
.DA /K.StrFTime.BB
|
|
|
|
|
.DA /K.StrFTime.D
|
|
|
|
|
.DA /K.StrFTime.HH
|
|
|
|
|
.DA /K.StrFTime.II
|
|
|
|
|
.DA /K.StrFTime.M
|
|
|
|
|
.DA /K.StrFTime.MM
|
|
|
|
|
.DA /K.StrFTime.P
|
|
|
|
|
.DA /K.StrFTime.SS
|
|
|
|
|
.DA /K.StrFTime.W
|
|
|
|
|
.DA /K.StrFTime.Y
|
|
|
|
|
.DA /K.StrFTime.YY
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.A ldx #3 Short day of week, 3 chars...
|
|
|
|
|
.HS 2C Bit abs
|
|
|
|
|
|
|
|
|
|
K.StrFTime.AA ldx #15 full DoW
|
|
|
|
|
>LDYAI K.StrFTime.DAY
|
|
|
|
|
>STYA ZPPtr4
|
|
|
|
|
ldy #S.Time.WDAY
|
|
|
|
|
bra K.StrFTime.STR
|
|
|
|
|
|
|
|
|
|
K.StrFTime.B ldx #3 Short Month, 3 chars....
|
|
|
|
|
.HS 2C Bit abs
|
|
|
|
|
|
|
|
|
|
K.StrFTime.BB ldx #15 full Month....
|
|
|
|
|
>LDYAI K.StrFTime.MON
|
|
|
|
|
>STYA ZPPtr4
|
|
|
|
|
ldy #S.Time.MONTH
|
|
|
|
|
|
|
|
|
|
K.StrFTime.STR lda (ZPPtr1),y get required S.Time field value
|
|
|
|
|
tay
|
|
|
|
|
beq .9 Illegal value
|
|
|
|
|
|
|
|
|
|
.1 dey range 0..x
|
|
|
|
|
beq .2
|
|
|
|
|
lda (ZPPtr4)
|
|
|
|
|
sec
|
|
|
|
|
adc ZPPtr4
|
|
|
|
|
sta ZPPtr4
|
|
|
|
|
bcc .1
|
|
|
|
|
inc ZPPtr4+1
|
|
|
|
|
bra .1
|
|
|
|
|
|
2017-11-06 16:25:40 +00:00
|
|
|
|
.2
|
|
|
|
|
* ldy #0 Y is already 0
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
|
|
|
|
.3 iny
|
|
|
|
|
lda (ZPPtr4),y
|
|
|
|
|
jsr K.StrFTime.addChar
|
2017-11-06 16:25:40 +00:00
|
|
|
|
tya
|
2017-08-24 06:47:31 +00:00
|
|
|
|
cmp (ZPPtr4)
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
bne .3
|
|
|
|
|
.8 rts
|
|
|
|
|
|
|
|
|
|
.9 ldx #3
|
|
|
|
|
lda #'?'
|
|
|
|
|
.99 jsr K.StrFTime.addChar
|
|
|
|
|
dex
|
|
|
|
|
bne .99
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.D ldy #S.Time.DAY
|
|
|
|
|
bra K.StrFTime.addDecPtr1Y
|
|
|
|
|
K.StrFTime.HH ldy #S.Time.HOUR
|
|
|
|
|
bra K.StrFTime.addDecPtr1Y
|
|
|
|
|
K.StrFTime.II ldy #S.Time.HOUR
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
cmp #12
|
|
|
|
|
bcc .1
|
|
|
|
|
sbc #12
|
|
|
|
|
.1 bra K.StrFTime.addDecA
|
|
|
|
|
K.StrFTime.M ldy #S.Time.MONTH
|
|
|
|
|
bra K.StrFTime.addDecPtr1Y
|
|
|
|
|
K.StrFTime.MM ldy #S.Time.MINUTE
|
|
|
|
|
bra K.StrFTime.addDecPtr1Y
|
|
|
|
|
K.StrFTime.P ldy #S.Time.HOUR
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
cmp #12
|
|
|
|
|
bcc .1
|
|
|
|
|
lda #'p'
|
|
|
|
|
.HS 2C bit abs
|
|
|
|
|
.1 lda #'a'
|
|
|
|
|
jsr K.StrFTime.addChar
|
|
|
|
|
lda #'m'
|
|
|
|
|
bra K.StrFTime.addChar
|
|
|
|
|
K.StrFTime.SS ldy #S.Time.SECOND
|
|
|
|
|
bra K.StrFTime.addDecPtr1Y
|
|
|
|
|
K.StrFTime.W ldy #S.Time.WDAY
|
|
|
|
|
bra K.StrFTime.addDecPtr1Y
|
|
|
|
|
K.StrFTime.YY ldy #S.Time.CENTURY
|
|
|
|
|
jsr K.StrFTime.addDecPtr1Y
|
|
|
|
|
K.StrFTime.Y ldy #S.Time.YEAR
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.addDecPtr1Y
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
K.StrFTime.addDecA
|
|
|
|
|
|
2018-05-07 06:13:07 +00:00
|
|
|
|
stz .2+1
|
|
|
|
|
|
2017-08-24 06:47:31 +00:00
|
|
|
|
ldx #8
|
2018-05-07 06:13:07 +00:00
|
|
|
|
sed
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
2018-05-07 06:13:07 +00:00
|
|
|
|
.1 asl
|
|
|
|
|
pha
|
|
|
|
|
.2 lda #$ff Self Modified
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
2018-05-07 06:13:07 +00:00
|
|
|
|
adc .2+1
|
|
|
|
|
sta .2+1
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
2018-05-07 06:13:07 +00:00
|
|
|
|
pla
|
2017-08-24 06:47:31 +00:00
|
|
|
|
dex
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
cld
|
|
|
|
|
|
2018-05-07 06:13:07 +00:00
|
|
|
|
lda .2+1
|
2017-08-24 06:47:31 +00:00
|
|
|
|
pha
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
ora #$30
|
|
|
|
|
jsr K.StrFTime.addChar
|
|
|
|
|
pla
|
|
|
|
|
and #$0f
|
|
|
|
|
ora #$30
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.addChar
|
|
|
|
|
sta (ZPPtr3)
|
|
|
|
|
inc ZPPtr3
|
|
|
|
|
bne .8
|
|
|
|
|
inc ZPPtr3+1
|
|
|
|
|
.8 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.DAY >PSTR "Monday"
|
|
|
|
|
>PSTR "Tuesday"
|
|
|
|
|
>PSTR "Wednesday"
|
|
|
|
|
>PSTR "Thursday"
|
|
|
|
|
>PSTR "Friday"
|
|
|
|
|
>PSTR "Saturday"
|
|
|
|
|
>PSTR "Sunday"
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.StrFTime.MON >PSTR "January"
|
|
|
|
|
>PSTR "February"
|
|
|
|
|
>PSTR "March"
|
|
|
|
|
>PSTR "April"
|
|
|
|
|
>PSTR "May"
|
|
|
|
|
>PSTR "June"
|
|
|
|
|
>PSTR "July"
|
|
|
|
|
>PSTR "August"
|
|
|
|
|
>PSTR "September"
|
|
|
|
|
>PSTR "October"
|
|
|
|
|
>PSTR "November"
|
|
|
|
|
>PSTR "December"
|
|
|
|
|
*--------------------------------------
|
2016-08-30 20:26:19 +00:00
|
|
|
|
MAN
|
2017-08-24 12:46:48 +00:00
|
|
|
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.TIME
|
2017-03-29 15:48:15 +00:00
|
|
|
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
2016-08-30 20:26:19 +00:00
|
|
|
|
ASM
|