[SOLVED] CS assembler assembly compiler Java c++ This is the traditional hello world program.

This is the traditional hello world program.
import io
let start() be
out(Greetings, Human.
)
import is a lot like import in java, and a bit like #include in C++.
io is the standard library with input/output and other very basic functions.
let introduces most simple declarations, it is not a type. There are no types.
start serves the same purpose as main in java and C++.
be is required when defining a function like this.
The body of a function is a single statement, but see the next example.
out is the ancestor of Cs printf and javas System.out.printf.
Here is a bigger version.
import io
let start() be
{ out(Greetings, Human.
);
out(Now go away and leave me alone.
) }
Curly brackets combine multiple statements into one statement, called a block.
Semicolons are only required between statements, as a separator.
(the original BCPL didnt require semicolons at all, but that leads to too
many preventable mistakes, so I made a change there)
But if you forget and put an extra one before the }, the compiler wont complain.
Now for some local variables. (from now on, I wont show the import statement)
let start() be
{ let x = 5, y = 10, z;
x := x + 1;
z := x * (y + 1);
y +:= 2;
out(x=%d, y=%d, z=%d
, x, y, z) }
let introduces the declaration again. You know that x, y, and z are variables and not functions because they are not followed by ().
let is followed by any number of variable names all separated by commas. each variable may be given an initial value (like x and y), or left uninitialised (like z).
There can be any number of lets, you dont have to declare all your variables on one line.
But lets are only allowed at the beginning of a block. All declarations must come before any executable statement.
2
1

6
3
:= is the symbol for an assignment statement. Unlike in C++, you cant give
yourself a hard-to-debug problem by accidentally typing = instead of ==.
Assignments are statements, not expressions. := can not be used as an operator in
an expression.
+:= is an update assignment just like += in C and java. You can use it with all the
operators youd reasonably expect: *:=, :=, /:=, /:=, etc.
Names of variables and functions and other things
Must begin with a letter
May also include any number of letters, digits, underlines, and dots.
ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 0123456789_.
4
Capital letters and little letters are not distinguished.
cat, CAT, Cat, and cAt are just four ways of typing the same variable.
That applies to the rest of the language too: let, LET, and Let are the same thing.
Languages that distinguish between big and little letters are abominations.

5
let start() be
{ let x;
x := 123;
out(x=%d
, x);
x := hello;
out(x=%s
, x);
x := 12.34;
out(x=%f
, x) }
Variables do not have types, you can store anything you like in any variable.
It is up to the programmer to remember what kind of thing has been put in which
variables.
Every variable is just a 32 bit value. How those bits are interpreted or used is
determined by what you do with that variable.
The 32-bit values and memory locations are called Words, regardless of their use.
All of memory is a giant array of words.
let start() be
{ let x = 84;
out(%d in decimal is:
, x);
out(%x in hexadecimal and %b in binary
, x, x);
out(and is the ascii code for the letter %c
, x) }
out uses %d for integers to be printed in decimal,
%x for integers to be printed in hexadecimal,
%b for integers to be printed in binary,
%c for integers to be printed as characters,
%f prints floating point values, and
%s prints strings.

Input from the user
let start() be
{ let x, y;
out(type a number. );
x := inno();
out(and another one: );
y := inno();
out(%d times %d is %d
, x, y, x*y) }
inno waits for the user to type an integer in decimal, and returns its value.
inch reads a single character and returns its ascii value.
If you want to read anything more complicated than a decimal integer, youll have
to write a function for it.
let inbin() be
{ let value = 0;
while true do
{ let char = inch();
if char < ‘0’ / char > 1 then
resultis value;
value := value * 2 + char 0 } }
let start() be
{ let x;
out(type a number in binary. );
x := inbin();
out(that is %d in decimal
, x) }
With that definition, inbin reads an integer from the user in binary.
while means the same as it does in C++ and java, but
you dont need to put parentheses around the condition, and
you do need to put the word do after the condition.
true is exactly equivalent to 1, false is exactly equivalent to O.
while, and all other conditionals, accepts any non-zero value as being true.
if means the same as it does in C++ and java, but
you dont need to put parentheses around the condition, and
you do need to put the word then or do after the condition.
if statements never have an else.
The logical operators are / for and, / for or, and not or ~ for not.
/ and / use short-circuit evaluation:
in A / B, if A is false, B will not even be evaluated.
in A / B, if A is true, B will not even be evaluated.
not replaces 0 (which is false) with -1 (which is true),
it replaces everything other than 0 with 0.
~ is exactly the same thing as not.
8
7

