35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
/*****************************************************/
|
||
/* This program tests the TOTWDS, MAXWDS, and ALLWDS */
|
||
/* functions from the Run-time Subroutine Library. */
|
||
/*****************************************************/
|
||
alltst:
|
||
procedure options(main);
|
||
declare
|
||
totwds returns(fixed(15)),
|
||
maxwds returns(fixed(15)),
|
||
allwds entry(fixed(15)) returns(pointer);
|
||
|
||
declare
|
||
allreq fixed(15),
|
||
memptr ptr,
|
||
meminx fixed(15),
|
||
memory (0:0) bit(16) based(memptr);
|
||
|
||
do while('1'b);
|
||
put edit (totwds(),' Total Words Available',
|
||
maxwds(),' Maximum Segment Size',
|
||
'Allocation Size? ') (2(skip,f(6),a),skip,a);
|
||
get list(allreq);
|
||
memptr = allwds(allreq);
|
||
put edit('Allocated',allreq,' Words at ',unspec(memptr))
|
||
(skip,a,f(6),a,b4);
|
||
|
||
/* clear memory as example */
|
||
do meminx = 0 to allreq-1;
|
||
memory(meminx) = '0000'b4;
|
||
end;
|
||
end;
|
||
|
||
end alltst;
|
||
|
||
|