'  ' ***** uMitePi *****
 ' *******************************
 '    Filename: uMitePi.bas
 '    Date: Aug 2021
 '    File Version:
 '     Written by: M.Ogden
 '    Function: uMitePi controller
 '   Device: micromite pico
 '    Last Revision:
 '    Initial v1.31 ported from mx170
 '   MMBasic Ver 5.05.04 ,raspberry Pi running  Node Red
 'adds some LED indicators, Fan control and Shutdown signaling
 'plus user code
 ''V2 PCB adds access to all unused MX170 IO pins, adds RTC connector
 'V0.7 release
 'v0.8 add I/O changes for version 2 PCB
 'v0.9 add standby state retention
 'v1.0 add ups-power
 'v1.1 add prop fan control
 'v1.2 add Nokia LCD v3 pcb compatable
 '
 'v1.31 add shutdown-seq , respond to linux shutdown command
 'v1.32p Pico version
 'v1.32 add power flag,errflag & countdown clock
 'v1.33 fix jsonvalue, replace serial interupt mode
 'v1.34p pico updated
 'v1.35p ups management
 'v1.36p Alligned MX170 & Pico versions (apart from Pin#)
'v1.37p add textmsg (Synology Chat)
'v1.38p add cdc message (timeout)
'v1.39p mod textmsg to json msg , return rpitemp (formated)
 ' *******************************
 'IO Pin List
 
 'dim P1=GP19 'Led (Button)
 'dim P2=GP18 'Button
 'dim P3=GP12 'rpi-running (sig)
 'dim P4=GP13 'rpi-shutdown (out)
 'dim P5=GP17 'rpi-poweron (out)
 'dim P6=GP22 'ups-nopower (sig)
 'Dim P7=GP2 'Fan Drive
 'dim P8=GP0 'RX
 'dim P9=GP1 'TX
 
 
 
 dim ver$="1.39p"
 'Variables
 dim q$=chr$(34),J$="&",temp$="",lastline$,newline$
 'prop temp control
 dim ffan=70
 dim fan_cycle=60
 dim temp_run=40
 dim stall_percent=30
 dim temp_max=55
 dim fan_ratio=((99-stall_percent)/(temp_max-temp_run))
 
 '
 dim integer secs=0,flag=0 'periods
 dim integer uptime=0  'time up in seconds
 dim integer upspower=0  'ups power on
 dim integer upstime=0 'time on battery
 dim integer upsexpired=60  'time allowed on battery
 dim integer errflag=0 'error
 Dim Integer userprocessflag
 dim integer cdclock=20 ' seconds
 dim rpitemp$="45"
 dim rpiload$
 dim rpidate$,rpitime$,rpiutc$
 dim integer standby,powerflag,powerfail
 dim powermsgflag=1
 
 'periodic triggers
 dim secs5=5
 dim secs10=10
 dim secs20=20
 dim secs60=60
 dim min5=300'5 min in secs
 
 '***** User Variables ******
 
 '***** User Variables ******
 
 'LEDs & Outputs
 setpin GP2, PWM1A
 setpin GP0,GP1,COM1
 setpin GP19, dout 'Led 1
 setpin GP13, dout 'rpi-shutdown
 setpin GP17, dout 'rpi-poweron
 pin(GP13)=1 'rpi-shutdown (not-shutdown)
 pin(GP19)=0 'Led(button) off
 '  'Inputs
 setpin GP18, intl,buttonpress,PULLUP  'S2 Button
 setpin GP12, intl,notrunning        'rpi-running
 setpin GP22, intb,nopower,pulldown 'ups-nopower
 '*********************************************************************************
 ' cls
 Print
 print "mmPi "
 print "ver: "+ver$
 'font 5
 'Text 0,0, "mmPi "+ver$
 'Text 0,8, time$
 'text 0,16, "Temp: "+str$(val(rpitemp$),2,1)
 'initialise
 var restore
 if standby=1 then
   print "Standby"
   'cpu 5
   led3 0
   pin(GP17)=1  'shutdown power supply
   PWM 1,ffan,stop  'off
 else
   'start up via Power Source check
   if pin(GP22)=1 then
     powerflag=1
     startupseq
   end if
 end if
 
 'debug
 'pin(GP17)=0 'take control of power supply On
 'end
 
 
 'serial Com1
 open "com1:115200" as #5
 settick 1000, T1,1  '1 sec timer
 'settick 60000,runonce,2
 'main loop processing
 do
   'looptime=timer
   'print "Loop"
   Watchdog 20000 ' set the WDT at 20 secs
   if standby =0 then
     if upstime>upsexpired then shutdownseq
     'if upstime>some-triggerpoint then some-event
     'eg close down some other server
     if loc(5)>0 then rec1
     '***** periodic processes *****
     if secs10=0 then
       secs10=10
       adjFanSpeed val(rpitemp$)
       textmsg "cpucore",str$(val(rpitemp$),2,1)
       '***** User Code *****
     end if
     '
     if secs5=0 then
       secs5=5
       '***** User Code *****
     end if
     '
     if secs60=0 then
       secs60=60
       '***** User Code *****
     end if
     '
     if min5=0 then
       min5=300
       '***** User Code *****
     end if
   else
     'standby only
   end if
   ' Print "Elapsed:";timer-looptime/1000
 loop
 
 
 'core routines
