mirror of
https://github.com/ksherlock/minix.fst.git
synced 2024-12-27 06:29:15 +00:00
prodos 16 date/time
This commit is contained in:
parent
eb2935c7a6
commit
2312e6f09c
82
params.aii
82
params.aii
@ -326,46 +326,84 @@ exit
|
|||||||
do_create_date_time_0 proc export
|
do_create_date_time_0 proc export
|
||||||
with fst_parms
|
with fst_parms
|
||||||
|
|
||||||
; todo ...
|
|
||||||
|
|
||||||
export do_mod_date_time_0
|
export do_mod_date_time_0
|
||||||
do_mod_date_time_0
|
do_mod_date_time_0
|
||||||
|
|
||||||
|
|
||||||
|
with fst_parms
|
||||||
|
|
||||||
|
; minix has mod date but not create date.
|
||||||
|
|
||||||
|
; check if valid
|
||||||
|
lda disk_inode.mtime
|
||||||
|
ora disk_inode.mtime+2
|
||||||
|
beq null
|
||||||
|
|
||||||
|
phx ; save
|
||||||
|
|
||||||
|
pha ; result space
|
||||||
|
pha
|
||||||
|
pea 4 ; convert from seconds to ProDOS date/time.
|
||||||
|
|
||||||
|
; seconds + 0x7be5 1700 to convert from 1970 to 1904 ???
|
||||||
|
;
|
||||||
|
;
|
||||||
|
; 86400 * (365 * (1970 - 1904) + 17) [17 leap years]
|
||||||
|
; $7c25b080
|
||||||
|
;
|
||||||
|
|
||||||
|
lda disk_inode.mtime
|
||||||
|
clc
|
||||||
|
adc #$b080
|
||||||
|
tax
|
||||||
|
lda disk_inode.mtime+2
|
||||||
|
adc #$7c25
|
||||||
|
pha
|
||||||
|
phx
|
||||||
|
|
||||||
|
; date ptr
|
||||||
|
tya
|
||||||
|
clc
|
||||||
|
adc param_blk_ptr
|
||||||
|
tax
|
||||||
lda #0
|
lda #0
|
||||||
|
adc param_blk_ptr+2
|
||||||
|
pha
|
||||||
|
phx
|
||||||
|
|
||||||
|
_ConvSeconds
|
||||||
|
pla
|
||||||
|
pla
|
||||||
|
|
||||||
|
plx
|
||||||
|
rts
|
||||||
|
|
||||||
|
null
|
||||||
|
lda #0
|
||||||
|
sta [param_blk_ptr],y
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
sta [param_blk_ptr],y
|
||||||
|
iny
|
||||||
|
iny
|
||||||
sta [param_blk_ptr],y
|
sta [param_blk_ptr],y
|
||||||
iny
|
iny
|
||||||
iny
|
iny
|
||||||
sta [param_blk_ptr],y
|
sta [param_blk_ptr],y
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
endp
|
endp
|
||||||
|
|
||||||
entry do_mod_date_time
|
|
||||||
|
|
||||||
do_create_date_time proc export
|
do_create_date_time proc export
|
||||||
with fst_parms
|
with fst_parms
|
||||||
|
|
||||||
|
|
||||||
; minix has mod date but not create date.
|
export do_mod_date_time
|
||||||
bra do_mod_date_time
|
do_mod_date_time
|
||||||
|
|
||||||
lda #0
|
|
||||||
sta [param_blk_ptr],y
|
|
||||||
iny
|
|
||||||
iny
|
|
||||||
sta [param_blk_ptr],y
|
|
||||||
iny
|
|
||||||
iny
|
|
||||||
sta [param_blk_ptr],y
|
|
||||||
iny
|
|
||||||
iny
|
|
||||||
sta [param_blk_ptr],y
|
|
||||||
|
|
||||||
rts
|
|
||||||
endp
|
|
||||||
|
|
||||||
do_mod_date_time proc export
|
|
||||||
with fst_parms
|
|
||||||
|
|
||||||
; minix has mod date but not create date.
|
; minix has mod date but not create date.
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user