TheBackShed.com

Forum Index : Microcontroller and PC projects : Maximite Question II

Author

Message

OA47

Guru

Joined: 11/04/2012
Location: Australia
Posts: 1033

Posted: 05:42am 09 Feb 2026

Copy link to clipboard

Print this post

I have been struggling writing a sub that will enable a predicted TIME$ and DATE$ when a particular number of seconds are added. I tried using TIMER but the conversion back to DATE$ and TIME$ has become enormous. I have also started with a TIME$ and DATE$ and adding to the STRING values but having to modify for incrementing MINUTES, HOURS, DAYS, YEARS and LEAP YEARS is straining the grey matter to a large extent.

Has this been done by anyone or are there shortcuts that I am missing. I am stuck using MMBaisic 4.04 on a DTX-2 embedded module and unfortunately AI can't get enough data or information to help the situation.

OA47

TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6451

Posted: 06:43am 09 Feb 2026

Copy link to clipboard

Print this post

These are from 2014
Lucky they don't use line numbers.

Usage:
convert date,time to Unix
add the number of seconds.
convert back to date/time

'date conversion routines
currentdate$= DATE$
currenttime$=TIME$
mainloop:
DAY= VAL(MID$(currentdate$,1,2))
month= VAL(MID$(currentdate$,4,2))
year= VAL(MID$(currentdate$,7,4))
hh=VAL(MID$(currenttime$,1,2))
mm=VAL(MID$(currenttime$,4,2))
ss=VAL(MID$(currenttime$,7,2))

'weekday starts at 0 for Sunday to match the RTC chip
d=DAY:m=month:y=year
GOSUB toJD
weekday= ABS((jd%+1) MOD 7) 'weekday starts at 0 for Sunday to match the RTC chip
dayz$=MID$("SunMonTueWedThuFriSatSun",weekday*3+1,3)
GOSUB toDOY
PRINT currentdate$;" ";currenttime$
PRINT "Day of year: ";dayofyear
PRINT "Julian Day : ";jd%
PRINT "Day of Week: ";weekday;" ";dayz$
d=DAY:m=month:y=year
GOSUB tojdtime 'tounix
PRINT "JD time : ";jdd

GOSUB fromjdtime 'fromunix
PRINT udate$;" ";utime$

INPUT "New Date (DD/MM/YYYY) or X to quit: ",newdate$
IF UCASE$(newdate$)="X" THEN END
IF newdate$<>"" THEN currentdate$=newdate$
INPUT "New Time (HH:MM:SS) : ",newtime$
IF newtime$<>"" THEN currenttime$=newtime$
IF (newtime$<>"") OR (newdate$<>"") THEN GOTO mainloop

testunix:
INPUT "Unix time: ",un$
IF un$="" THEN GOTO mainloop
IF UCASE$(un$)="X" THEN END
unix=VAL(un$)
GOSUB fromunix
PRINT "Unix time ";STR$(unix,12);" equals ";udate$;" ";utime$
GOTO testunix

tounix:
d=DAY:m=month:y=year
GOSUB toJD
unixd=jd%-2440588
hh=VAL(MID$(currenttime$,1,2))
mm=VAL(MID$(currenttime$,4,2))
ss=VAL(MID$(currenttime$,7,2))
unixf=hh*60*60+mm*60+ss
unix=unixd*86400+unixf
RETURN

fromunix:
unixd=INT(unix/86400)
unixf=unix MOD 86400
IF unixd<0 THEN
unixf=86400+unixf
ENDIF
hh= INT(unixf/3600)
mm= INT((unixf MOD 3600)/60)
ss=(unixf MOD 3600) MOD 60
jd%=unixd+2440588
GOSUB fromJD
udate$=STR$(d,2)+"/"+STR$(m,2)+"/"+STR$(y,4)
utime$=STR$(hh,2)+":"+STR$(mm,2)+":"+STR$(ss,2)
RETURN

toDOY:
GOSUB toJD
day1=jd%
d=31:m=12:y=year-1
GOSUB toJD
dayofyear= day1-jd%
jd%=day1
RETURN

toJD:
' valid for Gregorian dates after Oct 15, 1582
ff=FIX((m-14)/12)
jd% = FIX((1461*(y+4800+ff))/4)+FIX((367*(m-2-12*ff))/12)-FIX((3*(FIX(y+4900+ff)/100))/4)+d-32075
RETURN