enclosed in the single quotes, because 4 character codes can fit in 32 bits: ab = a256 + b,
abc = a256256 + b256 + c,
abcd = a256256256 + b256256 + c256 + d.
The relational operators for integer values are
< >
<= >=
=
<>
/=
for less than,
for greater than,
for less than or equal to,
for greater than or equal to,
for equal to, dont use ==.
for not equal to (it is saying less than or greater than)
also means not equal to, and so does =, the three are identical.
Relational operators may be strung together: a = 0 do count := count 1;
if a + b > 100 then
{ out(Too big!
);
finish }
In an if statement, then and do mean exactly the same thing.
finish is the same as exit() in C++ and java, except that it is a statement, not a
function, so there is no () pair following it. It just stops the whole program.
unless x >= 0 do count := count + 1;
unless y < 0 do count := count – 1; unless a + b <= 100 then { out(“Too big!
“);finish } unless X means the same as if not(X). test 1 <= x <= 10 then out(“Everything is fine
“) else out(“Panic! x = %d, out of range
“, x);129 Neither if nor unless may take an else. Allowing that in C++ and java makes the meanings some programs unclear in away that most programmers are unaware of. test is the thing to use. test is the same as if in C++ and java, but it mustalways have an else, else is not optional with test.test x < 1 thenout(“Too small
“)else test x > 10 then
out(Too big
)
else
out(OK
)
Of course tests may be strung together like that.
The word or may be used instead of else, they mean exactly the same thing.
Loops
Thatprints123456789
x := 1;
until x > 10 do
{ out(%d , x);
x +:= 1 }
Thatprints12345678910
until is just a reader-friendly way of saying while not.
until X means exactly the same as while not(X).
x := 1;
{ out(%d , x);
x +:= 1 } repeat
That prints 1 2 3 4 5 6 7 8 9 10 11 12 13 14 and never stops
repeat is the same as do while (true) in C++ and java.
x := 1;
{ out(%d , x);
x +:= 1 } repeatwhile x < 10 Thatprints123456789 repeatwhile is the same as do … while in C++ and java, the body of the loop gets13x := 1;while x < 10 do{ out(“%d “, x);x +:= 1 }executed once even if the condition is initially false.x := 1;{ out(“%d “, x);x +:= 1 } repeatuntil x > 10
Thatprints12345678910
repeatuntil X is the same as repeatwhile not(X).
{ let x = 0;
while true do
{ x +:= 1;
if x rem 3 = 0 then loop;
if x > 16 then break;
out(%d , x) }
out(end
) }
14

Thatprints1245781O11131416end
rem is the remainder or modulo operator, like % in C++ and java.
Try to remember that % means something else and will cause very odd errors.
break means exactly the same as in C++ and java, it immediately terminates the
loop that it is inside. It can only be used in a loop.
loop means exactly the same as in continue does in C++ and java, it abandons the
current iteration of the loop that it is inside, and starts on the next. It can only be used in a loop.
{ let i = 1234, sum = 0;
for i = 3 to 25 by 3 do
{ sum +:= i;
out(%d , i) }
out(i=%d
, i) }
That prints3 6 9 12 15 18 21 24 i=1234
A for loop always creates a new temporary control variable, that variable does not
exist any more once the loop ends.
The initial value and the final value may given by any expression.
The by value must be a compile time constant, meaning that the compiler must be
able to work out its value before the program runs, so it cant involve any variables.
max := 9;
for i = 1 to max+1 do
{ if i = 5 then max := 20;
out(%d , i) }
out(max=%d
, max) }
Thatprints1234567891Omax=2O
The terminating value for a for loop is calculated just as the loop starts, and is
stored until the loop ends. It is not recalculated at each iteration. In the example, changing the value of max had no effect on how many times the loop ran.
15

If you dont provide a by value, the compiler assumes 1. for i = 10 to 1 do
out(%d , i)
That prints nothing at all.
If you want the loop to count backwards you must explicitly say by 1.
If the by value is positive, the loop runs while the variable is <= to the to value. If the by value is negative, the loop runs while the variable is >= to the to value.

16
while true do
{ let c = inch();
switchon c into
{ case :
out(a space
);
endcase;
case .:
out(a dot
);
endcase;
case +:
out(a plus sign, );
case -: case *: case /:
out(an operator
);
endcase;
case 0 9:
out(a digit
);
endcase;
case A Z: case a z:
out(a letter
);
endcase;
default:
out(something else
) } }
switchon X into is just the same as switch (X) in C++ and java.
Execution jumps immediately and efficiently to the case label matching the value of
the expression, which should be an integer.
switchon does not use a series of comparisons, so it is faster than a sequence of
test else test else
endcase causes a jump to the end of the switchon statement. If no endcase is met,
execution runs into the next case. In the example, a + gets the response a plus
sign, an operator.
The case labels must be constants, and there may be no repetition (or in the case of
ranges given with , there must be no overlap). Each possible value may only
appear once.
The default label catches all values that are not covered by a case label.
default is not required. Without it, unmatched values do nothing.
The overall range of all the case values must not be very large, or the resulting
executable code will be too big to run.

if count = 0 then
debug 12
debug causes program execution to be suspended, and control is delivered to the assembly language debugger. debug must be followed by a constant which will be visible in the debugger to identify which debug point was reached.
Disapproved-of Statements
let start() be
{ let a = 0;
start: a +:= 1;
if a rem 10 = 4 then goto start;
if a > 100 then goto elephant;
out(%d , a);
goto start;
elephant: }
18
That program will count from 1 to 100, skipping numbers whose last digit is 4, then stop.
Any statement or } may be given a label. Labels are names with the same rules as variables, and are attached to a statement with a colon.
Reaching a label has no effect on execution.
A goto statement causes an immediate jump to the statement with the matching
label.
It is not possible to jump into a block from outside it, and it is not possible to jump
to a label in a different function. Labels are in fact local variables. A new value may
be assigned to a label at any time (e.g. elephant := start).
goto may be followed by an expression. If the value of the expression does not turn
out to be a label, the results are unpredictable.
Anything that happens in a program that uses a goto is the programmers own fault, and no sympathy will be received.