sub runonce
 settick 0,0,2 'disable timer
end sub
 
 'power plug interupt
sub nopower
 if pin(GP22)=1 then
   print "Power OK"
   powerflag=1
'powermsgflag=1  
   if powerfail=1 then startupseq  'only start if in standby
 else
   print "Power Disconnected"
   pause 1000
   print "UPS Power"
 textmsg "text","Power has been disconnected"
   if standby =0 then
     print "Will close down in ";upsexpired;" secs"
     powerfail=1
     powerflag=0
     upstime=0 'reset time
   end if
 end if
end sub
 
sub notrunning
 print "Pi Not-running"
 shutdownseq
end sub
 
 'Heartbeat
sub T1
 if standby=0  then  'normal running
   'print "Countdown:";cdclock
   if secs5>0 then secs5=secs5-1
   if secs10>0 then secs10=secs10-1
   if secs20>0 then secs20=secs20-1
   if secs60>0 then secs60=secs60-1
   if min5>0 then min5=min5-1
   if cdclock>0 then
     led3 1 'Power Led On
     errflag=0 'reset the flag
     cdclock=cdclock-1 'countdown clock decrement
  print #5, "{"+q$+"cdc"+q$+":"+Str$(cdclock)+"}"
   else
     errflag=1 'set the error flag
   end if
   uptime=uptime+1 'time while running
   if uptime=60 and powermsgflag=0 then powermsgflag=1 'set flag 60secs after power restored
 else      'in standby or No Power
   '
 endif
 if powerflag=0 then upstime=upstime+1 'time in disconnected and ups
 if errflag=1 then led2
 'print "Uptime:";uptime;" upstime:";upstime
end sub
 
 
 'Led1 pulse p=pin
sub led1(d)
 if d=0 then d=50
 pulse GP19,d
end sub
 
 'Led2 toggle
sub led2
 if pin(GP19)=1 then
   pin(GP19)=0
 else
   pin(GP19)=1
 end if
end sub
 
 'Led3 set
sub led3(hl)
 pin(GP19)=hl
end sub
 
 # Set the PWM of fan pin
sub adjFanSpeed(CPU_temp)
 if  CPU_temp > temp_run then
   FAN_cycle = (((CPU_temp - temp_run)*fan_ratio)+stall_percent)
   FAN_cycle = min(100,max(stall_percent,FAN_cycle))
   PWM 1,ffan,fan_cycle
 else
   PWM 1,ffan,stop  'off
   FAN_cycle=0
 end if
