UP
SIAF(0;SB,M==>c;SIA) {"Create small integer allocator"}
M is a meter. c is 0 if successful, 1 if SB is not a
prompt official space bank, 2 if not enough space in SB.
SIAF(kt; ==> X'126';).
SIA(oc;==>c) {"Allocate or Free Small Integer"}
If oc is 0 then c will be the smallest integer that is
unallocated and greater than zero or -1 if no more integers
can be allocated. If oc > 0 then the integer oc will
be returned to unallocated status and c will be 0 if it
was allocated and 1 if it was not. If oc is -1 than c will
be the smallest allocated integer or zero if there are no
allocated integers.
SIA(kt; ==> X'26';).