qu	unlabel   + 1
loop		equ	block     + 1
exception	equ	loop      + 1
pkguseflag	equ	exception + 1
;
; procedure, function, package, block (block doesn't use most of these)
;
typ	equ	sibling+2	; type
nofpars	equ	typ+2		; number of parameters
labl	equ	nofpars+1	; label number
stglbl	equ	labl+2		; storage label
child	equ	stglbl+2	; pointer to first sym tab entry of subprogr