From 9922f57ccaa7022435e48f41fd33adc63bcb9e53 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Thu, 3 Sep 2015 16:44:05 -0400
Subject: [PATCH] fix class 0 create / mod date

---
 params.aii | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/params.aii b/params.aii
index c20d291..0f87e0b 100644
--- a/params.aii
+++ b/params.aii
@@ -341,6 +341,7 @@ do_mod_date_time_0
 	beq null
 
 	phx ; save
+	phy ; save
 
 	pha ; result space
 	pha 
@@ -363,19 +364,20 @@ do_mod_date_time_0
 	phx
 
 	; date ptr
-	tya
-	clc
-	adc param_blk_ptr
-	tax
-	lda #0
-	adc param_blk_ptr+2
-	pha
-	phx
+	pea buffer>>16
+	pea buffer
 
 	_ConvSeconds
 	pla
 	pla
 
+	ply
+	lda buffer
+	sta [param_blk_ptr],y
+	iny
+	iny
+	lda buffer+2
+	sta [param_blk_ptr],y
 	plx
 	rts
 
@@ -394,6 +396,11 @@ null
 
 	rts
 
+	; ConvSeconds needs an 8-byte buffer, even when the output is < 8
+	; bytes....
+
+buffer	ds.b 8
+
 	endp