Warren just posted my GJM module to this site. It contains MCODE and FOCAL routines I have found useful when creating my user programs. Some of the highlights are:
A sliderule program (emulates most slide rules by emulating A, B, C, and D scales (along with I, F, IF, and FI flavors of each), plus for each of these 20 scales it is possible to use one of 15 subscales (Sine, Cosine, Tangent, Log, Log Log, etc). One of the subscales is User defined.
A program to perform Cubic Spline interpolation.
A program to calculate 1st and 2nd derivatives (idea from JM Baillard, but put into MCODE).
Programs (from 'Angel Martin) to perform various MEAN calculations (Arithmetic, Geometric, Harmonic, and the Generalized Power forms); also the Arithmetic-Geometric mean of two values, and the Geometric-Harmonic mean as well.
Modulus arithmetic (M+, M-, M*, ans SQM are MCODE, other routines come from JM Baillard but are modified to use the MCODE routines).
... and a lot more!
A big thanks to 'Angel Martin for being my consultant for 2nd FAT capability, 2nd bank capability, and a function launcher that easily accesses all the functions (similar to his SandMath / SandMatrix / 41Z modules among others and our joint 16C emulation module). I could not have created this module with as much as was put into it without his help!