19
let start() be
{ /* this function is to demonstrate
the use of comments in a program.
comments may be very big or very
small or anything in between */
let a = 0;
let b = 0; // b is the hypotenuse
let c = 5, d = 99;
a := (c+1)*(d-1);
if a < 20 /* not good */ then out(“%d “, a);d := c – 4;a := 0 // the curly bracket on this line is ignored }} // so we need an extra one here17import “io” let factorial(n) be { let f = 1; for i = 1 to n do f *:= i;resultis f; } let display(a, b) be { out(” N N!
“); out(“———
“); for i = a to b do out(” %d %d
“, i, factorial(i)); out(“———-
“) } let average(x, y) = (x+y)/2 let start() be display(3, average(7, 11)) That program prints a table of factorials from 3 to 9. If a function has parameters, their names are listed between the parentheses in itsdeclaration, separated by commas. Nothing else can go in there, there is nothing tosay about a parameter except for its name. Parameters behave just like local variables. If a functions result can be expressed as a single expression, the simplified form asused for average may be used. Any expression may follow the =. If a function only consists of a single statement, the { and } are not required. resultis is used to exit a function and return a value, return is used to exit a function without returning a value. When a function is called, it is not necessary to provide the correct number of parameter values. If too few values are provided, the last parameters will simply be uninitialised variables. BUT: any attempt to assign to or modify an un-passed parameter will have disastrous and hard-to-trace consequences.Functions let f(x, y) be { … } and g(a) be { … } and h(p, q, r) be { … } Every function must be declared before it is used. There are no prototypes, simultaneous declaration is used instead. When function definitions are linked together using and instead of repeated lets, all of those functions are declared before any of their defining statements are processed. In the example above, each of the three functions f, g, and h may call any or all of those same three functions.2021 let process(a, b) be { let f(z) = (z+10)*(z-10); let modify(x) be { let z = f(x+1); if z < 0 then resultis 1; resultis x+3 } let sum = 0; for i = a to b do sum +:= modify(i); resultis sum } Functions may have their own local function definitions. In the example, the function modify is only available within the function process.Elsewhere the name modify has no meaning, just as with local variables. This feature is of limited usefulness; modify is not permitted to access any of processs parameters or local variables, although it can access other localfunctions.23 let increment(x) be { let total; if numbargs() = 0 then total := 0; total +:= x; out(“the total is now %d
“, total) } let start() be { out(“reset
“);increment(); out(“add 1
“);increment(1); out(“add 2
“);increment(2); out(“add 1
“);increment(1); out(“add 1
“);increment(1); out(“reset
“);increment(); out(“add 2
“);increment(2); out(“add 1
“);increment(1); out(“add 3
“);increment(3) } The library function numbargs() returns the number of parameters (arguments) that the current function was called with. The idea of the example is that the variable total is used to accumulate all the values increment has been given. Calling increment with no parameters is a signal to reset the total back to zero. Naively we might expect it to report totals of 0, 1, 3, 4, 5, 0, 2, 3, and 6. Of course it doesnt work. Local variables are created anew each time a function iscalled, and lost when it exits.22let total = 0; let increment(x) be { if numbargs() = 0 then total := 0; total +:= x; out(“the total is now %d
“, total) } This alternative definition does work. let creates local or global variables depending upon whether it is used inside or outside of a function. A global variable isnt the ideal solution here. total is supposed to be private to increment. Now there is a risk that other functions could change it. let increment(x) be { static { total = 0 } if numbargs() = 0 then total := 0; total +:= x; out(“the total is now %d
“, total) }24 This version solves both problems. It works. A static variable is a private global variable. It is created and initialised only once,when the program is started, and it exists until the program ends, but it is onlyvisible inside its enclosing function. Elsewhere the name is unknown. A number of static variables may be declared at once, inside the same static { },as in static { total=O, min=99, max=1 }. If increment had any local functions, they would be permitted to access incrementsstatic variables.25 let array(a, b) be { test lhs() thenout(“you said array(%d) := %d
“, a, b) else test numbargs() = 1 then{ out(“you said array(%d)
“, a); resultis 555 } elseout(“you said array(%d, %d)
“, a, b) } let start() be { let v, w;array(2) := 345; array(3) := 9876;v := array(2);w := array(3);out(“v+w = %d
“, v+w) } There are no arrays is this example, array is just a normal function. A function call may appear on the left-hand-side of an assignment statement, as inarray(2) := 345 orstorage(34, x+9) := y*z When that happens, it is just treated as a normal function call, but the expression to the right of the := becomes an extra parameter, and inside the function, the library function lhs() returns true instead of its normal value of false. lhs() is true if the function call is the left-hand-side of an assignment. This allows an approximation of the get and set methods of object oriented programming to be implemented with a reader-friendly syntax, as the example is hinting. The example printsyou said array(2) := 345you said array(3) := 9876you said array(2)you said array(3)v+w = 1110destroyed leaving no trace. The example prints c=11O, d=73.Very Local Variables let start() be { let a = 3, b = 4, c, d; c := t*(t+1) where t = a+2*b-1; d := x*x + y*y where x = a+b+1, y = a-b-2; out(“c=%d, d=%d
“, c, d) } The where clause introduces one or more temporary local variables. where attaches to a whole single statement. Of course, that statement could be ablock of many statements inside { }. Those variables exist only for the execution of that one statement, then they are manifest { pi = 3.14159, size = 1000, maximum = 9999, half = maximum/2 } A manifest declaration introduces one or more named constants. The value of a manifest constant can not be changed deliberately or accidentally bya running program. manifest declarations may be global or local inside a function. The values given to manifest constants must be compile time constants, values thatthe compiler can easily work out before the program runs. They may not make useof any variables or functions, nor may they be strings. manifest is the ancestor of const in C++ and final in java.2627let addup(a) be{ let sum = 0, ptr = @ a;for i = 0 to numbargs()-1 do{ sum +:= ! ptr;ptr +:= 1 }resultis sum }let start() be{ out(“1 to 5: %d
“, addup(1, 2, 3, 4, 5));out(“3+12+7: %d
“, addup(3, 12 ,7));out(“nothing: %d
“, addup()) } @ is the address-of operator. It provides the numeric address of the memory location that a variable is stored in. ! is the follow-the-pointer operator. It assumes that its operand is a memory address and provides the contents of that location. Every variable and every value is 32 bits long, and memory locations are 32 bits long. Parameters to a function are always stored in neighbouring memory locations, in ascending order, so addup successfully adds up all its parameters regardless of how many there are. This is also how out works.29let glo = 7 let start() be { let var = 10101; let ptr = @ glo; ! ptr := 111; ! ptr *:= 2; ptr := @ var; ! ptr +:= 2020; out(“glo = %d, var = %d
“, glo, var) } An ! expression can be the destination in an assignment. The sample program prints glo = 222, var = 12121. let start() be{ let fib = vec 20;fib ! 0 := 1;fib ! 1 := 1;for i = 2 to 19 dofib ! i := fib ! (i-1) + fib ! (i-2);for i = 0 to 19 doout(“%d
“, fib ! i) } vec is a special form that can be used as the initial value for any variable. It is not an expression that can be used in assignments or anywhere else. Its argument must be a compile-time constant.3028 When name = vec size appears, name is declared as an ordinary variable, and immediately next to it in memory a space of exactly size words is left uninitialised. The value of name is set to the address of the first of these locations. So fib is a pointer to an array of twenty 32-bit values. If vec appears as the value of a local variable, it is a local temporary array with thesame lifetime as the variable. If vec appears as the value of a static or global variable, it is a permanent array. The infix form of the ! operator is very simple. Its exact definition is A!B !(A+B) It is like using [ ] to access an array in C++ and java, except that it is symmetric, A ! Bis always the same thing asB ! A. fib was initialised to vec 2O, which means fib is a variable that contains the address of the first of an array of 20 memory locations. Thus fib+1 is the address of the second in that array, and fib!1 accesses the value stored there. The sample prints the first 20 fibonacci numbers. let total(v, n) be{ let sum = 0;for i = 0 to n-1 dosum +:= v ! i;resultis sum }let start() be{ let items = table 23, 1, 2*3, 9, 10;let twice = vec(5);for i = 0 to 4 dotwice ! i := 2 * items ! i;out(“the total of items is %d
“, total(items, 5));out(“the total of twice is %d
“, total(twice, 5)) } A table is a pre-initialised array. The value of items is the address of the first of a sequence of five memory locations. When the program first starts, the values 23, 1, 6, 9, and 10 are stored in those locations, and they are never re-initialised. The elements of a table behave like static variables. The values in a table must be compile-time constants, strings, or other tables. The variables items and twice both contain pointers to arrays, when they are used as parameters in a function call, it is those pointers that are copied, the @ operatoris not used. Inside the function, the parameter v has exactly the same value as items or twice,so it is used in exactly the same way.31 let makearray() be { let a = vec(10); for i = 0 to 9 do a ! i := 2 ** i;resultis a } let start() be { let powers = makearray(); out(“The answer is
“); for i = 0 to 9 do out(“%d
“, powers ! i) } ** is the to-the-power-of operator for integers. The makearray function is wrong. The memory occupied by a, i, and the array itselfis temporary and local to the function. As soon as the function exits, it can be re-used for something else. powers does receive the address of the memory locations that the array used tooccupy, but it has been re-used, so the expected values are no longer there. To do this correctly, the newvec library function is used. newvec is a bit like new inC++ and java, but much more basic. It is closer to malloc in C. This is selection sort. let sort(array, size) be { for i = 0 to size-1 do { let minpos = i, minval = array ! i; for j = i+1 to size-1 do if array ! j < minval then { minpos := j; minval := array ! j } array ! minpos := array ! i; array ! i := minval } } let start() be { manifest { N = 20 } let data = vec(N); random(-1); for i = 0 to n-1 do data ! i := random(99); sort(data, N); for i = 0 to n-1 do out(“%2d
“, data ! i); out(”
“) } Normally random(N) will produce a random number between O and N inclusive. It is of course a pseudo-random number generator: every time you run the programit will produce the same sequence of numbers. random(1) changes that. It should be used just once in a program, it randomisesthe pseudo-random number sequence so that it will not be predictable.32 the format %2d given to out ensures that the number printed occupies at least 2 character positions, so numbers in the range 0 to 99 will all be aligned in a column. The width setting after the % may be any positive number, spaces are added to theleft to pad small numbers out. A width setting may be used with %x (for hexadecimal) and %b (for binary) too. A width setting may be used with %s (for strings), but then the extra spaces areadded to the right. If a zero precedes the width setting with %d, %x, or %b, then zeros are used forpadding instead of spaces. %O32b prints all 32 bits of a number in binary, including the leading zeros.33 let makearray(n) be { let a = newvec(n+1); for i = 0 to n do a ! i := 2 ** i;resultis a } let experiment() be { let heap = vec(10000); let powers1, powers2; init(heap, 10000); powers1 := makearray(10); powers2 := makearray(20); out(“The answers are
“); for i = 0 to 10 do out(“%d
“, powers1 ! i); for i = 0 to 20 do out(“%d
“, powers2 ! i); freevec(powers1); freevec(powers2) } This is an earlier example of something that doesnt work, but corrected. newvec is like vec, it gives a pointer to an array. But it doesnt use temporary memory that is local to the function, it uses permanent heap memory that will never* be recycled, so the pointer remains valid for ever*. newvec is similar to new inC++ and java. Unlike vec, newvec(X) is a normal function call, it can be used anywhere in aprogram, and its parameter can be any expression. In every other way, an array created by newvec is indistinguishable from an arraycreated by vec. freevec is the function used to release newvec allocations for recycling. The library-supplied version of newvec is extremely primitive. It can not request additional memory allocations from the operating system because there is no operating system. Instead, before first using newvec in a program, the programmer must create a normal array big enough to supply the total of all newvec allocations the program will ever make. newvec just takes chunks out of this array as requested. init is the function used to give this big array to the newvec system. Its first parameter is the array, and the second is its size. The best method is as illustrated above. Create a large vec inside start, and give it to init before newvec is ever used. *If this is done, newvec allocations really will remain valid for ever, and never be recycled. But in the example above, init is given a vec that is local do a different function, experiment. So when experiment ends, all the newvecs will automatically evapourate.These are the definitions of init and newvec from the io library: static { vecsize = 0, vecused = 0, vecspace }let lamest_newvec(n) be{ let r = vecspace + vecused;if vecused + n > vecsize then
{ outs(
newvec: insufficient free memory
);
finish }
vecused +:= n;
resultis r }
let lamest_freevec(v) be {}
static { newvec = lamest_newvec,
freevec = lamest_freevec }
let init(v, s) be
{ vecsize := s;
vecspace := v;
vecused := 0 }
freevec and newvec are really just global variables whose initial values are the aptly named lamest_freevec and lamest_newvec.
When a function call f(x, y) is executed, f can be any expression. So long as its value is the address of a function, it will work. The name of a function represents its address in memory, so the @ operator is not used.
This way, programs can replace the values of newvec and freevec with better functions.

