aged procedure end label (if we are one)
;
	lhld	subsav
	offset	parent
	bump	class
	mov	a,m
	cpi	package
	jz	subb83
	cpi	pkg$body
	jnz	subb82
;
subb83:	mvi	a,DEP
	call	emit
	lhld	subsav
	call	emit$pkg$end
	jmp	subb81
;
; output subunit end label (if we are one)
;
subb82:	lhld	subsav
	xchg
	lhld	unit$pointer
	call	chkhl			; are we the compilation unit?
	jnz	subb81
	lda	subunit$flag
	ora	a			; are we a subunit?
	jz	subb81
;
	mvi	a,DEP
	call	emit			; we are subunit, output
	lhld	s