'
'Returns 1 if X is Odd, 0 otherwise
'
FUNCTION Odd(X)
Odd=X AND &H1
END FUNCTION

'
'Returns 1 if X is even, O otherwise
'
FUNCTION Even(X)
Even=(X AND &H1) XOR &H1
END FUNCTION

'
'Shift X Left by N bits
'
FUNCTION ShiftL(X,N)
ShiftL=X*(2^N)
END FUNCTION

'
'Shift X Right by N Bits
'
FUNCTION ShiftR(X,N)
ShiftR=X\(2^N)
END FUNCTION

'
'Remove leading Spaces from string
'
FUNCTION LTrim$(X$)
LOCAL I,Z$ Length LEN(X$)

'Make copy of caller's string so that we don't damage it
Z$=X$

FOR I=1 TO LEN(Z$)

'Find first NON-Space character
IF MID$(Z$,I,1)<>" " THEN
Z$=MID$(Z$,I)
EXIT FOR
ENDIF

NEXT I

LTrim$=Z$

END FUNCTION

'
'Remove trailing Spaces from string
'
FUNCTION RTrim$(X$)
LOCAL I,Z$ Length LEN(X$)

'Make copy of caller's string so that we don't damage it
Z$=X$


FOR I=LEN(Z$)-1 TO 1 STEP -1

'Find first NON-Space character
IF MID$(Z$,I,1)<>" " THEN
Z$=MID$(Z$,1,I)
EXIT FOR
ENDIF

NEXT I

RTrim$=Z$

END FUNCTION

'
'Remove spaces from LHS and RHS of string
'
FUNCTION Trim$(X$)
LOCAL Y$ length LEN(X$)

'MMBasic doesn't like Trim$=RTrim$(LTrim$(X$))

Y$=LTrim$(X$)
Trim$=RTrim$(Y$)

END FUNCTION

'
'Returns 1 if X is Odd, 0 otherwise
'
FUNCTION Odd(X)
Odd=X AND &H1
END FUNCTION

'
'Returns 1 if X is even, O otherwise
'
FUNCTION Even(X)
Even=(X AND &H1) XOR &H1
END FUNCTION

'
'Shift X Left by N bits
'
FUNCTION ShiftL(X,N)
ShiftL=X*(2^N)
END FUNCTION

'
'Shift X Right by N Bits
'
FUNCTION ShiftR(X,N)
ShiftR=X\(2^N)
END FUNCTION

'
'Remove leading Spaces from string
'
FUNCTION LTrim$(X$)
LOCAL I,Z$ Length LEN(X$)

'Make copy of caller's string so that we don't damage it
Z$=X$

FOR I=1 TO LEN(Z$)

'Find first NON-Space character
IF MID$(Z$,I,1)<>" " THEN
Z$=MID$(Z$,I)
EXIT FOR
ENDIF

NEXT I

LTrim$=Z$

END FUNCTION

'
'Remove trailing Spaces from string
'
FUNCTION RTrim$(X$)
LOCAL I,Z$ Length LEN(X$)

'Make copy of caller's string so that we don't damage it
Z$=X$


FOR I=LEN(Z$)-1 TO 1 STEP -1

'Find first NON-Space character
IF MID$(Z$,I,1)<>" " THEN
Z$=MID$(Z$,1,I)
EXIT FOR
ENDIF

NEXT I

RTrim$=Z$

END FUNCTION

'
'Remove spaces from LHS and RHS of string
'
FUNCTION Trim$(X$)
LOCAL Y$ length LEN(X$)

'MMBasic doesn't like Trim$=RTrim$(LTrim$(X$))

Y$=LTrim$(X$)
Trim$=RTrim$(Y$)

END FUNCTION

'Have to assume 16 bit integer
Function ASR(X, Carry)

Carry=X AND &H1

ASR=(X \ 2) AND &HFFFF

End Function

'Have to assume 16 bit integer
Function ASL(X,Carry)

Carry=X AND &H8000
ASL=(X * 2) AND &HFFFF

End Function

An editor is needed to ensure naming consistency, eliminate namespace collisions, packaging and distribution of the library, documentation standards and so on.

If this idea has legs then we probably need to establish the guidelines, eg naming conventions, documentation headers, error handling/reporting.

'Shorten symbols
#define Args A
LOCAL Args(8)

'Shorten symbols
#define H16Out X
#define L16Out Y
LOCAL H16Out,L16Out

'Shorten the Symbols at runtime
#define XferFastData S1
#define XferData32 S2
#define XferData F3
#define SendCommand S4
#define XferInstruction S5
#define Initialise S6
#define SetMode S7
#define ExitProgMode S8
#define Clock S9
#define Send8Bits SA