prodos 16 date/time

params.aii

@@ -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.