fromJD:
l = jd%+68569 ' valid for Gregorian dates after Oct 15, 1582
n = FIX((4*l)/146097)
l = l-FIX((146097*n+3)/4)
i = FIX((4000*(l+1))/1461001)
l = l-FIX((1461*i)/4)+31
j = FIX((80*l)/2447)
d = l-FIX((2447*j)/80)
l = FIX(j/11)
m = j+2-(12*l)
y = 100*(n-49)+i+l
RETURN

jdtounix:
unix=jd%-2440588
RETURN

tojdtime:
d=DAY:m=month:y=year
GOSUB toJD
hh=VAL(MID$(currenttime$,1,2))
mm=VAL(MID$(currenttime$,4,2))
ss=VAL(MID$(currenttime$,7,2))
jdt=(hh*60*60+mm*60+ss)/86400
jdd=jd%+jdt
RETURN

fromjdtime:
jd%=INT(jdd)
jdt=jdd-jd%
GOSUB fromJD
jdtime=jdt*86400
hh= INT(jdtime/3600)
mm= INT((jdtime MOD 3600)/60)
ss=(jdtime MOD 3600) MOD 60
udate$=STR$(d,2)+"/"+STR$(m,2)+"/"+STR$(y,4)
utime$=STR$(hh,2)+":"+STR$(mm,2)+":"+STR$(ss,2)
RETURN

Jim

VK7JH
MMedit

Volhout
Guru

Joined: 05/03/2018
Location: Netherlands
Posts: 5685

Posted: 07:07am 09 Feb 2026

Copy link to clipboard

Print this post

Hi Jim,

Good that you found something. I can't go back before 4.5C on CMM1. Is 4.04 a mono maximite ?

P.S. Off-Topic: did you already find a "final" solution for the MMCC 5.40 linux problem. You found a "quick fix" but needed more testing ?

Volhout

PicomiteVGA PETSCII ROBOTS

TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6451

Posted: 07:12am 09 Feb 2026

Copy link to clipboard

Print this post

Volhout said Hi Jim,

P.S. Off-Topic: did you already find a "final" solution for the MMCC 5.40 linux problem. You found a "quick fix" but needed more testing ?

Volhout

I am never 100% confident.
Time will tell how well I have done.

Jim

VK7JH
MMedit

Pluto
Guru

Joined: 09/06/2017
Location: Finland
Posts: 410

Posted: 01:12pm 09 Feb 2026

Copy link to clipboard

Print this post

Could the EPOCH functions be useful?

Volhout
Guru

Joined: 05/03/2018
Location: Netherlands
Posts: 5685

Posted: 02:39pm 09 Feb 2026

Copy link to clipboard

Print this post

Hi Pluto,

According MMBasic 4.5C language manual (CMM1), the EPOCH function is not implemented in this version of basic. I am not sure about 4.04, but my estimate is it is not available.

Volhout

PicomiteVGA PETSCII ROBOTS

Volhout
Guru

Joined: 05/03/2018
Location: Netherlands
Posts: 5685

Posted: 02:49pm 09 Feb 2026

Copy link to clipboard

Print this post

@OA47,

There is a version 4.5 MMBasic for the DTX2. Please find attached.
They fixed some bugs with DATE$ and TIME$ according the release notes.

mmbasic.zip

Volhout

P.S. They added some nice commands to MMBasic. Especially the simple multithread capability. But also "HELP"...
Edited 2026-02-10 01:02 by Volhout

PicomiteVGA PETSCII ROBOTS

OA47

Guru

Joined: 11/04/2012
Location: Australia
Posts: 1033

Posted: 03:35am 10 Feb 2026

Copy link to clipboard

Print this post

Thankyou Jim for your code unfortunately the version of Basic I am stuck with does not like the Fix line. Is there a way around this?

[CODE[83] jd% = Fix((1461*(y+4800+ff))/4)+Fix((367*(m-2-12*ff))/12)-Fix((3*(Fix(y+4900+ff)/100))/4)+d-32075
Error: Unknown command]

OA47

Found if I deleted the % from the variable the code runs
Edited 2026-02-10 13:42 by OA47

OA47

