From 44c63fce0ed050bc5f463f1be4d0e2e500a1a38c Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sun, 23 Aug 2015 21:40:29 -0400
Subject: [PATCH] create / mod time

---
 params.aii | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 72 insertions(+), 3 deletions(-)

diff --git a/params.aii b/params.aii
index b33a597..9e7c4e9 100644
--- a/params.aii
+++ b/params.aii
@@ -7,6 +7,7 @@
 
 	include 'fst.macros'
 
+	include 'M16.MiscTool'
 
 	;
 	; routines used to store data in parameter blocks
@@ -337,14 +338,14 @@ do_mod_date_time_0
 	rts
 	endp
 
+	entry do_mod_date_time
 
 do_create_date_time	proc export
 	with fst_parms
 
-	; todo ...
 
-	export do_mod_date_time
-do_mod_date_time
+	; minix has mod date but not create date.
+	bra do_mod_date_time
 
 	lda #0
 	sta [param_blk_ptr],y
@@ -361,6 +362,74 @@ do_mod_date_time
 	rts
 	endp
 
+do_mod_date_time	proc export
+	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 0 ; convert from seconds to read time hex.
+
+	; 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
+
+
+
 	;
 	; fcr-based items.
 	;