Apple-2gs-SW/minix.fst
1
0
Fork 0
mirror of https://github.com/ksherlock/minix.fst.git synced 2024-12-26 15:29:17 +00:00
Code Issues Projects Releases Wiki Activity

prodos 16 date/time

Browse Source
This commit is contained in:
Kelvin Sherlock 2015-08-24 14:42:07 -04:00
parent eb2935c7a6
commit 2312e6f09c
1 changed files with 60 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
params.aii
View File

@ -326,46 +326,84 @@ exit
do_create_date_time_0 proc export
with fst_parms
; todo ...
export 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
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
iny
iny
sta [param_blk_ptr],y
rts
endp
entry do_mod_date_time
do_create_date_time proc export
with fst_parms
; minix has mod date but not create date.
bra 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
export do_mod_date_time
do_mod_date_time
; minix has mod date but not create date.