Micromite MKII MMBasic Ver 4.7 Beta 36
Copyright 2011-2015 Geoff Graham

> list
' scwong 20150726
' micromite mk2 4.7 beta 23
' ___ _ ___
' RST(3v3)-|1 \_/ 28|-(3v3)
' Dig/Int/Ana-|2 M 27|-(Gnd)
' SPI Out/Dig/Int/Ana-|3 i 26|-Ana/Dig/PWM2A
' PWM1A/Dig/Int/Ana-|4 c 25|-Ana/Dig/SPI Clk
' PWM1B/Dig/Int/Ana-|5 r 24|-Ana/Dig/PWM2B
' PWM1C/Dig/Int/Ana-|6 o 23|-Ana/Dig
' Com1:En/Dig/Int/Ana-|7 m 22|-Dig/5V/Com1:Rx
' (Gnd)-|8 i 21|-Dig/5V/Com1:Tx #
' Com2:Tx/Int/Dig-|9 t 20|-(47uF Tant +)
' Com2:Rx/Int/Dig-|10 e 19|-(Gnd)
' 38400bps Console Tx-|11 18|-Dig/5V/Count/SDA #
' " Console Rx-|12 m 17|-Dig/5V/Count/SCL #
' (3v3 ie. 2.3V-3.6V)-|13 k 16|-Dig/5V/Count/Wakeup/IR
' SPI In/5V/Dig-|14 2 15|-Dig/5V/Count
' ---------
'
CPU 10
Option explicit
Dim integer setcoloron = 1 'set to 0 to disable color
Dim integer mode = 0
Dim integer count = 0
Dim integer pattern(9) = (&h6f,1,2,3,4,5,&h42,7,8,&h71)
' 0-9 of sparkfun LED display
SetTick 1 * 60 * 60 * 1000, refreshtime, 1 'every hour
SetTick 500, everyhalfsec, 2
SetTick 50, chkinkey, 3
Dim key As string
Open "COM1:9600" As #5 '7seg display using com mode
refreshtime

Do
' do nothing
Loop

Sub chkinkey
Local string key = Inkey$
If key = "c" Or key = "C" Then
setcoloron = 1 - setcoloron 'toggle 1, 0
EndIf
If key = "f" Or key = "F" Then
refreshtime
EndIf
End Sub

Sub everyhalfsec
Select Case mode
Case 0
wholesec
Case 1
halfsec
Case Else
'do nothing
End Select
mode = (mode + 1) Mod 2 '0-1-2-3-0-1-...
WatchDog 600
End Sub

Sub refreshtime
Local string oldtime = Date$ + " " + Time$
RTC gettime
Print "Time refreshed! From " oldtime " to " Date$ + " " + Time$
Print Chr$(7); 'make some noise
End Sub

Sub halfsec
Print #5, Chr$(&h77); 'decimal control
Print #5, Chr$(&b00000000); 'clear colon
End Sub

Sub wholesec
Local string t = Time$
setcolor count Mod 7
Print "color" count Mod 7 " ";
setcolor 0
Print Time$ "," count
Print #5, Chr$(&h79) + Chr$(0); 'cursor control, 0 = left most
t = Left$(t,2) + Mid$(t,4,2)
Local i As integer
For i = 1 To 4
Print #5, Chr$(pattern(Val(Mid$(t,i,1))));
Next
Print #5, Chr$(&h77); 'decimal control
Print #5, Chr$(&b00010000); 'colon
count = count + 1
End Sub

Sub setcolor (i As integer)
i = i Mod 8
Local code As string
code = Chr$(27) + "[3" + Str$(i) + "m" 'escape code for VT100
If setcoloron Then
Print code;
EndIf
End Sub

Function DSGettemp() As float
Local add11 As float
Local add12 As float
RTC getreg &h11, add11
RTC getreg &h12, add12
dsgettemp = add11 + add12/256
End Function
> library save
> library list
CPU 10
Option explicit
Dim integer setcoloron = 1
Dim integer mode = 0
Dim integer count = 0
Dim integer pattern(9) = (&h6f,1,2,3,4,5,&h42,7,8,&h71)
SetTick 500, everyhalfsec, 2
SetTick 50, chkinkey, 3
Dim key As string
Open "COM1:9600" As #5
refreshtime
Do
Loop
Sub chkinkey
Local string key = Inkey$
If key = "c" Or key = "C" Then
setcoloron = 1 - setcoloron
EndIf
If key = "f" Or key = "F" Then
refreshtime
EndIf
End Sub
Sub everyhalfsec
Select Case mode
Case 0
wholesec
Case 1
halfsec
Case Else
End Select
mode = (mode + 1) Mod 2
WatchDog 600
End Sub
Sub refreshtime
Local string oldtime = Date$ + " " + Time$
RTC gettime
Print "Time refreshed! From " oldtime " to " Date$ + " " + Time$
Print Chr$(7);
End Sub
Sub halfsec
Print #5, Chr$(&h77);
Print #5, Chr$(&b00000000);
End Sub
Sub wholesec
Local string t = Time$
setcolor count Mod 7
Print "color" count Mod 7 " ";
setcolor 0
Print Time$ "," count
Print #5, Chr$(&h79) + Chr$(0);
t = Left$(t,2) + Mid$(t,4,2)
>

setpin T_IRQ2,INTL,readtouch