Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50416/getabl.sai
There are 2 other files named getabl.sai in the archive. Click here to see a list.
entry;
COMMENT
.SEC(GETABL.SAI - GET A SETBREAK TABLE)
.INDEX(GETABL.SAI - GET A SETBREAK TABLE)
.;
Begin "GETABL.SAI"
Comment
                   Richard Gordon and Peter Lemkin
                     Image Processing Unit
                   National Cancer Institute
                 National Institutes of Health
                     Building 36 Room 4D28
                  Bethesda, Maryland 20014 USA



                       phone 301-496-2394



Revised March 17, 1976 - Lemkin make break number Own variable!!!
;

Internal Integer Procedure GETABL;

Begin "GETABL"
Require "DEFINE.REQ" Source!file;

"	Returns the next available break table number"


Own Integer break!table;

break!table_break!table+1;
If  break!table < 18
    Then Return(break!table)
    Else
    Begin "error"
	Outstr("All 18 break tables in use!" & crlf);
	Return(0);
    End "error";
End "GETABL";
End "GETABL.SAI";