Guru

Joined: 11/04/2012
Location: Australia
Posts: 1033

Posted: 04:17am 10 Feb 2026

Copy link to clipboard

Print this post

@ Volhout As the embedded Maximite is a DTX-2 (a variation at the time) I dont believe that there are any updates available. As far as I can see it is Version 4.4 Rev 5

OA47
Edited 2026-02-10 14:31 by OA47

phil99

Guru

Joined: 11/02/2018
Location: Australia
Posts: 3006

Posted: 04:19am 10 Feb 2026

Copy link to clipboard

Print this post

V4.5C complete package also available here -https://geoffg.net/MonoMaximite.html

TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6451

Posted: 04:26am 10 Feb 2026

Copy link to clipboard

Print this post

Sorry about that. Integers ( % suffix ) only came in with V4.6 firmware.

I hope you don't run into an overflow.

What date range are you expecting to cover?

Jim

VK7JH
MMedit

OA47

Guru

Joined: 11/04/2012
Location: Australia
Posts: 1033

Posted: 04:37am 10 Feb 2026

Copy link to clipboard

Print this post

@ Jim The current code generates a period in seconds from 1 to years and this new DATE and Time is set and scanned for. I wonder if the period is only a couple of second that they would be lost in the conversion to JD time eg 2.46108e+06.

@ Volhout, I was certainly wrong it looks like I must have missed the 4.5 update. I will look through the docs and see what it has to offer.

OA47
Edited 2026-02-10 14:48 by OA47

phil99

Guru

Joined: 11/02/2018
Location: Australia
Posts: 3006

Posted: 05:04am 10 Feb 2026

Copy link to clipboard

Print this post

Searched for DTX2-4105C MMBasic firmware to see what is the latest but the links to it are dead.

TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6451

Posted: 05:08am 10 Feb 2026

Copy link to clipboard

Print this post

Try this at the beginning of the code I sent previously (after removing all the %)

currentdate$= DATE$
currenttime$=TIME$
INPUT "Number of seconds away (+ or -)",difsec
PRINT "Starting time ";currentdate$;" ";currenttime$
DAY= VAL(MID$(currentdate$,1,2))
month= VAL(MID$(currentdate$,4,2))
year= VAL(MID$(currentdate$,7,4))
hh=VAL(MID$(currenttime$,1,2))
mm=VAL(MID$(currenttime$,4,2))
ss=VAL(MID$(currenttime$,7,2))
GOSUB tounix
'print "startsec = ";unix
unix = unix + difsec
GOSUB fromunix
PRINT udate$;" ";utime$

Back in the single precision days, I separated the whole days from the part days.
We might have to resort to that here.

I might have to look it the old-parts draw for a Maximite to test it properly.

Jim

VK7JH
MMedit

OA47

Guru

Joined: 11/04/2012
Location: Australia
Posts: 1033

Posted: 06:34am 10 Feb 2026

Copy link to clipboard

Print this post

@ Jim

Added that code but the new date needs proceeding zeros added.

Number of seconds away (+ or -)4500
Starting time 10-02-2026 17:30:11
10/2/2026 18:44:16
10-02-2026 17:30:11
Day of year: 41
Julian Day : 2.46108e+06
Day of Week: 2 Tue
JD time : 2.46108e+06
10/2/2026 18:0:0

OA47

TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6451

Posted: 06:50am 10 Feb 2026

Copy link to clipboard

Print this post

This is more compact (but only for positive diffs so far)

currentdate$= DATE$
currenttime$=TIME$
INPUT "Number of seconds away (+ or -) ",difsec
PRINT "Starting time ";currentdate$;" ";currenttime$
wholedays = toJD(currentdate$)
secondsDay = partday(currenttime$)

newseconds = secondsDay + difsec
newwholedays = wholedays + INT(newseconds/86400)
newseconds = newseconds MOD 86400
newtime$ = frompartday$(newseconds)
newdate$ = fromJD$(newwholedays)

PRINT newdate$;" ";newtime$

FUNCTION toJD(thisdate$)
d = VAL(MID$(thisdate$,1,2))
m = VAL(MID$(thisdate$,4,2))
y = VAL(MID$(thisdate$,7,4))
' valid for Gregorian dates after Oct 15, 1582
ff=FIX((m-14)/12)
tojd = FIX((1461*(y+4800+ff))/4)+FIX((367*(m-2-12*ff))/12)-FIX((3*(FIX(y+4900+ff)/100))/4)+d-32075
END FUNCTION

