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