Mouse is an interpreted stack orientated language designed by Peter Grogono around 1975. It was designed to be a small but powerful language for microcomputers, similar to Forth, but much simpler. One obvious difference to Forth is that Mouse interprets a steam of characters most of which are only a single character and it relies more on variables rather than rearranging the stack as much. The version for CP/M on the Walnut Creek CD is quite small at only 2k.
Peter Grogono says in Byte Magazine Volume 04 Number 07 - July 1979:
The justification for Mouse is that it incorporates many features of high level languages, yet it can be implemented without the resources needed by most high level languages. More specifically, Mouse programs demonstrate the use and implementation of arrays, functions, procedures, nested control structures, local variables, recursion and several methods of passing parameters from one procedure to another.
Hello, World! Example
As a first example to show what Mouse code looks like, here is a program to output "Hello, Word!" ten times to the screen.
~ Output 'Hello, World' ten times 10 c: ( c. ^ "Hello, World!" c. 1 - c: ) $
The first line beginning with
~ is a comment indicated by the
Next we have
10 c: This pushes
10 onto the stack, then
c: pops it off the stack and stores it in the
c is being used as a counter.
We now have a loop begun using the
( character and ended using with
). This loop will process its contents indefinitely until it is broken out of using the
Next we have
c. ^, the
c. pushes the contents of variable
c onto the stack and then
^ pops it off the stack and if it is less than 1 it breaks out of the loop.
"Hello, World!" outputs 'Hello, World', using
" to output the string. The
! inside the string is converted to a newline character.
c. 1 - c: decrements
c by first pushing its value to the stack using
c. then subtracting
1 from the top of stack using
1 -, then it stores the value on the stack back to the
c variable using
Finally the program ends using
Most instructions are a single character and all numbers are integers.
|$||End program / Define macro|
|<number>||Push <number> onto stack|
|?||Input number||Read a number from the keyboard and push its value onto stack|
|?'||Input character||Read a character from the keyboard and push the value of its ASCII code onto stack|
|!||Output number||Pop an operand from stack and display its value|
|!'||Output character||Pop an operand from stack and display the corresponding ASCII character|
|'<char>||Character literal||Push the ASCII code for the character <char> onto stack|
|"||Output string||Display each character between the double quote and the next double quote. Translate exclamation marks to newlines.|
|<letter>||Variable address||Convert the letter to an integer in the range 0..25 (A = a = 0, B = b = 1, ..., Z = z = 25). Add this value, which is an address in Data, to OffSet and push the result onto Stack. NOTE: LOCAL variables are supported. Lower case (a..z) variables are LOCAL. Upper case (A..Z) variables are GLOBAL.|
|:||Store||Pop two operands from stack and store the value of the second at the address in Data specified by the value of the first.|
|.||Fetch||Pop an operand from stack and push the value in Data of which it is the address.|
|<||Less than||Pop two operands from stack. If the first is less than the second, push 1, else push 0 onto stack.|
|=||Equal||Pop two operands from stack. If they are equal, push 1, else push 0 onto stack.|
|>||Greater than||Pop two operands from stack. If the first is greater than the second, push 1, else push 0 onto stack.|
|[||Start of conditional block||Pop a value from stack. If it is zero or negative, skip over characters until a matching ] is encountered.|
|]||End of conditional block|
|(||Start of loop||Loop is infinite unless ^ is used to exit it|
|)||End of loop|
|^||Exit loop||Pop an operand from stack. If it is zero or negative, exit loop|
|@||Exit from macro|
|%||Macro parameter||Pop a value from stack and use it to count parameters in the calling environment (parameter n follows the nth comma)|
|,||End of parameter|
|;||End of macro parameters|
|&<filename>&||Load and run <filename>||With this feature several Mouse programs may be linked together|
Mouse allows you to create macros/subroutines using the
$ character to define them and the
# character to call them. Within the macros the
% character is used to reference the parameters and
@ says to end the macro. The following code creates a macro to output which of two numbers is bigger.
~ Accept two numbers as input and say which is biggest ~ Get numbers "Enter first number: " ? a: "!Enter second number: " ? b: #b,a.,b.; $ ~ Macro to output which number is biggest $b 1% 2% = [ "!!Numbers are equal" @ ] 1% 2% > [ 1% g: ] 2% 1% > [ 2% g: ] "!!Biggest number: " g. ! @
This code starts by asking for two numbers and uses the
? character to accept input of a number. The numbers are stored in variables
Once the numbers have been input the line
#b,a.,b.; calls the macro defined lower down. This uses
b. as arguments to give the macro the values within those two variables. Parameters are separated with
; indicates the end of the parameter list.
$ indicates the end of the main program.
The macro is defined using
$ says define a macro and
b is the name of the macro. Within this it uses
2% to push the arguments onto the stack.
There is now a test for equality using
= and we can see the use of conditional blocks begun with
[ and ended with
]. These are entered after popping the stack and if it is greater than or equal 1 processing is continued inside the block, otherwise the block is skipped until a
] is reached.
In the first conditional block we can see that the subroutine ends if the numbers are equal. This is done using the
There then follows another two tests with conditional blocks which store the biggest number in
Finally the code finishes by outputting the biggest number and returning with
You can even create recursive macros as the following program demonstrates by using recursion to output 'Hello, World!" ten times.
~ Output 'Hello, World' ten times using recursive macro #p,10; $ $p 1% [ "Hello, World!" #p,1% 1 - ; ] @
#p,10; Calls the
p macro with the argument
$ ends the program.
The macro definition is started with
$p and continues until
@ is reached.
Next we have
1% which pushes the argument supplied to the macro to the top of the stack. Here, it is being used to say how many more 'Hello, World!' messages should be output.
Now we have a conditional block indicated by the
] characters, which in this case will process the block for each call to the macro unless it the argument to
p reaches 0.
Inside the conditional block we have
"Hello, World!" to output our message.
Next we call the macro again with
#p,1% 1 - ;. This time the argument is
1% 1 - which pushes the supplied argument to the stack and subtracts
1 from it.
The letter variables actually represent memory locations within an area for data storage. So when for example the letter
A is used it pushes 0 onto the stack and then
. can be used to store/fetch a value to/from it. Within macros we can use lower case letters to access local variables and uppercase values to access global variables. The following program illustrates this.
~ Demonstrate var letter/memory locations "Value of A: " A ! "!Value of B: " B ! #i,3; ~ Store 17 in data location 2 17 2 : ~ Show location/value for C "!!Value of C: " C ! "!Value in C var: " C. ! $ $i "!!Inside $i 1%: " 1% ! "!Inside $i value of A: " A ! "!Inside $i value of a: " a ! "!Inside $i value of B: " B ! "!Inside $i value of b: " b ! 1% [ #i,1% 1 - ; ] @
! character outputs the number on the top of stack, however within the strings output using
! is converted to a newline.
Output from above program:
MOUSE.MAC, 6/15/86 Value of A: 0 Value of B: 1 Inside $i 1%: 3 Inside $i value of A: 0 Inside $i value of a: 26 Inside $i value of B: 1 Inside $i value of b: 27 Inside $i 1%: 2 Inside $i value of A: 0 Inside $i value of a: 52 Inside $i value of B: 1 Inside $i value of b: 53 Inside $i 1%: 1 Inside $i value of A: 0 Inside $i value of a: 78 Inside $i value of B: 1 Inside $i value of b: 79 Inside $i 1%: 0 Inside $i value of A: 0 Inside $i value of a: 104 Inside $i value of B: 1 Inside $i value of b: 105 Value of C: 2 Value in C var: 17
The following program demonstrates that local variables, indicated with a lowercase letter, within macros are separate from global variables, indicated with an uppercase letter. If a lowercase letter is used outside of a macro then it is taken to be the same as an uppercase letter and hence a global variable.
~ Test local variables 12 A: 17 a: #c; "!Outside $c a = " a. ! " A = " A. ! $ $c 100 a: A. a. + a: "!Inside $c a = " a. ! " A = " A. ! @
Output from above program:
MOUSE.MAC, 6/15/86 Inside $c a = 117 A = 17 Outside $c a = 17 A = 17
Obtaining Mouse for CP/M
Mouse can be downloaded from the Walnut Creek CD. This version was updated by Lee R. Bradley and is based on the Z80 version published in "Mouse, a language for Microcomputers", 1983, Petrocelli Books.
The .LBR file contains a few useful Mouse program, ending '.MSE', such as:
- Lists the files in the package
- Lists the instructions
Video Demonstrating Mouse on CP/M
Mouse is an interesting and fun little programming language that can be seen being used in the following video.