.sub	_main
	new_pad 0

	newsub $P1, .Exception_Handler, _undef_lex_handler
	store_global "_undef_lex_handler",$P1
	set_eh $P1

	bsr _opencomal_main

	print "aap"
	clear_eh
	end
.end

.sub	_undef_lex_handler
	print "_undef_lex_handler\n"
	set P2, P5["_invoke_cc"]
	invoke P2
.end