FUNCTION partDay(thistime$)
hh=VAL(MID$(thistime$,1,2))
mm=VAL(MID$(thistime$,4,2))
ss=VAL(MID$(thistime$,7,2))
partday=(hh*60*60+mm*60+ss)
END FUNCTION

FUNCTION frompartDay$(secs)
hh= INT(secs/3600)
mm= INT((secs MOD 3600)/60)
ss=(secs MOD 3600) MOD 60
frompartDay$=RIGHT$("0"+STR$(hh),2)+":"+RIGHT$("0"+STR$(mm),2)+":"+RIGHT$("0"+STR$(ss),2)
END FUNCTION

FUNCTION fromJD$(jd)
l = jd+68569 ' valid for Gregorian dates after Oct 15, 1582
n = FIX((4*l)/146097)
l = l-FIX((146097*n+3)/4)
i = FIX((4000*(l+1))/1461001)
l = l-FIX((1461*i)/4)+31
j = FIX((80*l)/2447)
d = l-FIX((2447*j)/80)
l = FIX(j/11)
m = j+2-(12*l)
y = 100*(n-49)+i+l
fromJD$=RIGHT$("0"+STR$(d),2)+"/"+RIGHT$("0"+STR$(m),2)+"/"+STR$(y,4)
END FUNCTION

I will play further.
Edited 2026-02-10 17:01 by TassyJim

VK7JH
MMedit

Volhout
Guru

Joined: 05/03/2018
Location: Netherlands
Posts: 5685

Posted: 06:54am 10 Feb 2026

Copy link to clipboard

Print this post

Hi OA47,

The link is not dead. Maybe your browser refuses to download because it is not a HTTPS site, but HTTP.

Dimetech Maximite Download

But this is the exact package that I zipped up for you 6 posts ago. It contains the user manual, the list of changes, the added commands, the release notes, the hex file, everything you need, even a description of 2 different ways to put the firmware into your DXT2-4105. If you have firmware 4.04 the only one method works (pickit3), if your current code is 4.4 you can also use the built in bootloader.

Regards,

Volhout
Edited 2026-02-10 16:58 by Volhout

PicomiteVGA PETSCII ROBOTS

OA47

Guru

Joined: 11/04/2012
Location: Australia
Posts: 1033

Posted: 04:18am 11 Feb 2026

Copy link to clipboard

Print this post

@ Volhout, I loaded the firmware you supplied the link to and MM.Ver still shows version 4.05.

@ Jim, the code you supplied seems to work great and is very compact. I have inserted it into the current code but for many hours of trying, I cannot get my code to recognise the new date and time. I cannot see any issues but the code recognises the 1st set date and time but will not recognise any further. Heres the line where it fails:
If DateOn$(J)=Date$ Then 'Check for DATE of operation

When I check the new date (which does not change in my test code where

DateOn$(1)="11/02/2026" (String length is 10)
Date$="11/02/2026" (String length is 10)

It has got me stumped

OA47

Edit I think I found the fault. I do worry about my grey cells sometimes. Of course the DATE$ can be "11/02/2026" and it can be "11-02-2026" and they both work fine.
Edited 2026-02-11 14:40 by OA47

TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6451

Posted: 04:45am 11 Feb 2026

Copy link to clipboard

Print this post

Date$ is a system command and I expect that you are really comparing the result of Date$ which contains - instead of /
Date$ accepts either - or / but only outputs -
I don't think there is an option to change it.

> date$ = "11/02/2026"
> print date$
11-02-2026
>

You might have to change all the '/' to '-'

Jim
Edited 2026-02-11 14:45 by TassyJim

VK7JH
MMedit

OA47

Guru

Joined: 11/04/2012
Location: Australia
Posts: 1033

Posted: 05:05am 11 Feb 2026

Copy link to clipboard

Print this post

Quote You might have to change all the '/' to '-'

Thanks again Jim your code has got me on the road again. I did change the new dates to use the minus instead of the slash and testing has been running along well.

OA47

Print this page

To reply to this topic, you need to log in.