diff -durN --strip-trailing-cr Micromite-5.4.5/General/External.c Micromite-5.4.5-patched/General/External.c
--- Micromite-5.4.5/General/External.c 2017-06-12 05:08:35.000000000 +0200
+++ Micromite-5.4.5-patched/General/External.c 2017-07-02 11:00:44.671507112 +0200
@@ -918,8 +918,10 @@
if(pin == INT3PIN) ConfigINT3(EXT_INT_PRI_2 | RISING_EDGE_INT | EXT_INT_DISABLE);
if(pin == INT4PIN && IrState == IR_CLOSED) ConfigINT4(EXT_INT_PRI_2 | RISING_EDGE_INT | EXT_INT_DISABLE);

- // make sure any pullups/pulldowns are removed in case we are changing from a digital input
- PinSetBit(pin, CNPUCLR); PinSetBit(pin, CNPDCLR);
+ if (cfg != EXT_FREQ_IN && cfg != EXT_PER_IN && cfg != EXT_CNT_IN) {
+ // make sure any pullups/pulldowns are removed in case we are changing from a digital input
+ PinSetBit(pin, CNPUCLR); PinSetBit(pin, CNPDCLR);
+ }

for(i = 0; i < NBRINTERRUPTS; i++)
if(inttbl.pin == pin)
diff -durN --strip-trailing-cr Micromite-5.4.5/General/MM_Custom.c Micromite-5.4.5-patched/General/MM_Custom.c
--- Micromite-5.4.5/General/MM_Custom.c 2017-03-10 12:30:30.000000000 +0100
+++ Micromite-5.4.5-patched/General/MM_Custom.c 2017-07-02 11:00:44.698173779 +0200
@@ -14,7 +14,7 @@

#include "../MMBasic_Includes.h"
#include "../Hardware_Includes.h"
-
+#include "SPI.h"

/*********************************************************************************************************************** **
************************************************************************************************************************ **
@@ -52,3 +52,7 @@

************************************************************************************************************************ ********************/

+void fun_spiopen(void) {
+ iret = SPIOpen;
+ targ = T_INT;
+}
diff -durN --strip-trailing-cr Micromite-5.4.5/General/MM_Custom.h Micromite-5.4.5-patched/General/MM_Custom.h
--- Micromite-5.4.5/General/MM_Custom.h 2017-05-13 03:12:52.000000000 +0200
+++ Micromite-5.4.5-patched/General/MM_Custom.h 2017-07-02 11:00:44.698173779 +0200
@@ -29,6 +29,8 @@
// void fun_???(void)
// void op_???(void)

+void fun_spiopen(void);
+
#endif


@@ -55,5 +57,7 @@
// where type is T_NA, T_FUN, T_FNA or T_OPER augmented by the types T_STR and/or T_NBR
// and P is the precedence (which is only used for operators)

+ { "MM.SPIOPEN", T_FNA | T_INT, 0, fun_spiopen },
+
#endif

diff -durN --strip-trailing-cr Micromite-5.4.5/MMBasic/Functions.c Micromite-5.4.5-patched/MMBasic/Functions.c
--- Micromite-5.4.5/MMBasic/Functions.c 2017-06-14 09:32:40.000000000 +0200
+++ Micromite-5.4.5-patched/MMBasic/Functions.c 2017-07-21 01:04:28.364454616 +0200
@@ -702,6 +702,7 @@
} else {
fret = 1.5707963268 - arcsinus(f);
}
+ targ = T_NBR;
}

sub mm.startup
' setrd(6)' set up the read pin
end sub

1000 2027.952927
[54] t=arr(leftNIdx):arr(leftNIdx)=arr(rightNIdx):arr(rightNIdx)=t
Error: String too long
> trace list 50
[55][56][57][58][59][60][64][65][41][42][43][44][45][68][66][41][42][43][44][45][68][67][68][67][68][67][68][67][68][67][68][67][68][67][68][67][68][66][41][42][43][44][45][46][47][48][50][51][53][54]

quicksort arr(), pivot + 1, rightN
End If
End Sub

[22][23][21][22][23][21][22][23][21][22][23][21][22][23][21][22][23][21][22][23][21][22][23][21][22][23][21][22][23][21][22][23][24][25][26][41][42][43][44][45][46][47][48][49][50][49][50][51][53][54]

' Working(!) DEMO for the "Passed Arrays" bug
' String array [q()] is globally
'------------------------------------------------------------------------
'Quicksort for strings using recursion
's. https://rosettacode.org/wiki/Sorting_algorithms/Quicksort
'

Option base 0
Dim integer max = 1000
Dim string q(max) length 20, qo

For n = 0 To max
q(n)=Str$(Rnd()*10000,6)
Print n,q(n)
Next

Timer= 0
Quicksort 0, max
tx= Timer/1000

qo=""
For n = 0 To max
Print "#"n,q(n)
If q(n)<qo Then Print" error":End
qo=q(n)
Next
Print
Print tx "sec"
End

' Quicksort
Sub quicksort (leftN As INTEGER, rightN As integer)
Local pivot As integer, leftNIdx As INTEGER, rightNIdx As INTEGER
Local t As string
leftNIdx = leftN
rightNIdx = rightN
If (rightN - leftN) > 0 Then
pivot = (leftN + rightN) / 2
Do While (leftNIdx <= pivot) And (rightNIdx >= pivot)
Do While (q(leftNIdx) < q(pivot)) And (leftNIdx <= pivot)
leftNIdx = leftNIdx + 1
Loop
Do While (q(rightNIdx) > q(pivot)) And (rightNIdx >= pivot)
rightNIdx = rightNIdx - 1
Loop
t=q(leftNIdx):q(leftNIdx)=q(rightNIdx):q(rightNIdx)=t
leftNIdx = leftNIdx + 1
rightNIdx = rightNIdx - 1
If (leftNIdx - 1) = pivot Then
rightNIdx = rightNIdx + 1
pivot = rightNIdx
ElseIf (rightNIdx + 1) = pivot Then
leftNIdx = leftNIdx - 1
pivot = leftNIdx
End If
Loop
quicksort leftN, pivot - 1
quicksort pivot + 1, rightN
End If
End Sub

Dim MaxDepth%=0
Function Recurse(a$) As String
Depth%=Depth%+1: If Depth%>MaxDepth% Then MaxDepth%=Depth%
If Len(a$)=1 Then
Recurse=a$
Else
Recurse=Recurse(Mid$(a$,2))
EndIf
End Function

Dim a$
For i%=32 to 114
a$=a$+Chr$(i%)
Depth%=0
? Recurse(a$);
Next i%
?
? "Max recursions tried:";MaxDepth%;", now trying 84..fails"

For i%=32 to 115
a$=a$+Chr$(i%)
Depth%=0
? Recurse(a$);
Next i%

DOS MMBasic Ver 5.04.05 Beta 7
Copyright 2011-2017 Geoff Graham

!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr
Max recursions tried: 83, now trying 84..fails
[46] Recurse=Recurse(Mid$(a$,2))
Error: Not enough memory
>