.code

rutina	START	0
	
	LDCH	#95
	JSUB	print	

halt	J	halt
	END	rutina


print	WD	#1
	RSUB

.data