manifest
{ node_data = 0,
node_left = 1,
node_right = 2,
sizeof_node = 3 }
let new_node(x) be
{ let p = newvec(sizeof_node);
p ! node_data := x;
p ! node_left := nil;
p ! node_right := nil;
resultis p }
When implementing a binary tree of integers, each node is a very small object. It just contains three 32-bit values: the data item, the address of the node to the left, and the address of the node to the right.
It might as well just be a three element array. The programmer decides which array positions the three items will occupy and defines well-named constants to make the program comprehensible.
new_node is effectively a constructor for such a node.
nil is a constant equal to 0. It does the same job as NULL in C++ and null in java.
Its only purpose is to indicate no pointer here.
let add_to_tree(ptr, value) be
{ if ptr = nil then
resultis new_node(value);
test value < ptr ! node_data then ptr ! node_left := add_to_tree(ptr ! node_left, value) else ptr ! node_right := add_to_tree(ptr ! node_right, value); resultis ptr } let inorder_print(ptr) be { if ptr = nil then return; inorder_print(ptr ! node_left); out(“%d “, ptr ! node_data); inorder_print(ptr ! node_right) } let start() be { let heap = vec(10000); let tree = nil; init(heap, 10000); for i = 1 to 20 do { let v = random(99); tree := add_to_tree(tree, v); out(“%d “, v) } out(”
“); inorder_print(tree); out(”
“) } Those three functions are nothing special. They just create a tree of random numbers, then print them in order.3435 let start() be { let s = “ABCDEFGHIJKLMN”; for i = 0 to 3 do out(“%08x
“, s ! i) } 44434241 48474645 4C4B4A49 00004E4D Every memory location is 32 bits wide, ASCII characters only require 8 bits. A string is just an array in which character codes are packed 4 per entry. The %O8x format prints a number in hexadecimal, stretched out to the full 8 digits, with leading zeros added if necessary. In hexadecimal, the ASCII codes for the letters A, B, C, D, E are 41, 42, 43, 44, 45 and so on. The first character is stored in the least significant 8 bits of a string. That makes the output look backwards, but it makes more sense for programming. A string is always 8 bits longer than would be required for the characters alone. The end of a string is marked by 8 bits of zero. let start() be { let a = vec(6); a ! 0 := 0x44434241; a ! 1 := 0x48474645; a ! 2 := 0x4C4B4A49; a ! 3 := 0x4E4D; out(“%s
“, a) } ABCDEFGHIJKLMN A constant string in “double quotes” is just an array (in static memory) initialised with the character codes when the program starts, just like a table. But naturally, any array that is big enough can be used as a string. Ox prefixes a numeric constant written in hexadecimal. Oo may be used for octal,and Ob for binary. let strlen(s) be { let i = 0; until byte i of s = 0 do i +:= 1;resultis i } That is the strlen function from the standard library, it returns the length (number of characters not including the terminating zero) of a string. of is an ordinary two-operand operator. Its left operand describes a sequence of bits within a larger object. Its right operand should be a pointer (memory address). byte is an ordinary one-operand operator. Its result is a perfectly ordinary number that is interpreted by of to describe one single character of a string. Due to hardware limits, byte and of can only be used to access the first 8,388,604 characters of a string.let start() be{ let alpha = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”;let p;out(“byte 23 of alpha = ‘%c’
“, byte 23 of alpha);p := byte 23;out(“byte 23 = %d
“, p);out(“5896 of alpha = ‘%c’
“, 5896 of alpha) }byte 23 of alpha = ‘X’byte 23 = 58965896 of alpha = ‘X’ byte is a perfectly ordinary operator whose result is a perfectly ordinary number.let start() be{ let s = vec(8);let letter = ‘z’;for i = 0 to 25 do{ byte i of s := letter;letter -:= 1 }byte 13 of s -:= 32;out(“%s
“, s) }zyxwvutsrqponMlkjihgfedcba byte … of can be used as the destination in an assignment or an update. The letter M became capital because the difference between the codes for capitalletters and little letters in ASCII is 32. Writing byte 13 of s := ‘a”A’; would have made that clear.36 let start() be { let bits = 0b10001000100010001101101101100010; let sel = selector 11 : 5; let part = sel from bits; out(“%b
“, bits); out(“%b
“, part); sel from bits := 0b01010101010; out(“%b
“, bits) } 10001000100010001101101101100010 11011011011 10001000100010000101010101000010 selector is like byte, but it is not limited to describing 8-bit items. selector B : R describes the B-bit region of a word that has R bits to the right ofit. B may not be more than 32 nor equal to 0. B+R may not be more than 32. B and R do not have to be constants, any expression will do. from is like of, but it is not given a pointer, it is given the actual 32-bit value toselect bits from. from may be used as the destination in an assignment or an update.let start() be{ manifest { those = selector 16 : 8 : 2 }let them = table 0x13578642, 0xBEEFFACE, 0x1A2B3C4D, 0xE8500C2A; out(“%x
“, them ! 2);out(” %x
“, those of them);those of them := 0x9988;out(“%x
“, them ! 2);selector 1 : 31 : 2 of them := 1;out(“%x
“, them ! 2) }1A2B3C4D2B3C1A99884D9A99884D selector B : R : N describes the B-bit region of a word that has R bits to the right of it, in word N of an array. selector B : R is an abbreviation for selector B : R : O. When a selector value is used with the from operator, the N portion is ignoredbecause from works on a single word, not an array. byte X is exactly equivalent to selector 8 : (X rem 4) * 8 : X / 4. There is no form of selector that can describe a sequence of bits that are not allcontained within the same word. When bits are extracted using from or of, the most significant is not treated as asign bit, everything is assumed to be positive. The result of selector is a single value that contains B, R, and N. B occupies theleast significant 5 bits (with 32 being represented by 00000), R occupies the next 5 bits, and N the remaining 22 bits. N can be negative. Thus N can not exceed 2,097,151. x := selector B : R : N is equivalent to selector 5 : 0 from x := B;selector 5 : 5 from x := R=32 -> 0, R; selector 22 : 10 from x := N
37
A > B, C is the conditional operator that is spelled A ? B : C in C++ and java.
If A is false (i.e. zero), its value is the value of C, and B is never evaluated.
If A is not zero, its value is the value of B, and C is never evaluated.
38