end sub
 
 
Sub rec1
 'reads bytes from comms buffer , data terminated by CR will output a NewLine$ and set the UserFlag
 'if userprocessflag=1 then exit sub
 local a$
 local integer p,l,i
 'print "Buffer:";loc(5)
 if loc(5)=0 then exit sub
 if len(a$)=>235 then
   i=255-len(a$)
 else
   i=20
 endif
 'print "i:";i
 a$=Input$(i,#5)  'user supplied processing routine
 'pause 100
 'print a$;
 on error skip 'DEBUG
 lastline$=lastline$ + a$    'add to data packet 'DEBUG
 'print lastline$
packet:
 l=len(lastline$)
 p=instr(lastline$,chr$(13))
 '  print
 '  print "Line Lenght:";l
 '  print "CR?:";p
 '  print "Buffer:";loc(5)
 '  print lastline$
 '  print newline$
 '  print
 
 if l=>235 and p=0 then   'long line and no CR
   'force line to be processed
   newline$=lastline$
   lastline$=""
   userprocess 'force data process
   exit sub
 end if
 
 if p>0 then   'CR found so process
   'lastline$=replace$(lastline$,chr$(10),"")  'remove LF
   Newline$=left$(Lastline$,p-1)
   'check comms using temperature string from Pi
   'if good reset the countdown clock
   if instr(newline$,"{"+q$+"pi-temp"+q$+":")>0 then cdclock=20
    if powermsgflag=1 then
     textmsg "text","Power has been restored"
               powermsgflag=0
     end if
   end if
   if l>p+1 then
     lastline$=mid$(lastline$,p+1) 'save the rest of the line
   else
     lastline$=""
   end if
   'recover standard data pairs from Pi
   print "Process:";newline$
   getjson newline$,rpitemp$,"pi-temp"
   getjson newline$,rpiload$,"usage"
   getjson newline$,rpidate$,"Date"
   getjson newline$,rpitime$,"Time"
   getjson newline$,rpiutc$,"DateUTC"
   'recover any User program data pairs
   'uncomment next line as required
   userprocess
 endif
End Sub
 
 sub textmsg(obj$,tmsg$)
print #5, "{"+q$+obj$+q$+":"+q$+tmsg$+q$+"}"  
end sub

 
 
sub buttonpress
 pause 50  'debounce
 if pin(GP18)=0 then presstime
end sub
 
sub presstime
 pause 1000
 if pin(GP18)=0 then
   if pin(GP12)=1 then   'is pi running
     shutdownseq
   else
     'start up via Power Source check
     print "Check Power:";pin(gp22)
     if pin(GP22)=1 then
       powerflag=1
       startupseq
     end if
   end if
 else
   print "shortpress"
   led1 100
 end if
end sub
 
sub shutdownseq
 Watchdog 20000 ' set the WDT at 20 secs
 print "Shutdown"
 textmsg "text","Shutting down RPI"
 led1 1000
 pin(GP13)=0  'shutdown RPI
 pause 1000
 pin(GP13)=1
 print "Standby"
 errflag=0
 standby=1
 pause 15000' Wait for pi to shutdown
 led3 0
 print "shutdown supply"
 pin(GP17)=1  'shutdown power supply
 PWM 1,ffan,stop  'off
 
 var save standby,powerfail
 'cpu 5
end sub
 
sub startupseq
 print "Startup"
 print "Running"
 'cpu 48
 led1 1000
 uptime=0
 pin(GP17)=0  'power supply on
 uptime=0
 upstime=0
 standby=0
 powerfail=0
 var save standby,powerfail
 pause 2000
 led3 1
 PWM 1,ffan,60 'Run fan default
end sub
 
 
function jsonValue$(Jstring$,jParam$)
 local a,c,s$,d$,b,json$
 json$=jstring$
 s$=":"
 d$=","
 'locate parameter
  a=instr(JSON$,jparam$)
 'print "A is:";a
 json$=replace$(json$,chr$(34),"")  'strip quotes
 json$=replace$(json$,"}",",")  'replace closing curly brackets with comma
 if a>0 then 'retrieve value
   'look for separator :
   b=instr(a,json$,s$)
   if b>0 then
     'look for deliminator
     c=instr(b,JSON$,d$)
     if c>0 then
       jsonvalue$=mid$(JSON$,b+1,c-(b+1))
     endif
   endif
 else
   jsonvalue$="not found"
 endif
end function
 
 'gjson$ checks for w$ in a json string j$
 'replaces contents of r$ if found
sub getjson(j$,r$,w$)
 local x$
 'print "getjson:";j$
 x$=jsonvalue$(j$,w$)
 if x$ <> "not found" then
   r$=x$
 end if
end sub
 
 'replaceString$(string$, replaceWhat$, replaceWith$)
FUNCTION REPLACE$(R$, a$, b$)
 local integer i,j,c,d
 d=1
 REPLACE$=R$
 i = LEN(a$) : j = LEN(b$)
 do while INSTR(d,REPLACE$, a$) > 0
   c = INSTR(d,REPLACE$, a$)
   REPLACE$ = LEFT$(REPLACE$, c-1) + b$ + MID$(REPLACE$, c+i)
   d = c+j
 loop
END FUNCTION
 
 '**************** End Core routines and functions ********
 
 
 
 'user subs and tasks
 '*** User subs and other code here ***
 'process json strings from RPI
Sub userprocess
 print "UserProcess:";newline$
 
end sub
 
 'End user subs and tasks