%RECORDFORMAT BLRECF(%INTEGER BLFCON,BLBCON,B
                           %HALFINTEGER BLBDOM,BLBTARG,BLCHAIN,BLTEXT,BLDEPTH,
                           (%HALFINTEGER BLCORRUPT,BLUB1 %OR %INTEGER BCLIST),
                           %INTEGER BLUSE,BLDEF,BLBOE)
%RECORDFORMAT SRECF(%INTEGER INFO,LINK)
%RECORDFORMAT CNCRECF(%HALFINTEGER CNCOUNT,%HALFINTEGERARRAY CNBLOCK(1:1000))
%RECORDFORMAT LOOPRECF(%HALFINTEGER LOBLOCK,LODOWN,LOACROSS,LOST)
%RECORDFORMAT PROPRECF(%HALFINTEGER PRDEFCT,PRTEXT,PRDEFN,
                       %BYTEINTEGER PRCOORD2,PRQREPL,%HALFINTEGER PRREPL)


{2900} %CONSTINTEGER TABSCALE=1
{2900} %CONSTINTEGER BLENTLEN=36;     ! BLOCK TABLE ENTRY LENGTH IN BYTES
{2900} %CONSTINTEGER FRSIZE=8;        ! FREE LIST ENTRY SIZE IN BYTES
{2900} %CONSTINTEGER INTLEN=4;        ! INTEGER LEN IN BYTES

%CONSTINTEGER FUNCBIT=1
%CONSTINTEGER RETBIT=4