let x = 0x98765432;
out(%08x
%08x
%08x
, x, x << 12, x >> 12)
98765432
65432000
00098765
<< is the left shift operator. A << B is the value of A shifted B bits to the left. The leftmost B bits are lost, therightmost B bits become zero. One hexadecimal digit equals four binary digits, so << 12 is a 3 digit hexadecimalshift. >> is the right shift operator.
out(%08x
%08x
%08x
, x, x alshift 12, x arshift 12)
98765432
65432000
FFF98765
alshift and arshift are the arithmetic left and right shift operators.
alshift is exactly the same as <<, it is only included for completeness. arshift preserves the sign (most significant) bit, so for negative numbers the newbits appearing from the left are ones. A alshift B computes A * 2B. A arshift B computes A / 2B. out(“%08x
%08x
%08x
“, x, x rotl 12, x rotr 12) 98765432 65432987 43298765 rotl and rotr are the arithmetic left and right rotate operators. They perform normal shifts, but the bits that fall off at one end reappear at theother instead of zeros, so nothing is lost. let a = 0b10011001110101100100111001100101, b = 0b11001010101110001010010011111100, s =”——————————–“; out(“%032b
%032b
%s
%032b
“, A, B, S, A bitand B) 10011001110101100100111001100101 11001010101110001010010011111100 ——————————– 10001000100100000000010001100100 bitand is the bit-by-bit and operator, the same as & in C++ and java. Each bit in the result is 1 only when both corresponding bits in the operands arealso 1.39out(“%032b
%032b
%s
%032b
“, A, B, S, A bitor B) 10011001110101100100111001100101 11001010101110001010010011111100 ——————————– 11011011111111101110111011111101 bitor is the bit-by-bit or operator, the same as | in C++ and java. Each bit in the result is 1 when any of the corresponding bits in the operands isalso 1.out(“%032b
%s
%032b
“, A, S, bitnot A) 10011001110101100100111001100101 ——————————– 01100110001010011011000110011010 bitnot is the bit-by-bit not operator, the same as ~ in C++ and java. Each bit in the result is the opposite of the corresponding bit in the operand.out(“%032b
%032b
%s
%032b
%032b
“, A, B, S, A eqv B, A neqv B); 10011001110101100100111001100101 11001010101110001010010011111100 ——————————– 10101100100100010001010101100110 01010011011011101110101010011001 eqv is the bit-by-bit logical equivalence operator. Each bit in the result is 1 when only when the corresponding bits in the operandsare equal, either both 0 or both 1. neqv is the opposite of eqv, usually called exclusive or, and the same as ^ in C++and java. Each bit in the result is 1 when only when the corresponding bits in the operandsare different.let count = 0;for i = 1 to 32 do{ if n bitand 1 then count +:= 1;n rotl:= 1 } That code fragment counts the number of ones in the binary representation of N, without changing the value of N. BEWARE! The bit-by-bit operators have the same priority as the corresponding logical operators, which are lower than the relational operators. That is not the same as in C++ and java. if n bitand 1 = 1 then … would be interpreted asif n bitand (1 = 1) then …, which is the same asif n bitand true then …, which is the same asif n bitand 0b11111111111111111111111111111111 then …, which is the same as if n then …40manifest { pi = 3.1415927 } let start() be { let width = 2.75, height = 6.125; let area = width #* height; let perimeter = (width #+ height) #* 2.0; let circarea = pi #* width #** 2; out(“area = %f
“, area); out(“perimeter = %f
“, perimeter); out(“circle area = %f
“, circarea) } area = +1.684375e+01 perimeter = +1.775000e+01 circumference = +2.375829e+01 The floating point operators are the same as the integer operators, but with a # prefixed to their names. #+, #, #*, and #/ assume their operands are both floating point values, and produce a floating point result. If the operands are of the wrong type the results are meaningless. #** raises a floating point number to an integer power. #<, #>, #<=, #>=, #=, #<>, (and #/= and #=) assume their operands are both floating
point values, and produce result of either true or false. If the operands are of the
wrong type the results are meaningless.
Exception: O and O.O have the same representation, so are interchangeable.
There are not special variations of the %f output format.
manifest { pi = 3.1415927 }
let start() be
{ let radius = 10;
let circumf1 = 2.0 #* pi #* radius;
let circumf2 = 2.0 #* pi #* float radius;
let millpi = (fix (1000.0 #* pi)) * 1000;
out(circumf1 = %f
, circumf1);
out(circumf2 = %f
, circumf2);
out(million pi about %d
, millpi) }
circumf1 = +8.828181e-44
circumf2 = +6.283185e+01
million pi about 3141000
See what happens when integers and floating point values are carelessly mixed?
float takes an integer operand and converts it to floating point format.
fix takes an floating point operand and converts it to integer format. It uses
truncation towards zero, not rounding.
float and fix are not functions, they are operators with high priority.
42
41

let ia = 123, ib = -456;
let fa = 3.2714e9, fb = -1.044e-11;
let fc = #- fa;
out(%d -> %d
, ia, abs ia);
out(%d -> %d
, ib, abs ib);
out(%f -> %f
, fa, #abs fa);
out(%f -> %f
, fb, #abs fb);
out(%f -> %f
, fc, #abs fc) }
123 -> 123
-456 -> 456
+3.271399e+09 -> +3.271399e+09
-1.044000e-11 -> +1.044000e-11
-3.271399e+09 -> +3.271399e+09
abs and #abs are also high priority operators. They find absolute values.
The e notation for times-ten-to-the-power-of may be used in floating point
constants. It is not an operator, it is part of the denotation of the number.
+, , and # have unary versions too.
A leading attached to a numeric constant is part of the number, not an operator,
so negative floating point numbers may be written in the normal way, without a #.
44
a := 7;
b := 10;
c := 1;
d := b * valof { let f = 1;
for i = 1 to a do
f *:= i;
resultis f } + c;
valof is a unary operator whose operand is a block even if it is just one statement, it still needs the enclosing { }.
The sample code sets d to ten times the factorial of 7 plus 1.
valofs are of marginal usefulness.
let max(a, b) be test a>b then resultis a else resultis b;
let min(a, b) be test a ]
add r1,
mul r1, 10
store r1, [ ]
push77
loadr1, [ ]
mul r1, [ ]
pushr1
push4
call
add sp, 3
store r1, [ ] }
out(hippo=%d, goldfish=%d
, hippo, goldfish) }
After the word assembly, the assembly language must be enclosed in { } even if it consists of only one statement.
Inside the assembly language, names surrounded by < > will be replaced by their correct form in assembly language, but they must be the names of variables, functions, or manifest constants.
Everything else is passed directly to the assembler without any further processing. Any errors will be reported by the assembler in a possibly unhelpful way after compilation is complete.
The assembly language in the example is equivalent to hippo := (goldfish+number)*10;
goldfish := f(cat*goldfish, 77)
the program prints hippo=126O, goldfish=21O77
The assembly language and machine architecture are documented separately.
The calling convention is that parameter values are pushed in reverse order, then a
value equal to numbargs()*2+(lhs()>1,O) for the called function is pushed, then the function is called, then the stack is adjusted to remove the pushed values.

46

The escape codes that may appear inside string and character constants are:
\ which represents

newline, ascii 10 r return, ascii 13 t tab, ascii 9
b backspace, ascii 8
s ordinary space, just so it can be made explicit

Summary of Priorities within Expressions
priority section
48
17, highest
16 20
4 44
47
constants, identifiers, parenthesised subexpressions, valof block
F(A, B, C, )
function calls
+, -, #-, not, ~, bitnot,
!, @,
abs, #abs, float, fix
unary operators
%NAME
infix function call
!
array access
**, #**
to the power of
*, #*, /, #/, rem
multiplicative
+,#+,-,#-
additive
selector, byte, from, of
bit ranges
<<, >>,
alshift, arshift, rotl, rotr
shifts and rotations
<, >, <=, >=, <>, /=, =,
#<, #>, #<=, #>=, #<>, #/=, #=
relational
/, bitand
conjunctions
/, bitor
disjunctions
eqv
equivalence
neqv
exclusive or
-> ,
conditional
table
tables
15
43 8 39 30 43 42
14 45
13 30
12 32, 41
11 14,41 10 41
9 35, 36
8
38
79 41
6 8, 39
5 8,39 4 39
3 39
2 37 1,lowest 31

Functions in the library io
out(format, )
See sections 1, 2, 5, 6, and 32.
outch(c)
outno(n)
outhex(n)
outbin(n)
outf(f)
outs(s)
print a single character
print a single integer in decimal print a single integer in hexadecimal print a single integer in binary
print a single floating point number print a single string
These functions add nothing. The are the helper functions used by out().
inch()
Read a single character from the input stream, return its ASCII code. inch() does not return a value until a whole line has been typed and terminated with ENTER, apart from this the only characters given special treatment are controlC which stops a program, and backspace. The default buffer used to store the input until ENTER is pressed has space for only 100 characters.
set_kb_buffer(V, size)
V should be a vector size words long. V replaces the default buffer used by inch(), so that up to size*4-5 characters may be typed before pressing ENTER.
inno()
Read an integer in decimal, return its value. Uses inch().
numbargs()
Returns the number of parameters the current function was called with, see section 23.
lhs()
thiscall()
Returns a reference to the current stack frame.
returnto(sf, value)
Returns from all active functions until the one represented by sf (previously obtained from thiscall()) is reached. value is used as the resultis value from the last exitted function. value is optional.
init(ptr, sz)
Must be used just once before newvec is ever used. See section 33.
newvec(sz)
Allocates a vector of size sz from heap memory. See section 33.
Returns true if the current function call was the left hand side of an assignment. See section 25.
49

freevec(ptr)
Deallocates and recycles a vector previously created by newvec. See section 33.
seconds()
Returns the number of seconds since midnight 1st January 2000, local time.
datetime(t, v)
t is a time as obtained from seconds(), v must be a vector of at least 7 words. The time in t is decoded as follows:
v!0:= v ! 1 := v!2:= v!3:= v ! 4 := v ! 5 := v ! 6 :=
datetime2(v)
year
month, 1-12
day, 1-31
day of week, 0 = Sunday hour, 0-23
minute, 0-59
second, 0-59
The current date and time is stored in compressed form in v. v must be a vector of at least 2 words.
v!0: 13 most significant bits = year 4 next bits = month
5 next bits = day
3 next bits = day of week
7 least significant bits not used
v!1: 5 most significant bits = hour 6 next bits = minute
6 next bits = second
10 next bits = milliseconds
5 least significant bits not used
strlen(s)
Returns the length in characters of the string s, not including the zero terminator.
random(max)
Returns a random integer between 0 and max, inclusive.
random(-1)
Randomises the random number generator.
devctl(op, arg1, arg2, arg3,)
Input/output device control functions, see section 50.
devctlv(v)
Has the same functionality as devctl(), but the parameters op, arg1, arg2, etc are provided as elements 0, 1, 2, etc of the vector v.

DEVCTL operations
Unit numbers identify individual discs or magnetic tape drives, numbered from 1 up. Tapes and Discs are numbered independently, there can be a tape number 1 and a disc number 1 at the same time.
op = DC_DISC_CHECK arg1 = unit number
If the disc unit is available returns the total number of blocks it contains Otherwise returns 0
op = DC_DISC_READ
arg1 = unit number
arg2 = first block number arg3 = number of blocks arg4 = memory address
The indicated blocks (512 bytes or 128 words each) are read directly into memory starting at the address given. On success returns the number of blocks read. On failure returns a negative error code.
op = DC_DISC_WRITE
arg1 = unit number
arg2 = first block number arg3 = number of blocks arg4 = memory address
128 * arg2 words of memory starting from the address given are written directly into the indicated blocks. On success returns the number of blocks written. On failure returns a negative error code.
op = DC_TAPE_CHECK arg1 = unit number
If the disc unit is available returns R or W indicating whether the tape was mounted for reading or for writing. Returns 0 if not available.
op = DC_TAPE_READ
arg1 = unit number arg2 = memory address
One block is read from the tape unit directly into memory at the address given, returns the number of bytes in the block. All blocks are 512 bytes except that the last block of a tape may be shorter.
op = DC_TAPE_WRITE
arg1 = unit number
arg2 = memory address arg3 = size of block in bytes
The indicated number of bytes, which must not exceed 512, of memory starting from the address given are written directly as a single block to the tape. Returns the number of bytes written.
50

op = DC_TAPE_REWIND arg1 = unit number
Rewinds the tape to the beginning.
op = DC_TAPE_LOAD
arg1 = unit number
arg2 = string, the filename of the tape arg3 = the letter R or W.
The named file is made available as a magnetic tape unit. The letter R indicates that it is read only, and W that it is write only. Returns 1 on success, or a negative error code.
op = DC_TAPE_UNLOAD arg1 = unit number
The tape is removed from the drive, returns 1 for success or a negative error code.

Compiling and running on rabbit.
The program should be in a file whose name ends with .b. Here it is
$ ls hello.*
hello.b
$ cat hello.b
import io
let start() be
{ out(Greetings, Human.
);
out(Now go away and leave me alone.
) }
First run the compiler (you dont need to type the .b in the file name). It creates an assembly language file whose name ends with .ass. The .ass file is human readable, you can look in it if you want.
$ bcpl hello
$ ls hello.*
hello.ass hello.b
Then run the assembler. It produces an object file which is not human readable.
$ assemble hello
$ ls hello.*
hello.ass hello.b hello.obj
Then use the linker to combine your object file with the object files for the libraries it uses. The result is an executable image file whose name ends in .exe
$ linker hello
$ ls hello.*
hello.ass hello.b hello.exe hello.obj
Fortunately there is a single command that does all three of those steps for you. It is called prep, short for prepare.
Finally tell the emulator to start up and run that executable file
$ run hello
Greetings, Human.
Now go away and leave me alone.
So all that could have been done with just
$ prep hello
$ run hello
If your program goes wrong while it is running, control-C will stop it, but youll need to type a few more control-Cs to stop the emulator too.
51