.title print type block

; VERB Version 1.0 June 1st, 1985
; Written  by Joe Meadows Jr.,  with thanks  to the
; Fred Hutchinson Cancer Research Center for kindly
; allowing  me to  use  their  computing  resources.
;
; If  you  have any  questions, comments, ideas, or
; whatever, feel free to contact me via US Mail :
;	Joe Meadows Jr.
;	4841 268th Ave. N.E.
;	Redmond Wa. 98052
; or via phone : (206) 827-7296

	.library 'clexlib'

	.entry	clex_print_type,^m<r2,r3>
	; 4(ap) = address of type block

	movl	4(ap),r2

	movzwl	type_w_name(r2),r3
	addl	r2,r3
	add_string	<'define type '>
	add_ascic	r3
	calls	#0,g^put_output

	movzwl	type_w_prefix(r2),r3
	beql	type_1

	addl	r2,r3
	add_string	<'   prefix '>
	add_ascic	r3
	calls	#0,g^put_output

type_1:	addl3	clex_table,type_l_keywords(r2),-(sp)
	calls	#1,clex_print_entity

	ret
	.end