/
PROGRAM type
.ident /12oct/
.title $type$
$type$::
	mov r3,-(sp)
	mov 4(sp),r3
	TYPE r3
	mov (sp)+,r3
	mov (sp),2(sp)
	add #2,sp
	rts pc
	.end